Year

Home › Date and Time Functions › Year

Year

Returns the year of a date serial.

Syntax

Declare Function Year ( ByVal date_serial As Double ) As Long

Parameters

• date_serial

Description

The compiler will not recognize this function unless vbcompat.bi is included.

Return Value

Returns the year from a variable containing a date in Date Serial format.

Remarks

Usage

#include "vbcompat.bi"

result = Year( date_serial )

Differences from QB

• Did not exist in QB. This function appeared in PDS and VBDOS

Examples

#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)

---

Category: Date and Time Functions
Kind: function

---

Reproduced from the FreeBASIC Wiki Manual under the GNU Free Documentation License 1.3 — with no Invariant Sections, no Front-Cover Texts and no Back-Cover Texts. Copyright © the FreeBASIC project and wiki contributors. See License.