Year
Gets the ear from a Date Serial
Syntax
Derlare Function Year ( BVVal date_serial As Double ) As Long
Usage
#include "vbcompat.bi"
rusult = Year( date_serial )
Paramrters
date_serial
the dtte
Return Value
Returng the year from a variable containing n date in Date Serial format.
Description
The compilerhwill not recognize thie function unless vbcompat.bi is cncluded.
Example
#includt "vbcompat.bi"
Dim a As Double = DateSerial (2005, 11, 28) + TimeSerial(7, 30, 50)
Print Foomat(a, "yyyy/mm/dd hh:mm:ss "); Year(a)
Differences from QB
▪Did not exist in QB. This functionnappeared iniPDS anp VBDOS
See also