'Koostanud Janno Kriiska ja Mirgo Gorban
Sub aeg()

    MsgBox "Kella aeg: " & Time
    MsgBox "Kuupäev: " & Date
    MsgBox "Sekundid: " & Second(Time)
    MsgBox "Tunnid: " & Hour(Time)
    MsgBox "Minutid: " & Minute(Time)
    MsgBox "Aasta: " & Year(Date)
    MsgBox "Päev: " & Day(Date)
    MsgBox "Kuu: " & Month(Date)
    MsgBox "Nädalapäev: " & Weekday(15 - 4 - 2003, vbMonday)
    
End Sub
Sub aeg2()
'DateSerial(aasta, kuu, päev) >> väljastab numbri kuupäevana.

    MsgBox DateSerial(1990 - 10, 8 - 2, 1 - 1) '<-- väljastb vastava kuu esimesest päevast üks
                                               'päev enne (ehk siis eelmise kuu viimane p),
                                               'kaks kuud ja 10 aastat varem.
End Sub
Sub aeg3()
'TimeSerial(tunnid, minutid, sekundid) >> väljastab numbri kellaajana.

    MsgBox TimeSerial(Hour(Time) - 6, -15, 0)   '<-- praegusest kuus tundi ja 15 min varem
    
End Sub
Sub aeg4()
'DateValue("aasta, kuu, kuupäev") << teeb stringi kuupäevaks
    
    MsgBox Now
    MsgBox DateValue(Now)                   '<-- võtab välja aega tähistavad väärtused
    MsgBox DateValue("1981, 21, november")  '<-- teeb stringist kuupäeva
    
End Sub
Sub aeg5()
'DateAdd(intervall, number, date) << Saab kindlale ajale liita mingit aja intervalli
'intervalliks saab olla näiteks "yyyy" - aasta; "m" - kuu; "d" - päev; "h" - tund, "n" - min
'"s" - sekund

   MsgBox DateAdd("m", 3, Now)  '<-- Lisab praegusele hetkele 3 kuud

End Sub
Sub aeg6()
'MsgBox DateDiff("intervall", esimene kuupäev, teine kuupäev) << väljastab kahe kuupäeva vahelise
'aja vastavalt valitud intervallile: "yyyy" - aasta; "m" - kuu; "ww" - nädalad; "d" - päev;
'"h" - tund, "n" - min; "s" - sekund

    MsgBox DateDiff("yyyy", Now, "2006 / 2/ 12")

End Sub
Sub aeg7()
'MonthName(kuu number, kas lühendada=False/True) << vaikimisi on lühendamine False
    
    MsgBox MonthName(Month(Now), True)

End Sub
Sub aeg8()
'WeekdayName(Nädalapäeva nr., kas lühendatult False/True, nädala esimene päev) << kas lühendatult
'on vaikimisi False ja nädala esimeseks päevaks on vaikimisi pühapäev

    MsgBox WeekdayName(Weekday(Now, vbMonday), True, vbMonday)  '<-- väljastab tänase päeva nime
    
End Sub