Dim jaar
Dim maand
Dim dag
Dim uur
Dim minuut
Dim boodschap
jaar = Year(Now)
maand = Month(Now)
dag = Day(Now)
uur = Hour(Now)
minuut = Minute(Now)
boodschap = "Het is nu " & Now
boodschap = boodschap & vbCrLf & "jaar: " & jaar
boodschap = boodschap & vbCrLf & "maand: " & maand
boodschap = boodschap & vbCrLf & "dag: " & dag
boodschap = boodschap & vbCrLf & "uur: " & uur
boodschap = boodschap & vbCrLf & "minuut: " & minuut
MsgBox boodschap