Module Dátum_kezelő_rutinok
#Region "Aktuális dátum, idő lekérdezése"

    'Az mai dátum-idő
    Function Most() As Date
        Most = Now()
    End Function

    'A mai dátum (rendszerdátum)
    Function MaiDátum() As Date
        MaiDátum = Today()
    End Function

    'A mostani idő (rendszeridő)
    Function Idő() As Date
        Idő = TimeOfDay()
    End Function
#End Region

#Region "Dátum, idő részei"
    'A dátum-idő részei függvények segítségével
    Function MostRészei_F() As String
        Dim Most As Date
        Dim Év, Hónap, Nap, Óra, Perc, Másodperc As Integer
        Most = Now()
        Év = Year(Most)
        Hónap = Month(Most)
        Nap = DateAndTime.Day(Most)
        Óra = Hour(Most)
        Perc = Minute(Most)
        Másodperc = Second(Most)
        MostRészei_F = ""
        MostRészei_F = MostRészei_F() & Most & vbNewLine
        MostRészei_F = MostRészei_F() & "Év: " & Év & vbNewLine
        MostRészei_F = MostRészei_F() & "Hónap: " & Hónap & vbNewLine
        MostRészei_F = MostRészei_F() & "Nap: " & Nap & vbNewLine
        MostRészei_F = MostRészei_F() & "Óra: " & Óra & vbNewLine
        MostRészei_F = MostRészei_F() & "Perc: " & Perc & vbNewLine
        MostRészei_F = MostRészei_F() & "Másodperc: " & Másodperc
    End Function

    'A dátum-idő részei függvények segítségével
    Function MostRészei_O() As String
        Dim Most As Date
        Dim Év, Hónap, Nap, Óra, Perc, Másodperc As Integer
        Dim Dátum As Date
        Dim idő As TimeSpan
        Most = Now()
        Dátum = Most.Date
        Idő = Most.TimeOfDay
        Év = Most.Year
        Hónap = Most.Month
        Nap = Most.Day
        Óra = Most.Hour
        Perc = Most.Minute
        Másodperc = Most.Second
        MostRészei_O = ""
        MostRészei_O = MostRészei_O & Most & vbNewLine
        MostRészei_O = MostRészei_O & "Dátum: " & Dátum & vbNewLine
        MostRészei_O = MostRészei_O & "Idő: " & idő.ToString & vbNewLine
        MostRészei_O = MostRészei_O & "Év: " & Év & vbNewLine
        MostRészei_O = MostRészei_O & "Hónap: " & Hónap & vbNewLine
        MostRészei_O = MostRészei_O & "Nap: " & Nap & vbNewLine
        MostRészei_O = MostRészei_O & "Óra: " & Óra & vbNewLine
        MostRészei_O = MostRészei_O & "Perc: " & Perc & vbNewLine
        MostRészei_O = MostRészei_O & "Másodperc: " & Másodperc
    End Function
#End Region

#Region "Dátum és idő előállítása számból, szövegből"

    'Dátum előállítása számokból
    Function DátumSzámokból() As Date
        Dim Év, Hónap, Nap As Integer
        Év = 2007
        Hónap = 12
        Nap = 24
        DátumSzámokból = DateSerial(Év, Hónap, Nap)
    End Function

    'Dátum előállítása szövegből
    Function DátumSzövegből() As Date
        Dim ÉvHónapNap As String
        ÉvHónapNap = "2007.12.30"
        DátumSzövegből = DateValue(ÉvHónapNap)
    End Function

    'Idő előállítása számokból
    Function IdőSzámokból() As Date
        Dim Óra, Perc, Másodperc As Integer
        Óra = 11
        Perc = 35
        Másodperc = 42
        IdőSzámokból = TimeSerial(Óra, Perc, Másodperc)
    End Function

    'Idő előállítása szövegből
    Function IdőSzövegből() As Date
        Dim ÓraPercMásodperc As String
        ÓraPercMásodperc = "16:24:42"
        IdőSzövegből = TimeValue(ÓraPercMásodperc)
    End Function

#End Region

#Region "Dátum formázás, szöveggé alakítás"

    'Dátum szöveggé alakítás (2007.11.17) 
    Function DátumSzöveggé() As String
        Dim Dátum As Date
        Dátum = Today()
        DátumSzöveggé = Dátum.ToString("yyyy.MM.dd")
        'DátumSzöveggé = Format(Dátum, "yyyy.MM.dd")
    End Function

    'Idő szöveggé alakítás (22:24:21)
    Function IdőSzöveggé() As String
        Dim Idő As Date
        Idő = TimeOfDay
        IdőSzöveggé = Idő.ToString("HH:mm:ss")
        'IdőSzöveggé = Format(Idő, "HH:mm:ss")
    End Function

    'A hét napjai magyarul (szombat)
    Function NapNév()
        Dim Dátum As Date
        Dátum = Today()
        NapNév = Dátum.ToString("dddd")
    End Function

    'A hét napja rövidítve (Szo)
    Function NapNévRöv()
        Dim Dátum As Date
        Dátum = Today()
        NapNévRöv = Dátum.ToString("ddd")
    End Function

#End Region

#Region "Dátumszámítások"

    '15 nap múlva mi lesz a dátum (DateAdd)
    Function MiLeszADátum_Nap() As Date
        MiLeszADátum_Nap = DateAdd(DateInterval.Day, 15, Today())
    End Function

    '15 hónap múlva mi lesz a dátum (DateAdd)
    Function MiLeszADátum_Hónap() As Date
        MiLeszADátum_Hónap = DateAdd(DateInterval.Month, 15, Today())
    End Function

    'Hány éves vagyok (DateDiff)
    Function Hányéves() As Long
        Dim SzületésiIdő As Date
        SzületésiIdő = #12/23/1981# 'Hónap, nap, év
        'SzületésiIdő = DateValue("1981.12.23") 'így kényelmesebb
        Hányéves = DateDiff(DateInterval.Year, SzületésiIdő, Today())
    End Function

    'Hány napja élek (DateDiff)
    Function HányNapja() As Long
        Dim SzületésiIdő As Date
        SzületésiIdő = #12/23/1981# 'Hónap, nap, év
        'SzületésiIdő = DateValue("1981.12.23") 'így kényelmesebb
        HányNapja = DateDiff(DateInterval.Day, SzületésiIdő, Today())
    End Function

    'Melyik évben születtem (DatePart)
    Function MelyÉvben()
        Dim SzületésiIdő As Date
        SzületésiIdő = #12/23/1981# 'Hónap, nap, év
        'SzületésiIdő = DateValue("1981.12.23") 'így kényelmesebb
        MelyÉvben = DatePart(DateInterval.Year, SzületésiIdő)
    End Function
#End Region
End Module