Date.Year

From Xojo Documentation

Read-Only Property (As Integer )
IntegerValue = aDate.Year

Supported for all project types and targets.

The year portion of the date.

Sample Code

The following code displays the current year.

Var d As Date = Date.Now
Label1.Value = d.Year.ToString