Convertire data ed orario da formato Date in un numero

La conversione di un valore di tipo Date, oppure di una stringa contenente data ed orario rappresentati nel formato Date (ossia: "giorno/mese/anno ore:minuti:secondi") locale, prevede l'uso di alcune funzioni.

Conversione di data ed orario contenuti in una variabile di tipo Date

In questo caso la conversione avverrà nel seguente modo:

numero = CFloat(Val(Str(variabile_Date)))

Esempio:

Public Sub Main()

 dim numero As Float

  numero = CFloat(Val(Str(Now)))

  Print numero

End

Conversione di data ed orario contenuti in una variabile di tipo Stringa

Se la data e l'orario sono contenuti in una variabile di tipo Stringa e rappresentati nel dovuto formato Date, allora la conversione avverrà nel seguente modo:

numero = CFloat(Val(variabile_Stringa))

Esempio:

Public Sub Main()

 Dim s As String
 Dim numero As Float

  s = "21/08/1969 11:21:41"

  numero = CFloat(Val(s))

  Print numero

End