Oppure

Loading
10/10/08 12:53
HackerV88
Salve,
nel mio programma ho una variabile che si chiama "dopovirgola", e contiene il numero di cifre che devono essere visualizzate dopo la virgola di un numero float:
Es: 1) dopovirgola=3 -> 3545,059
2) dopovirgola=5 -> 4,00591
Bene, adesso come faccio a stampare in una text box questa formattazione?
Perhcè in C si fa cosi %f5.2, ma in vb6 non so proprio come fare.
aaa
10/10/08 13:35
GrG
Ho appena creato una funzione apposita:
Private Function DV(NumeroIniziale As Double, dopovirgola As Integer) As Double
Dim operazioni As String, i As Integer, tmp() As String
i = InStr(1, CStr(NumeroIniziale), ",")
If dopovirgola <= Len(NumeroIniziale) Then
If i > 0 Then
tmp = Split(CStr(NumeroIniziale), ",")
operazioni = tmp(0) & "." & Left(tmp(1), Len(tmp(1)) - dopovirgola)
DV = Val(operazioni)
Else
MsgBox "Questo non è un numero decimale!", vbCritical, "Error Function DV"
Exit Function
End If
Else
MsgBox "I numeri dopo la virgola sono minori dei numeri da togliere!", vbCritical, "Error Function DV"
Exit Function
End If
End Function



Fammi sapere se ci sono problemi

p.s. Aggiornata la funzione perchè mi ero accorto di un bug.
Ultima modifica effettuata da GrG 07/11/08 13:07
aaa
10/10/08 15:28
HackerV88
Ho fatto questo codice con la tua funzione:
Private Sub Form_Load()
Dim num1 As Double
Dim n As Integer
Dim ris As Double

num1 = 15.4445
n = 2
ris = DV(num1, n)
MsgBox ris

End Sub

Private Function DV(NumeroIniziale As Double, dopovirgola As Integer) As Double
Dim operazioni As String, i As Integer, tmp() As String
i = InStr(1, CStr(NumeroIniziale), ",";)
If dopovirgola <= NumeroIniziale Then
If i > 0 Then
tmp = Split(CStr(NumeroIniziale), ",";)
operazioni = tmp(0) & "." & Left(tmp(1), Len(tmp(1)) - dopovirgola)
DV = Val(operazioni)
Else
MsgBox "Questo non è un numero decimale!", vbCritical, "Error Function DV"
Exit Function
End If
Else
MsgBox "I numeri dopo la virgola sono minori dei numeri da togliere!", vbCritical, "Error Function DV"
Exit Function
End If
End Function

Ma mi dice sempre che il mio numero non è decimale
aaa
10/10/08 15:40
GrG
sicuro?

ho fatto copia e incolla in un nuovo progetto e funziona!
aaa
10/10/08 15:58
HackerV88
sicuro
aaa
10/10/08 16:12
GrG
comprimi in uno zip i sorgenti e allegali, non riesco a crederci lol a me funziona perfettamente...
aaa
13/10/08 21:04
P4p3r0g4
non e` che per caso centra la lingua di sistema che scambia punti con virgole?
aaa
14/10/08 17:08
GrG
può darsi...
aaa