VBS Holiday Countdown (3 / 5 steg)
Steg 3: Koden
1) öppna programmet Anteckningar:
Klicka på Start = > program = > tillbehör = > Klicka på anteckningar
Eller
Klicka på Start = > klicka kör = > typ anteckningar i kör rutan sedan klicka OK.
2) kopiera koden under raden apostrof och asterisker sedan klistra in den i anteckningar.
' *********************************************
Dim varsel
Meddelande = "Återstående semester i år" & Year(Date)
Om Month(date) = 1 och datum < DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3) sedan
Semester = 1
ElseIf Month(date) = 1 och datum > DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3) sedan
Semester = 2
ElseIf Month(date) = 2 och datum < DateSerial(Year(Date),2,14) sedan
Semester = 2
ElseIf Month(date) = 2 och datum < DateSerial(Year(Date),3,1) - Weekday(DateSerial(Year(Date),3,1),3) - 7 sedan
Semester = 3
ElseIf månad (datum) = 2 då
Semester = 4
ElseIf månad (datum) = 3 då
Semester = 4
ElseIf månad (datum) = 4 då
Semester = 4
ElseIf månad (datum) = 5 och datum < DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3) sedan
Semester = 4
ElseIf månad (datum) = 5 och datum > DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3) sedan
Semester = 5
ElseIf månad (datum) = 6 då
Semester = 5
ElseIf månad (datum) = 7 och datum < DateSerial(Year(Date),7,4) sedan
Semester = 5
ElseIf månad (datum) = 7 och datum > DateSerial(Year(Date),7,4) sedan
Semester = 6
ElseIf månad (datum) = 8 då
Semester = 6
ElseIf månad (datum) = 9 och datum < DateSerial(Year(Date),9,7) - Weekday(DateSerial(Year(Date),9,7),3) sedan
Semester = 6
ElseIf månad (datum) = 9 och datum > DateSerial(Year(Date),9,7) - Weekday(DateSerial(Year(Date),9,7),3) sedan
Semester = 7
ElseIf månad (datum) = 10 och datum < DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3) sedan
Semester = 7
ElseIf månad (datum) = 10 och datum > DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3) sedan
Semester = 8
ElseIf månad (datum) = 11 och datum < DateSerial(Year(Date),11,11) sedan
Semester = 8
ElseIf månad (datum) = 11 och datum < DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6) sedan
Semester = 9
ElseIf månad (datum) = 11 och datum > DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6) sedan
Semester = 10
ElseIf månad (datum) = 12 och datum < DateSerial(Year(Date),12,25) sedan
Semester = 10
Annat
Semester = 11
Slut om
Dim Hol(10)
' Januari
Hol(0) = DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3) & "-" & "MLK dag är i" & DateDiff("d",date,DateSerial(Year(Date),1,22) - Weekday(DateSerial(Year(Date),1,22),3)) & "dagar".
"Februari
Hol(1) = DateSerial(Year(Date),2,14) & "-" & "Alla hjärtans dag är" & DateDiff("d",date,DateSerial(Year(Date),2,14)) & "dagar".
Hol(2) = DateSerial(Year(Date),3,1) - Weekday(DateSerial(Year(Date),3,1),3) - 7 & "-" & "Presidentens dag är i" & DatumDiff ("d", datum, DateSerial(Year(Date),3,1) - Weekday(DateSerial(Year(Date),3,1),3) - 7) & "dagar."
"Kan
Hol(3) = DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3) & "-" & "Memorial Day är" & DateDiff("d",date,DateSerial(Year(Date),6,1) - Weekday(DateSerial(Year(Date),6,1),3)) & "dagar".
"Juli
Hol(4) = DateSerial(Year(Date),7,4) & "-" & "den 4 juli är i" & DateDiff("d",date,DateSerial(Year(Date),7,4)) & "dagar".
"September
Hol(5) = DateSerial(Year(Date),9,8) - Weekday(DateSerial(Year(Date),9,8),3) & "-" & "Labor Day är" & DateDiff("d",date,DateSerial(Year(Date),9,8) - Weekday(DateSerial(Year(Date),9,8),3)) & "dagar".
"Oktober
Hol(6) = DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3) & "-" & "Columbus Day är i" & DatumDiff ("d", datum, DateSerial(Year(Date),10,15) - Weekday(DateSerial(Year(Date),10,15),3)) & "dagar".
"November
Hol(7) = DateSerial(Year(Date),11,11) & "-" & "Veterans' Day är" & DateDiff("d",date,DateSerial(Year(Date),11,11)) & "dagar".
Hol(8) = DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6) & "-" & "Thanksgiving Day är" & DateDiff("d",date,(DateSerial(Year(Date),11,29) - Weekday(DateSerial(Year(Date),11,29),6))) & "dagar".
"December
Hol(9) = DateSerial(Year(Date),12,25) & "-" & "Juldagen är i" & DateDiff("d",date,DateSerial(Year(Date),12,25)) & "dagar".
Hol(10) = DateSerial (år (datum), 12, 31) & "-" & "New Year's Eve Day är" & DateDiff("d",date,DateSerial(Year(Date),12,31)) & "dagar." & vbCrLf & "" & DateSerial(Year(DateAdd("yyyy",1,Date)), 1, 1) & "-" & "New Year's Day är" & DateDiff("d",date,DateSerial(Year(DateAdd("yyyy",1,Date)), 1, 1)) & "dagar."
Välj ärende Holiday
Fall 1 Run(1)
Fall 2 Run(2)
Fall 3 Run(3)
Fall 4 Run(4)
Fall 5 Run(5)
Fall 6 Run(6)
Ärende 7 Run(7)
Ärende 8 Run(8)
Ärende 9 Run(9)
Ärende 10 Run(10)
Fallet 11 Run(11)
END SELECT
"Case uttalanden för resultatet
Sub Run(var)
Ställa in WS = CreateObject("WScript.shell")
Välj mål var
Fall 1 för jag = 0 till 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Nästa
MsgBox "Idag är" & datum & vbCrLf & vbCrLf & Msg, vbInformation, märker
Mål 2 för i = 1 till 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Nästa
MsgBox "Idag är" & datum & vbCrLf & vbCrLf & Msg, vbInformation, märker
Mål 3 för i = 2 till 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Nästa
MsgBox "Idag är" & datum & vbCrLf & vbCrLf & Msg, vbInformation, märker
Fall 4 för jag = 3-10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Nästa
MsgBox "Idag är" & datum & vbCrLf & vbCrLf & Msg, vbInformation, märker
Fall 5 för jag = 4-10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Nästa
MsgBox "Idag är" & datum & vbCrLf & vbCrLf & Msg, vbInformation, märker
Fall 6 för jag = 5-10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Nästa
MsgBox "Idag är" & datum & vbCrLf & vbCrLf & Msg, vbInformation, märker
Fall 7 för jag = 6-10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Nästa
MsgBox "Idag är" & datum & vbCrLf & vbCrLf & Msg, vbInformation, märker
Fall 8 för i = 7-10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Nästa
MsgBox "Idag är" & datum & vbCrLf & vbCrLf & Msg, vbInformation, märker
Fall 9 för jag = 8 till 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Nästa
MsgBox "Idag är" & datum & vbCrLf & vbCrLf & Msg, vbInformation, märker
Ärende 10 för i = 9 till 10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Nästa
MsgBox "Idag är" & datum & vbCrLf & vbCrLf & Msg, vbInformation, märker
Mål 11 för i = 10-10
MSG = msg & "" & hol(i) & vbCrLf & vbCrLf
Nästa
MsgBox "Idag är" & datum & vbCrLf & vbCrLf & Msg, vbInformation, märker
End Select
End Sub