vb System.DateTime.Year类(方法)实例源码

Dim moment As New System.DateTime(1999, 1, 13, 3, 57, 32, 11)

' Year gets 1999.
Dim year As Integer = moment.Year

' Month gets 1 (January).
Dim month As Integer = moment.Month

' Day gets 13.
Dim day As Integer = moment.Day

' Hour gets 3.
Dim hour As Integer = moment.Hour

' Minute gets 57.
Dim minute As Integer = moment.Minute

' Second gets 32.
Dim second As Integer = moment.Second

' Millisecond gets 11.
Dim millisecond As Integer = moment.Millisecond

' 导入命名空间
Imports System.Globalization
Imports System.Threading

Module YearMethodExample
   Public Sub Main()
      ' Initialize date variable and display year
      Dim date1 As Date = #01/01/2008 6:32AM#
      Console.WriteLine(date1.Year)       ' Displays 2008
      
      ' Set culture to th-TH
      Thread.CurrentThread.CurrentCulture = New CultureInfo("th-TH")
      Console.WriteLine(date1.Year)        ' Displays 2008
      
      ' display year using current culture's calendar 
      Dim thaiCalendar As Calendar = CultureInfo.CurrentCulture.Calendar
      Console.WriteLine(thaiCalendar.GetYear(date1))    ' Displays 2551
      
      ' display year using Persian calendar
      Dim persianCalendar As New PersianCalendar()
      Console.WriteLine(persianCalendar.GetYear(date1))  ' Displays 1386 
   End Sub
End Module

' 导入命名空间
Imports System

Public Class MainClass

    Shared Sub Main(ByVal args As String())
       Dim currentTime as System.DateTime = System.DateTime.Now
       Console.WriteLine("currentTime Year :" & currentTime.Year)
       Console.WriteLine("currentTime Month:" &  currentTime.Month)
       Console.WriteLine("currentTime Date:" & currentTime.Date)
       Console.WriteLine("currentTime Hour:" & currentTime.Hour)
       Console.WriteLine("currentTime Minute:" & currentTime.Minute)
       Console.WriteLine("currentTime Second:" & currentTime.Second)
    End Sub
End Class