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:40
GrG
sicuro?
ho fatto copia e incolla in un nuovo progetto e funziona!
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