Dim start As Date
Private Sub cmd100dagen_Click()
MsgBox "Over 100 dagen is het " & DateAdd("d", 100, start)
End Sub
Private Sub cmdNogTeGaan_Click()
Dim tot As Date
Dim buffer As String
Do
buffer = InputBox("Geef de datum")
Loop Until IsDate(buffer)
tot = CDate(buffer)
Dim tegaan As Long
tegaan = DateDiff("d", start, tot)
If tegaan < 0 Then
MsgBox "Er zijn " & Abs(tegaan) & " dagen verlopen sinds " & tot
Else
MsgBox "Er zijn " & tegaan & " dagen te gaan tot " & tot
End If
End Sub
Private Sub cmdVerlopenTijd_Click()
Dim verlopenseconden As Long
verlopenseconden = DateDiff("s", Now, start)
MsgBox "Er zijn " & verlopenseconden & " seconden verlopen"
End Sub
Private Sub cmdVrijdag13_Click()
Dim vr13 As Date
Dim jaar As Integer
Dim maand As Integer
Do
jaar = Year(start)
maand = Month(start)
dag = Day(start)
If dag < 13 Then 'de 13e is al voorbij
maand = maand + 1 'de volgende maand nemen
If maand > 12 Then 'december al voorbij?
maand = maand Mod 12
jaar = jaar + 1
End If
End If
vr13 = DateSerial(Year(start), Month(start), 13)
'MsgBox Format(vr13, "ddd")
Loop Until Format(vr13, "dddd") = "vrijdag"
MsgBox "De volgende vrijdag 13 is " & vr13
End Sub
Private Sub UserForm_Initialize()
start = Now
End Sub