Visualizza wikitesto di Rendere la sola parte decimale di un numero in virgola mobile come un numero di tipo Intero

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
   
 <FONT Color=gray>' ''Otteniamo la sola parte frazionale:''</font>
   f = Frac(f)
   
 <FONT Color=gray>' ''Convertiamo il valore contenuto nella variabile "f" in una Stringa:''</font>
   s = CStr(f)
   
 <FONT Color=gray>' ''Prendiamo i soli valori alla destra del punto separatore, e convertiamo il numero in un Intero:''</font>
   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
   
 <FONT Color=gray>' ''Convertiamo il valore contenuto nella variabile "f" in una Stringa:''</font>
   s = CStr(f)
   
 <FONT Color=gray>' ''Estraiamo la parte della stringa a destra del punto, corrispondente alla parte frazionaria del numero in virgola mobile originario:''</font>
   s = Scan(s, "*.*")[1]
   
 <FONT Color=gray>' ''Convertiamo in un valore numerale "Intero" la rappresentazione stringa del numero estratto:''</font>
   i = Val(s)
   
   Print i
   
 '''End'''