Funzione Year
Restituisce l'anno da un numero seriale generato dalla funzione DateSerial o DateValue.
Sintassi:
Year (Numero)
Valore restituito:
Integer
Parametri:
Numero: espressione numerica intera contenente il numero seriale usato per calcolare l'anno.
Questa funzione è l'opposto di DateSerial e restituisce l'anno di una data seriale. Ad esempio, l'espressione:
Print Year(DateSerial(1994, 12, 20))
restituisce il valore 1994.
Esempio:
Sub ExampleYear
MsgBox "" & Year(Now) ,64,"Anno in corso"
End Sub