vb.net Year和DateSerial 返回指定日期的年份实例代码

以下是使用VB.NET的Year和DateSerial函数返回指定日期的年份的示例代码：

Dim myDate As Date = DateSerial(2022, 5, 15)
Dim year As Integer = Year(myDate)
Console.WriteLine(year) '输出结果为2022

在此示例中，我们使用DateSerial函数创建了一个日期对象myDate，该对象表示2022年5月15日。然后，我们使用Year函数从myDate中提取年份，并将其存储在整数变量year中。最后，我们使用Console.WriteLine函数将year打印到控制台窗口中。

请注意，DateSerial函数接受三个参数，分别是年份、月份和日期，用于创建一个日期对象。Year函数接受一个日期对象作为参数，并返回该日期对象的年份。