Étape 3: Le Code
1) ouvrir l’application bloc-notes :
Cliquez sur Démarrer = > programmes = > accessoires = > cliquez sur bloc-notes
Ou
Cliquez sur Démarrer = > cliquez exécuter = > tapez Notepad dans la zone de saisie exécuter puis cliquez sur OK.
2) de copier le code sous le seuil de l’Apostrophe et des astérisques puis collez-le dans le bloc-notes.
' *********************************************
Dim avis
Avis = « Vacances restant de cette année » & Year(Date)
Si Month(date) = 1 et Date < DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3) puis
Vacances = 1
Else if Month(date) = 1 et la Date > DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3) puis
Vacances = 2
Else if Month(date) = 2 et Date < DateSerial(Year(Date),2,14) puis
Vacances = 2
Else if Month(date) = 2 et Date < DateSerial(Year(Date),3,1) - Weekday(DateSerial(Year(Date),3,1),3) - 7 puis
Vacances = 3
ElseIf Month (date) = 2 then
Vacances = 4
ElseIf Month (date) = 3 then
Vacances = 4
ElseIf Month (date) = 4 then
Vacances = 4
ElseIf Month (date) = 5 et date < DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3) puis
Vacances = 4
ElseIf Month (date) = 5 et date > DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3) puis
Vacances = 5
ElseIf Month (date) = 6 then
Vacances = 5
ElseIf Month (date) = 7 et date < DateSerial(Year(Date),7,4) puis
Vacances = 5
ElseIf Month (date) = 7 et date > DateSerial(Year(Date),7,4) puis
Vacances = 6
ElseIf Month (date) = 8 puis
Vacances = 6
ElseIf Month (date) = 9 et date < DateSerial(Year(Date),9,7) - Weekday(DateSerial(Year(Date),9,7),3) puis
Vacances = 6
ElseIf Month (date) = 9 et date > DateSerial(Year(Date),9,7) - Weekday(DateSerial(Year(Date),9,7),3) puis
Vacances = 7
ElseIf Month (date) = 10 et date < DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3) puis
Vacances = 7
ElseIf Month (date) = 10 et date > DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3) puis
Vacances = 8
ElseIf Month (date) = 11 et date < DateSerial(Year(Date),11,11) puis
Vacances = 8
ElseIf Month (date) = 11 et date < DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6) puis
Vacances = 9
ElseIf Month (date) = 11 et date > DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6) puis
Vacances = 10
ElseIf Month (date) = 12 et date < DateSerial(Year(Date),12,25) puis
Vacances = 10
D’autre
Vacances = 11
Fin si
Dim Hol(10)
« Janvier
Hol(0) = DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3) & « - » & « Jour MLK est dans » & DateDiff("d",date,DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3)) & « jours ».
« Février
Hol(1) = DateSerial(Year(Date),2,14) & « - » & « Saint-Valentin est dans » & DateDiff("d",date,DateSerial(Year(Date),2,14)) & « jours ».
Hol(2) = DateSerial(Year(Date),3,1) - Weekday(DateSerial(Year(Date),3,1),3) - 7 & « - » & « Jour du Président est de » & DateDiff (« d », date, DateSerial(Year(Date),3,1) - Weekday(DateSerial(Year(Date),3,1),3) - 7) & « jours ».
' Peut
Hol(3) = DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3) & « - » & « Jour du souvenir est dans » & DateDiff("d",date,DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3)) & « jours ».
« Juillet
Hol(4) = DateSerial(Year(Date),7,4) & « - » & « est le 4 juillet dans » & DateDiff("d",date,DateSerial(Year(Date),7,4)) & « jours ».
« Septembre
Hol(5) = DateSerial(Year(Date),9,8) - Weekday(DateSerial(Year(Date),9,8),3) & « - » & « Fête du travail est en » & DateDiff("d",date,DateSerial(Year(Date),9,8) - Weekday(DateSerial(Year(Date),9,8),3)) & « jours ».
' Octobre
Hol(6) = DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3) & « - » & « Columbus Day est en » & DateDiff (« d », date, DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3)) & « jours ».
« Novembre
Hol(7) = DateSerial(Year(Date),11,11) & « - » & « Jour des anciens combattants est en » & DateDiff("d",date,DateSerial(Year(Date),11,11)) & « jours ».
Hol(8) = DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6) & « - » & « Jour de Thanksgiving est dans » & DateDiff("d",date,(DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6))) & « jours ».
« Décembre
Hol(9) = DateSerial(Year(Date),12,25) & « - » & « Jour de Noël est dans » & DateDiff("d",date,DateSerial(Year(Date),12,25)) & « jours ».
Hol(10) = DateSerial (année (Date), 12, 31) & "-" & "Eve Day du nouvel an est en" & DateDiff("d",date,DateSerial(Year(Date),12,31)) & "jours." & vbCrLf & "" & DateSerial(Year(DateAdd("yyyy",1,Date)), 1, 1) & "-" & "Jour de l’an est dans" & DateDiff("d",date,DateSerial(Year(DateAdd("yyyy",1,Date)), 1, 1)) & "jours".
Sélectionnez la Case vacances
Cas 1 Run(1)
Cas 2 Run(2)
Cas 3 Run(3)
Cas 4 Run(4)
Cas 5 Run(5)
Run(6) boîte de 6
Cas 7 Run(7)
Cas 8 Run(8)
Cas 9 Run(9)
Cas no 10 Run(10)
Cas no 11 Run(11)
END SELECT
« — Affaire des déclarations de résultat
Void Run(var)
Set WS = CreateObject("WScript.shell")
Sélectionnez la Case var
Cas 1 pour i = 0 à 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Prochaine
MsgBox « Est aujourd'hui » & Date & vbCrLf & vbCrLf & Msg, vbInformation, avis
2-affaire pour i = 1 à 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Prochaine
MsgBox « Est aujourd'hui » & Date & vbCrLf & vbCrLf & Msg, vbInformation, avis
Case 3 pour i = 2 à 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Prochaine
MsgBox « Est aujourd'hui » & Date & vbCrLf & vbCrLf & Msg, vbInformation, avis
Affaire 4 pour i = 3 à 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Prochaine
MsgBox « Est aujourd'hui » & Date & vbCrLf & vbCrLf & Msg, vbInformation, avis
Cas 5 pour i = 4 à 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Prochaine
MsgBox « Est aujourd'hui » & Date & vbCrLf & vbCrLf & Msg, vbInformation, avis
Case 6 For i = 5 à 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Prochaine
MsgBox « Est aujourd'hui » & Date & vbCrLf & vbCrLf & Msg, vbInformation, avis
7-affaire pour i = 6 à 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Prochaine
MsgBox « Est aujourd'hui » & Date & vbCrLf & vbCrLf & Msg, vbInformation, avis
8-affaire pour i = 7 à 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Prochaine
MsgBox « Est aujourd'hui » & Date & vbCrLf & vbCrLf & Msg, vbInformation, avis
9-affaire pour i = 8 à 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Prochaine
MsgBox « Est aujourd'hui » & Date & vbCrLf & vbCrLf & Msg, vbInformation, avis
10-affaire car moi = 9 à 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Prochaine
MsgBox « Est aujourd'hui » & Date & vbCrLf & vbCrLf & Msg, vbInformation, avis
Cas 11 For i = 10 de 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Prochaine
MsgBox « Est aujourd'hui » & Date & vbCrLf & vbCrLf & Msg, vbInformation, avis
End Select
End Sub