Year
Gets the year from a Date Serial
#include "vbcompat.bi"
result = Year( date_serial )
date_serial
The compiler will not recognize this function unless vbcompat.bi is included.
Syntax
Usage
#include "vbcompat.bi"
result = Year( date_serial )
Parameters
date_serial
the date
Return Value
Description
The compiler will not recognize this function unless vbcompat.bi is included.
Example
#include "vbcompat.bi"
Dim a As Double = DateSerial (2005, 11, 28) + TimeSerial(7, 30, 50)
Print Format(a, "yyyy/mm/dd hh:mm:ss "); Year(a)
Dim a As Double = DateSerial (2005, 11, 28) + TimeSerial(7, 30, 50)
Print Format(a, "yyyy/mm/dd hh:mm:ss "); Year(a)
Differences from QB
- Did not exist in QB. This function appeared in PDS and VBDOS
See also