Restituisce una variabile Variant del sottotipo Date per un anno, un mese e un giorno specificati.
Sintassi
DateSerial(year, month, day)
Argomenti:
Note
Per specificare una data, ad esempio 31 dicembre 1991, l'intervallo di numeri per ogni argomento DateSerial deve essere compreso nell'intervallo accettato per l'unità, ovvero 1-31 per i giorni e 1-12 per i mesi. È tuttavia possibile specificare date relative per ogni argomento utilizzando qualsiasi espressione numerica che rappresenti un certo numero di giorni, mesi o anni prima o dopo una determinata data.
Nell'esempio seguente vengono utilizzate espressioni numeriche anziché numeri di data assoluti. Nell'esempio la funzione DateSerial restituisce una data che è il giorno prima del primo giorno (1 – 1) di due mesi prima di agosto (8 – 2) di 10 anni prima del 1990 (1990 – 10), ovvero il 31 maggio 1980.
Dim MyDate1, MyDate2 MyDate1 = DateSerial(1970, 1, 1) Output: 01-Jan-70 MyDate2 = DateSerial(1990 - 10, 8 - 2, 1 - 1) 'Output: 31-May-80
Per l'argomento year, i valori compresi tra 0 e 99 (compreso) sono interpretati come gli anni 1900-1999. Per tutti gli altri argomenti year, utilizzare un anno completo di quattro cifre, ad esempio 1800.
Quando un argomento qualsiasi supera il relativo intervallo accettato, viene incrementato alla successiva unità più grande, a seconda dei casi. Ad esempio, se si specifica 35 giorni, questo valore viene valutato come un mese e un certo numero di giorni, a seconda di dove tale valore viene applicato nell'anno. Tuttavia, se un argomento non è compreso nell'intervallo tra -32.768 e 32.767 oppure se la data specificata dai tre argomenti, direttamente o mediante espressione, non è compresa nell'intervallo di date accettabili, si verifica un errore.
Il formato della data di output si basa sul formato di data breve del sistema.
Nell'esempio seguente viene illustrato l'uso della funzione DateSerial.
Esempio 1
Dim MyDate1 MyDate1 = DateSerial(1970, 1, 1) 'Output: 01-Jan-70
Esempio 2
Dim MyDate2 MyDate2 = DateSerial(1990 - 10, 8 - 2, 1 - 1) 'Output: 31-May-80
Esempio 3
Dim MyDate3 MyDate3 = DateSerial(2025, 15, 40) 'Output: 09-Apr-26
Esempio 4
Dim MyDate4 MyDate4 = DateSerial(2025, 1, 0) 'Output: 31-Dec-24
Esempio 5
Dim MyDate5 MyDate5 = DateSerial(50, 1, 1) 'Output: 01-Jan-50
Esempio 6
Dim MyDate6 MyDate6 = DateSerial(99, 12, 31) 'Output: 31-Dec-99