Curious what we can do for you?
©2024 Blue Polar. All rights reserved.
Public Function Year(ByVal InputDate As Date) As Long
Returns the year part of the specified date/time (as yyyy)
Dim lDate As Date = #2099-12-31#
SendDebug Year(lDate) 'Prints 2099
SendDebug Month(lDate) 'Prints 12
SendDebug Day(lDate) 'Prints 31