Date luokka

Esimerkkejä Date luokan käytöstä.

        Dim s, r As Date
        Dim Tulos As Integer
        Dim TulosBitit() As Integer
        Dim Totuus As Boolean
        Dim Teksti As String
        s = #1/1/2003# : r = #1/30/2004#
        '
        'Montako päivää kuukaudessa
        Tulos = Date.DaysInMonth(2004, 1)
        'onko karkausvuosi
        Totuus = Date.IsLeapYear(2004)
        ' päivämäärä + aika
        r = Date.Now()
        ' tämä päivä
        r = Date.Today
        'universal aika
        r = Date.UtcNow()
        '
        ' Vertailu
        Tulos = s.CompareTo(r)
        ' Yhtäsuuruus
        Totuus = s.Equals(r)
        ' Tiiviste koodi
        Tulos = s.GetHashCode()
        ' tyyppi
        If s.GetType() Is Tulos.GetType Then s = #1/1/2003#
        ' tyyppikoodi
        Dim tc As System.TypeCode = s.GetTypeCode()
        '
        ' tekstiksi
        Teksti = s.ToString
        ' tekstistä
        s = Date.Parse(Teksti)
        'tarkka parsinta
        Dim myCulture As System.globalization.CultureInfo
        myCulture = New System.globalization.CultureInfo("fi-FI", False)
        r = Date.ParseExact(Teksti, "d.M.yyyy h:mm:ss", myCulture)
        '
        'rajat
        r = Date.MinValue ' vuosi 0
        r = Date.MaxValue ' vuosi 9999
        'tiedostoajasta
        Dim fileCreationTime As Long = 0
        r = Date.FromFileTime(fileCreationTime) '1.1.1601 klo 2.00