Stap 3: De Code
1) de toepassing Kladblok opent:
Klik op Start = > Klik op programma's = > Bureau-accessoires = > Kladblok Klik
Of
Klik op Start = > Klik op ## Run = > Type Kladblok in het invoer vak uitvoeren en klik op OK.
2) Kopieer de code hieronder de apostrof en sterretjes lijn plak deze in Kladblok.
' *********************************************
Dim aankondiging
Notice = "Resterende vakanties van dit jaar" & Year(Date)
Als month(datum) 1 en datum = < DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3) dan
Vakantie = 1
ElseIf month(datum) = 1 en datum > DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3) dan
Vakantie = 2
ElseIf month(datum) = 2 en datum < DateSerial(Year(Date),2,14) dan
Vakantie = 2
ElseIf month(datum) = 2 en datum < DateSerial(Year(Date),3,1) - Weekday(DateSerial(Year(Date),3,1),3) - 7 dan
Vakantie = 3
ElseIf maand (datum) = 2 then
Vakantie = 4
ElseIf maand (datum) = 3 then
Vakantie = 4
ElseIf maand (datum) = 4 then
Vakantie = 4
ElseIf maand (datum) = 5 en datum < DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3) dan
Vakantie = 4
ElseIf maand (datum) = 5 en datum > DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3) dan
Vakantie = 5
ElseIf maand (datum) = 6 then
Vakantie = 5
ElseIf maand (datum) = 7 en datum < DateSerial(Year(Date),7,4) dan
Vakantie = 5
ElseIf maand (datum) = 7 en datum > DateSerial(Year(Date),7,4) dan
Vakantie = 6
ElseIf maand (datum) = 8 then
Vakantie = 6
ElseIf maand (datum) 9 en datum = < DateSerial(Year(Date),9,7) - Weekday(DateSerial(Year(Date),9,7),3) dan
Vakantie = 6
ElseIf maand (datum) = 9 en datum > DateSerial(Year(Date),9,7) - Weekday(DateSerial(Year(Date),9,7),3) dan
Vakantie = 7
ElseIf maand (datum) = 10 en datum < DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3) dan
Vakantie = 7
ElseIf maand (datum) = 10 en datum > DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3) dan
Vakantie = 8
ElseIf maand (datum) = 11 en datum < DateSerial(Year(Date),11,11) dan
Vakantie = 8
ElseIf maand (datum) = 11 en datum < DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6) dan
Vakantie = 9
ElseIf maand (datum) = 11 en datum > DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6) dan
Vakantie = 10
ElseIf maand (datum) = 12 en datum < DateSerial(Year(Date),12,25) dan
Vakantie = 10
Anders
Vakantie = 11
Eind als
Dim Hol(10)
' Januari
Hol(0) = DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3) & "-" & "MLK Day is in" & DateDiff("d",date,DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3)) & "dagen."
' Februari
Hol(1) = DateSerial(Year(Date),2,14) & "-" & "Valentine's Day is in" & DateDiff("d",date,DateSerial(Year(Date),2,14)) & "dagen."
Hol(2) = DateSerial(Year(Date),3,1) - Weekday(DateSerial(Year(Date),3,1),3) - 7 & "-" & "President's Day is in" & DateDiff ("d", datum, DateSerial(Year(Date),3,1) - Weekday(DateSerial(Year(Date),3,1),3) - 7) & "dagen."
' Kan
Hol(3) = DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3) & "-" & "Memorial Day is in" & DateDiff("d",date,DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3)) & "dagen."
' Juli
Hol(4) = DateSerial(Year(Date),7,4) & "-" & "4 juli is in" & DateDiff("d",date,DateSerial(Year(Date),7,4)) & "dagen."
' September
Hol(5) = DateSerial(Year(Date),9,8) - Weekday(DateSerial(Year(Date),9,8),3) & "-" & "Dag van de arbeid is in" & DateDiff("d",date,DateSerial(Year(Date),9,8) - Weekday(DateSerial(Year(Date),9,8),3)) & "dagen."
' Oktober
Hol(6) = DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3) & "-" & "Columbus Day is in" & DateDiff ("d", datum, DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3)) & "dagen."
' November
Hol(7) = DateSerial(Year(Date),11,11) & "-" & "Veterans' Day is in" & DateDiff("d",date,DateSerial(Year(Date),11,11)) & "dagen."
Hol(8) = DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6) & "-" & "Thanksgiving Day is in" & DateDiff("d",date,(DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6))) & "dagen."
' December
Hol(9) = DateSerial(Year(Date),12,25) & "-" & "Kerstdag is in" & DateDiff("d",date,DateSerial(Year(Date),12,25)) & "dagen."
Hol(10) = DateSerial (jaar (datum), 12, 31) & "-" & "New Year's Eve Day is in" DateDiff("d",date,DateSerial(Year(Date),12,31)) "dagen." & vbCrLf & "" & DateSerial(Year(DateAdd("yyyy",1,Date)), 1, 1) & "-" & "New Year's Day is in" & DateDiff("d",date,DateSerial(Year(DateAdd("yyyy",1,Date)), 1, 1)) & "dagen."
Selecteer zaak vakantie
Geval 1 Run(1)
Geval 2 Run(2)
Geval 3 Run(3)
Zaak 4 Run(4)
Geval 5 Run(5)
Zaak 6 Run(6)
Zaak 7 Run(7)
Zaak 8 Run(8)
Zaak 9 Run(9)
Zaak 10 Run(10)
Zaak 11 Run(11)
EINDE SELECTEREN
' Zaak verklaringen voor resultaat
Sub Run(var)
Instellen van WS = CreateObject("WScript.shell")
Select Case var
Geval 1 voor i = 0 tot en met 10
msg msg = & "" & hol(i) & vbCrLf & vbCrLf
Volgende
MsgBox "Vandaag is" datum & vbCrLf & vbCrLf & Msg, vbInformation, merken
Geval 2 voor i = 1 tot en met 10
msg msg = & "" & hol(i) & vbCrLf & vbCrLf
Volgende
MsgBox "Vandaag is" datum & vbCrLf & vbCrLf & Msg, vbInformation, merken
Kast 3 voor i = 2 tot en met 10
msg msg = & "" & hol(i) & vbCrLf & vbCrLf
Volgende
MsgBox "Vandaag is" datum & vbCrLf & vbCrLf & Msg, vbInformation, merken
4 Case For i = 3 tot en met 10
msg msg = & "" & hol(i) & vbCrLf & vbCrLf
Volgende
MsgBox "Vandaag is" datum & vbCrLf & vbCrLf & Msg, vbInformation, merken
5 case For i = 4 tot en met 10
msg msg = & "" & hol(i) & vbCrLf & vbCrLf
Volgende
MsgBox "Vandaag is" datum & vbCrLf & vbCrLf & Msg, vbInformation, merken
Kast 6 voor i = 5 tot en met 10
msg msg = & "" & hol(i) & vbCrLf & vbCrLf
Volgende
MsgBox "Vandaag is" datum & vbCrLf & vbCrLf & Msg, vbInformation, merken
7 Case For i = 6 tot en met 10
msg msg = & "" & hol(i) & vbCrLf & vbCrLf
Volgende
MsgBox "Vandaag is" datum & vbCrLf & vbCrLf & Msg, vbInformation, merken
8 Case voor ik = 7 tot en met 10
msg msg = & "" & hol(i) & vbCrLf & vbCrLf
Volgende
MsgBox "Vandaag is" datum & vbCrLf & vbCrLf & Msg, vbInformation, merken
Case 9 voor ik = 8 tot en met 10
msg msg = & "" & hol(i) & vbCrLf & vbCrLf
Volgende
MsgBox "Vandaag is" datum & vbCrLf & vbCrLf & Msg, vbInformation, merken
10 Case For i = 9 tot en met 10
msg msg = & "" & hol(i) & vbCrLf & vbCrLf
Volgende
MsgBox "Vandaag is" datum & vbCrLf & vbCrLf & Msg, vbInformation, merken
11 want ik kast = 10 tot en met 10
msg msg = & "" & hol(i) & vbCrLf & vbCrLf
Volgende
MsgBox "Vandaag is" datum & vbCrLf & vbCrLf & Msg, vbInformation, merken
Einde selecteren
End Sub
