VBS datum Calculator App (6 / 8 stap)

Stap 6: De Code

2) Copy de code hieronder de apostrof en sterretjes lijn dan Paste in Kladblok.

' *********************************************

Dim aankondiging
Dim bericht
Dim Message1
Dim Message2

' Error Handling
On Error Resume Next

' Standaard Inputbox
Notice = "Mijn datum Counter"
Message = "Wat wilt u doen?" & vbcr & vbcr & _
"1 - dateren van vandaag door het aantal dagen" & vbcr & _
"2 - aantal dagen toekomst toe" & vbcr & _
"3 - aantal dagen tussen 2 datums" & vbcr & vbcr & _
"Het nummer van uw keuze."

' InputBox resultaten
Vraag = InputBox(message,Notice)
' Controleren op Null of leeg inputbox vervolgens annuleert
Als IsEmpty(Question) dan
WScript.quit()

ELSEIF Len(Question) = 0 THEN
WScript.quit()

ELSEIF vraag = 0 THEN
WScript.quit()

ANDERS
Selecteer geval vraag
Geval 1 Run(1)
Geval 2 Run(2)
Geval 3 Run(3)
EINDE SELECTEREN

END IF

' Case verklaringen voor resultaat uit de Inputbox
Sub Run(var)
Instellen van WS = CreateObject("WScript.shell")
Select Case var
Kast 1 bericht = inputbox ("hoeveel dagen wilt u rekenen?" & vbCrLf & vbCrLf & "positief of negatief getal.", "Geef het aantal dagen")
Message2 = weekdayname (weekdag (DateAdd ("d", bericht, datum))) & "," & DateAdd ("d", bericht, datum)
Message = bericht "dagen vanaf vandaag zullen" & vbCrLf & "" & Message2

Geval 2 Message1 = inputbox ("hoeveel dagen tot?" & vbCrLf & vbCrLf & "Geef de datum als m/d/jj of mm/dd/jjjj", "Enter toekomst datum")
Message2 = DateDiff ("d", datum, Message1)
Message = "Er zijn" Message2 "dagen tot" & vbCrLf & "" & Message1

Geval 3 Message1 = inputbox ("Begindatum?" & vbCrLf & vbCrLf & "Geef de datum als m/d/jj of mm/dd/jjjj", "Datum van")
Message = inputbox ("End Date?  "& vbCrLf & vbCrLf &"De datum invoert als m/d/jj of mm/dd/jjjj","datum")
Message2 = DateDiff ("d", Message1, bericht)
Message = "Er zijn" Message2 "Dagen" & vbCrLf & "" & Message1 & vbCrLf & "Naar" & bericht

EINDE SELECTEREN
End Sub

' Error message handling
IF Err.Number <> 0 dan
MsgBox "u iets verkeerd ingevoerd.  &Opnieuw.  ", 0 + 16," Ooopps... "
WScript.quit()
END IF

' Eindresultaten
MsgBox bericht, vbInformation, merken