Sub vanuspaevades()
  'Päevi alates sünnipäevast
  MsgBox DateDiff("d", #5/3/1976#, Now)
End Sub

Sub aegUueAastani()
  'Tunde uue aastani
  MsgBox DateDiff("h", Now, DateSerial(Year(Now) + 1, 1, 1))
  'Uusaasta nädalapäev
  MsgBox Weekday(DateSerial(Year(Now) + 1, 1, 1), vbMonday)
End Sub

Sub täpneVanus()
  alg = DateValue(InputBox("Palun sünniaeg"))
  aastad = Year(Now) - Year(alg)
  kuud = Month(Now) - Month(alg)
  If kuud < 0 Then
    aastad = aastad - 1
    kuud = kuud + 12
  End If
  paevad = Day(Now) - Day(alg)
  If paevad < 0 Then
    kuud = kuud - 1
    paevad = paevad + DateDiff("d", DateSerial(Year(alg), Month(alg), 1), DateSerial(Year(alg), Month(alg) + 1, 1))
  End If
  kuulisa = ""
  If kuud <> 1 Then kuulisa = "d"
  If paevad <> 1 Then paevalisa = "a"
  If aastad <> 1 Then aastalisa = "t"
  MsgBox aastad & " aasta" & aastalisa & ", " & kuud & " kuu" & kuulisa & ", " & paevad & " päev" & paevalisa & "."
End Sub

Sub eelmiseAastaNädalapäev()
  'Nädalapäev eelmisel aastal samal ajal
  MsgBox Weekday(DateSerial(Year(Now) - 1, Month(Now), Day(Now)), vbMonday)
End Sub

Sub sonad()
  'Aeg sõnadena
  Dim kuud(12) As String, nadalapaevad(7) As String
  kuud(1) = "jaanuar"
  kuud(2) = "veebruar"
  kuud(3) = "märts"
  kuud(4) = "aprill"
  kuud(5) = "mai"
  kuud(6) = "juuni"
  kuud(7) = "juuli"
  kuud(8) = "august"
  kuud(9) = "september"
  kuud(10) = "oktoober"
  kuud(11) = "november"
  kuud(12) = "detsember"
  
  nadalapaevad(1) = "esmaspäev"
  nadalapaevad(2) = "teisipäev"
  nadalapaevad(3) = "kolmapäev"
  nadalapaevad(4) = "neljapäev"
  nadalapaevad(5) = "reede"
  nadalapaevad(6) = "laupäev"
  nadalapaevad(7) = "pühapäev"
  
  MsgBox nadalapaevad(Weekday(Now, vbMonday)) & ", " & Day(Now) & ". " & kuud(Month(Now))
End Sub