Hallo!
Das folgende Script scheint die in der If-Abfrage bestehende Berechnung auch dann durchzuführen, wenn die Bedingung nicht erfüllt ist
-------
vargeburtsjahr = Inputbox("Geben Sie bitte ihr Geburtsjahr ein!", "In welchem Jahr wurden Sie geboren?")vargeburtsmonat = Inputbox("Geburtsmonat?", "Monat?")vartaggeburt = Inputbox("Tag?", "An welchen Tag wurden Sie geboren?") 'Altersbestimmung vardatum = Now() varjahr = Year(vardatum) varmonat = Month(vardatum) vartag = Day(vardatum) varalter = varjahr - vargeburtsjahr IF varmonat < vargeburtsmonat THEN varalter=varalter-1END IF MsgBox varalter
----
Der Sinn des Scripts muss jetzt nicht unbedingt diskutiert werden... aber kann mir Jemand sagen, woran das liegt / liegen könnte?
Und falls noch jemand so lieb ist mir zu schreiben, wie ich mehrere Bedingungen abfrage (verschachteltw IFs?) wäre das seeehr toll
Liebe Grüße Max
Das folgende Script scheint die in der If-Abfrage bestehende Berechnung auch dann durchzuführen, wenn die Bedingung nicht erfüllt ist
-------
vargeburtsjahr = Inputbox("Geben Sie bitte ihr Geburtsjahr ein!", "In welchem Jahr wurden Sie geboren?")vargeburtsmonat = Inputbox("Geburtsmonat?", "Monat?")vartaggeburt = Inputbox("Tag?", "An welchen Tag wurden Sie geboren?") 'Altersbestimmung vardatum = Now() varjahr = Year(vardatum) varmonat = Month(vardatum) vartag = Day(vardatum) varalter = varjahr - vargeburtsjahr IF varmonat < vargeburtsmonat THEN varalter=varalter-1END IF MsgBox varalter
----
Der Sinn des Scripts muss jetzt nicht unbedingt diskutiert werden... aber kann mir Jemand sagen, woran das liegt / liegen könnte?
Und falls noch jemand so lieb ist mir zu schreiben, wie ich mehrere Bedingungen abfrage (verschachteltw IFs?) wäre das seeehr toll
Liebe Grüße Max