Differenze tra le versioni di "Rendere la sola parte decimale di un numero in virgola mobile come un numero di tipo Intero"
Da Gambas-it.org - Wikipedia.
Riga 1: | Riga 1: | ||
Per ottenere di un numero in virgola mobile la sua parte decimale priva dello zero (rappresentante la parte intera) e del punto separatore, convertendola così in un numero di tipo ''Intero'' vero e proprio, è possibile utilizzare il seguente codice: | Per ottenere di un numero in virgola mobile la sua parte decimale priva dello zero (rappresentante la parte intera) e del punto separatore, convertendola così in un numero di tipo ''Intero'' vero e proprio, è possibile utilizzare il seguente codice: | ||
− | + | Public Sub Main() | |
− | + | Dim f As Float | |
− | + | Dim s As String | |
− | + | Dim i As Integer | |
− | + | ||
f = 3.14159265 | f = 3.14159265 | ||
Riga 19: | Riga 19: | ||
Print i | Print i | ||
− | + | End | |
− | |||
oppure anche il seguente: | oppure anche il seguente: | ||
− | + | Public Sub Main() | |
− | |||
− | + | Dim f As Float | |
− | + | Dim s As String | |
− | + | Dim i As Integer | |
− | + | ||
f = 3.14159265 | f = 3.14159265 | ||
Riga 42: | Riga 40: | ||
Print i | Print i | ||
− | + | End |
Versione attuale delle 17:01, 1 lug 2024
Per ottenere di un numero in virgola mobile la sua parte decimale priva dello zero (rappresentante la parte intera) e del punto separatore, convertendola così in un numero di tipo Intero vero e proprio, è possibile utilizzare il seguente codice:
Public Sub Main() Dim f As Float Dim s As String Dim i As Integer f = 3.14159265 ' Otteniamo la sola parte frazionale: f = Frac(f) ' Convertiamo il valore contenuto nella variabile "f" in una Stringa: s = CStr(f) ' Prendiamo i soli valori alla destra del punto separatore, e convertiamo il numero in un Intero: i = Val(Right(s, Len(s) - 2)) Print i End
oppure anche il seguente:
Public Sub Main() Dim f As Float Dim s As String Dim i As Integer f = 3.14159265 ' Convertiamo il valore contenuto nella variabile "f" in una Stringa: s = CStr(f) ' Estraiamo la parte della stringa a destra del punto, corrispondente alla parte frazionaria del numero in virgola mobile originario: s = Scan(s, "*.*")[1] ' Convertiamo in un valore numerale "Intero" la rappresentazione stringa del numero estratto: i = Val(s) Print i End