Come convertire Standard Time Into decimale tempo con Visual Basic

April 16

Come convertire Standard Time Into decimale tempo con Visual Basic


tempo standard può essere convertito in tempo decimale utilizzando le funzioni built-in di Visual Basic. funziona Visual Basic con sia la data e l'ora insieme. Non è possibile separare la data e l'ora in due diversi valori indipendenti che possono essere manipolati separatamente. Questo significa che non esiste una sola funzione built-in che si esibirà il compito di convertire il tempo, in esclusiva. Tuttavia, è ancora possibile eseguire la conversione utilizzando funzioni built-in Visual Basic in combinazione con una singola linea di computazione.

istruzione

1 Conservare il tempo che si desidera in una variabile. Visual Basic ha un tipo di dati DateTime che viene utilizzato per rappresentare i valori di data e ora, come è descritto in "Visual Basic di Murach 2008." Utilizzare il comando Dim di Visual Basic di dichiarare il tempo come segue:
Dim DateOne Come DateTime = # 3: 15: 30 AM #
La data e ora sono rappresentati come una coppia, il che significa che se non si fornisce una data o l'ora Visual Basic sostituirà valori di riferimento che rappresenta la data o l'ora più piccolo. Visual Basic data di partenza è 12:00 1 gennaio 0001. Ad esempio, se si stampa la variabile sopra inizializzata allo schermo, si otterrebbe '1/01/0001 3:15:30'.

2 Convertire la variabile DateTime in una data e ora decimale utilizzando la funzione di ToOADate built-in (). Questa costruito in funzione convertirà il tempo di un tipo di dati double. Visita http://msdn.microsoft.com per ulteriori informazioni. Ad esempio, il codice per convertire una variabile DateTime in una doppia è:
Dim AData Come DateTime = # 3: 15: 30 AM #
Dim DbleTime As Double = ADate.ToOADate ()
Console.WriteLine (DbleTime)
Questo produce il seguente data e l'ora decimali:
'0.1357638 ...'

3 Estrarre il tempo standard da questo valore fluttuante moltiplicando il valore alla destra del punto decimale 24 con il seguente codice:

DbleTime * 24
Il risultato di questo esempio dovrebbe essere 3,25,833 mila.

Consigli e avvertenze

  • Se anche voi volete estrarre i minuti ed i secondi in formato decimale, quindi moltiplicare il numero a destra del decimale nel tempo del 60 per ottenere i minuti e moltiplicare il numero a destra del decimale nei verbali per 3600 per ottenere i secondi. In alternativa, Visual Basic fornisce la funzione DatePart () che estrae l'ora, i minuti ei secondi, che possono essere convertiti in formato decimale come segue:
  • Dim TheMinute As Double = CDbl (DatePart (DateInterval.Minute, DateOne)) / 60.0
  • Dim thesecond As Double = CDbl (DatePart (DateInterval.Second, DateOne)) / 3600.0