VBS Date Calculator App (6 / 8 étapes)

Étape 6: Le Code

2) Copier le code ci-dessous l’Apostrophe et les astérisques ligne puis Paste dans le bloc-notes.

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

Dim avis
Dim Message
Dim Message1
Dim Message2

' Gestion des erreurs
On Error Resume Next

"Inputbox standard
Avis = « Mon compteur de Date »
Message = « Que voulez-vous faire? » & vbcr & vbcr & _
« 1 - datent aujourd'hui par nombre de jours » & vbcr & _
« 2 - nombre de jours à la Date Future » & vbcr & _
« 3 - nombre de jours entre 2 Dates » & vbcr & vbcr & _
« Entrer le numéro de votre choix. »

« Résultats de InputBox
Question = InputBox(message,Notice)
« Recherchez Null ou vide inputbox puis annule
IF IsEmpty(Question) puis
WScript.quit()

Else If Len(Question) = 0 THEN
WScript.quit()

Question de ELSEIF = 0 THEN
WScript.quit()

D’AUTRE
Sélectionnez une Question affaire
Cas 1 Run(1)
Cas 2 Run(2)
Cas 3 Run(3)
END SELECT

END IF

"Des déclarations de cas de découlent de Inputbox
Void Run(var)
Set WS = CreateObject("WScript.shell")
Sélectionnez la Case var
Cas 1 Message = inputbox (« combien de jours vous voulez compter? » & vbCrLf & vbCrLf & "positifs ou négatifs nombre.", "Entrez le # de jours")
Message2 = weekdayname (jour de la semaine (DateAdd ("d", message, Date))) & «, » & DateAdd ("d", Message, Date)
Message = Message & « jours d’aujourd'hui sera » & vbCrLf & "" & Message2

Cas 2 Message1 = inputbox (« combien de jours avant? » & + "\n" & vbCrLf & "Entrer la Date m/d/AA ou mm/jj/aaaa", "Entrez la Date Future")
Message2 = DateDiff ("d", Date, Message1)
Message = « There are » Message2 & « jours jusqu'à » & vbCrLf & "" & Message1

Cas 3 Message1 = inputbox (« Date de début? » & vbCrLf & vbCrLf & "Entrer la Date m/d/AA ou mm/jj/aaaa", "Datent")
Message = inputbox ("Date de fin ?  "& vbCrLf & vbCrLf &"Entrer la Date m/d/AA ou mm/jj/aaaa","Date à")
Message2 = DateDiff ("d", Message1, Message)
Message = « There are » & Message2 & « Jours » & vbCrLf & « From » & Message1 & vbCrLf & « À » & Message

END SELECT
End Sub

' Gestion de message d’erreur
IF Err.Number <> 0 puis
MsgBox "vous avez entre quelque chose de mal.  Réessayez.  «, 0 + 16, "Ooopps... »
WScript.quit()
END IF

« Résultats définitifs
MsgBox Message, vbInformation, avis