Funzione TimeSerial (Visual Basic)
Aggiornamento: novembre 2007
Restituisce un valore Date che rappresenta l'ora, i minuti e i secondi specificati, con le informazioni relative alla data impostate sull'1 gennaio dell'anno 1.
Public Function TimeSerial( _
ByVal Hour As Integer, _
ByVal Minute As Integer, _
ByVal Second As Integer _
) As DateTime
Parametri
Hour
Obbligatorio. Espressione Integer contenente valori compresi tra 0 e 23. Vengono tuttavia accettati anche valori non compresi in questo intervallo.Minute
Obbligatorio. Espressione Integer contenente valori compresi tra 0 e 59. Vengono tuttavia accettati anche valori non compresi in questo intervallo. Il valore di Minute viene aggiunto all'ora calcolata e pertanto i minuti che precedono tale ora sono specificati da un valore negativo.Second
Obbligatorio. Espressione Integer contenente valori compresi tra 0 e 59. Vengono tuttavia accettati anche valori non compresi in questo intervallo. Il valore di Second viene aggiunto al minuto calcolato e pertanto i secondi che precedono tale minuto sono specificati da un valore negativo.
Eccezioni
Tipo di eccezione |
Numero di errore |
Condizione |
|---|---|---|
L'argomento non è compreso nell'intervallo tra -2.147.483.648 e 2.147.483.647. |
||
L'ora calcolata è minore dei numeri negativi corrispondenti a 24 ore. |
Se si esegue l'aggiornamento delle applicazioni Visual Basic 6.0 che utilizzano la gestione degli errori non strutturata, vedere la colonna "Numero di errore". È possibile confrontare il numero di errore con la Proprietà Number (oggetto Err). Se possibile, tuttavia, si consiglia di sostituire il controllo dell'errore con la procedura illustrata nella sezione Cenni preliminari sulla gestione strutturata delle eccezioni per Visual Basic.
Note
Nell'esempio riportato di seguito vengono illustrati valori negativi, zero e positivi per l'argomento. La funzione TimeSerial restituisce un'ora che corrisponde a tre ore e 15 minuti prima di mezzogiorno, ovvero le 08.45.00.
Dim alarmTime As Date = TimeSerial(12 - 3, -15, 0)
Se il valore Minute o Second supera l'intervallo normale, viene applicato all'unità immediatamente superiore nel modo appropriato. Il valore 75 minuti, ad esempio, viene considerato come un'ora e 15 minuti.
TimeSerial riduce i secondi totali modulo 86.400, che è il numero di secondi in un giorno. Pertanto, l'ora restituita è sempre compresa tra 00.00.00 e 23.59.59.
Il tipo di dati Date include i componenti della data. TimeSerial imposta tutti i componenti su 1, in modo che il valore restituito rappresenti il primo giorno dell'anno 1. Se tuttavia i valori degli argomenti determinano un superamento dell'ora calcolata di 24 ore, il giorno viene incrementato nel modo appropriato. Nell'esempio riportato di seguito i valori di Hour e Minute restituiscono come risultato un'ora combinata superiore a 24 ore.
MsgBox(TimeSerial(23, 75, 0))
' The preceding statement displays "1/2/0001 12:15:00 AM".
Se l'ora calcolata in base agli argomenti è negativa, le informazioni relative alla data vengono impostate su 1/1/0001 e le informazioni relative all'ora vengono modificate in modo da essere comprese tra 00.00.00 e 23.59.59. Se tuttavia l'ora calcolata è minore dei numeri negativi corrispondenti a 24 ore, si verifica un errore ArgumentOutOfRangeException.
Poiché ogni valore Date è supportato da una struttura System.DateTime, i relativi metodi offrono ulteriori opzioni per la creazione di un valore Date. È ad esempio possibile utilizzare uno dei costruttori DateTime di overload per inserire in una variabile Date i valori ottenuti con la combinazione di componenti desiderata. Nell'esempio riportato di seguito newDateTime viene impostato sul 6 maggio 1978 un decimo di secondo prima delle 8.30:
Dim newDateTime As Date = New Date(1978, 5, 6, 8, 29, 59, 900)
Esempio
Nell'esempio riportato di seguito la funzione TimeSerial viene utilizzata per restituire un'ora corrispondente all'ora, al minuto e al secondo specificati.
Dim thisTime As Date
thisTime = TimeSerial(16, 35, 17)
Requisiti
Spazio dei nomi: Microsoft.VisualBasic
Modulo: DateAndTime
**Assembly:**Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)
Vedere anche
Riferimenti
Funzione DateSerial (Visual Basic)
Funzione DateValue (Visual Basic)