ich hab mich mal etwas in VBS probiert und folgendes erstellt:
- Code: Alles auswählen
Dim Day, Month, Year, PreviousYear
Day = "5" 'Anpassen!!
Month = 10 'Anpassen!!
Year = 2006 'Anpassen!!
PreviousYear = 2005 'Anpassen!!
Monat = InputBox("Bitte geben Sie den Monat ihrer Geburt an!")
Jahr = InputBox("Bitte geben Sie das Jahr ihrer Geburt an!")
If Monat < Month Then
Jahr2 = Year - Jahr
End If
If Monat = Month Then
Tag = InputBox("An welchem Tag sind Sie geboren?")
End If
If Tag > Day Then
Jahr2 = PreviousYear - Jahr
End If
If Tag = Day Then
Jahr2 = Year - Jahr
End If
If Tag < Day Then
Jahr2 = Year - Jahr
End If
If Monat > Month Then
Jahr2 = PreviousYear - Jahr
End If
Text1 = "Sie sind "
Text2 = " Jahre alt!"
MsgBox Text1 & Jahr2 & Text2
If Tag = Day Then
MsgBox "Herzlichen Glückwunsch zum Geburtstag!"
End If
Leider funktioniert das ganze nicht besonders gut (es ist dem Programm gleichgültig ob man im 4., 10., oder 12. geboren ist.
Weiß jemand wo der Fehler steckt?
mfG Simbyte