'*** v9.6 *** www.dieseyer.de *******************************
'
' Datei:  7s-AufEingabeWarten.vbs
' Autor:  dieseyer@gmx.de
' Auf:    www.dieseyer.de
'
'
'************************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

Dim WshShell, Tst
Set WshShell = WScript.CreateObject("WScript.Shell")
Tst = WshShell.Popup("Möchten Sie vom Skript Ihr Alter in Tagen wissen?" & vbCRLF & vbCRLF & "Wenn nicht, beendet sich das Skript in 7s", 7, WScript.ScriptName, 4 + 32)
If not Tst = vbYes Then 
	MsgBox "Das ist das Ende . . .", vbInformation, WScript.ScriptName
	WScript.Quit
End If

Tst = InputBox( "Bitte geben Sie Ihren Geburtstag ein:", WScript.Scriptname, "01.01.1999" )

If Tst = "" Then
	MsgBox "Das war keine gültige Eingabe!" & vbCRLF & vbCRLF & "Das ist das Ende . . .", vbInformation, WScript.ScriptName
	WScript.Quit
End If

MsgBox "Jeder, der am " & Tst & " geboren wurde, ist heute " & DateDiff( "d", CDate( Tst ), now() )  & " Tage alt.", , WScript.ScriptName