VBS datum räknaren App (6 / 8 steg)
Steg 6: Koden
Klicka på Start = > klicka program = > klicka tillbehör = > klicka anteckningar
Eller
Klicka på Start = > klicka köra = > typ anteckningar i kör rutan sedan klicka OK.
2) Ckopiera koden nedan apostrof och asterisker linje sedan Paste det i anteckningar.
' *********************************************
Dim varsel
Dim meddelande
Dim Message1
Dim Message2
"Felhantering
På fel återupptas nästa
"Standard Inputbox
Meddelande = "Min datum Counter"
Meddelande = "Vad vill du göra?" & vbcr & vbcr & _
"1 - datum från idag av numrera av dagar" & vbcr & _
"2 - antal dagar till framtiden" & vbcr & _
"3 - antal dagar mellan 2 datum" & vbcr & vbcr & _
"Ange numret på ditt val."
"InputBox resultat
Fråga = InputBox(message,Notice)
' Kontrollera om Null eller tomma inputbox sedan avbryter
OM IsEmpty(Question) sedan
WScript.quit()
ELSEIF Len(Question) = 0 då
WScript.quit()
ELSEIF fråga = 0 då
WScript.quit()
ANNAT
Välj ärende fråga
Fall 1 Run(1)
Fall 2 Run(2)
Fall 3 Run(3)
END SELECT
SLUT OM
"Case uttalanden för resultatet från Inputbox
Sub Run(var)
Ställa in WS = CreateObject("WScript.shell")
Välj mål var
Fall 1 meddelande = inputbox ("hur många dagar vill du räkna?" & vbCrLf & vbCrLf & "positiva eller negativa nummer.", "Ange # dagar")
Message2 = weekdayname (VECKODAG (DatumLäggTill ("d", meddelande, datum))) & "," & DatumLäggTill ("d", meddelande, datum)
Meddelande = meddelande & "dagar från och med idag kommer att" & vbCrLf & "" & Message2
Fall 2 Message1 = inputbox ("hur många dagar tills?" & vbCrLf & vbCrLf & "Enter datum som m/d/åå eller dd/mm/åååå", "Enter framtiden Date")
Message2 = DatumDiff ("d", datum, Message1)
Meddelande = "Det finns" & Message2 & "dagar tills" & vbCrLf & "" & Message1
Fall 3 Message1 = inputbox ("startdatum?" & vbCrLf & vbCrLf & "Enter datum som m/d/åå eller dd/mm/åååå", "Datum från")
Meddelande = inputbox ("Slutdatum?" & vbCrLf & vbCrLf & "Enter datum som m/d/åå eller dd/mm/åååå", "Datum")
Message2 = DatumDiff ("d", Message1, meddelande)
Meddelande = "Det finns" & Message2 & "Dagar" & vbCrLf & "Från" & Message1 & vbCrLf & "Till" & meddelande
END SELECT
End Sub
"Felhantering meddelande
OM Err.Number <> 0 sedan
MsgBox "du angett något felaktigt. Försök igen. ", 0 + 16," Ooopps... "
WScript.quit()
SLUT OM
"Final resultat
MsgBox meddelande, vbInformation, märker