quote:

---

Zitat von Taurodir
War mal übrigens ne schöne Idee vom ZuX sicherlich, will auch sowas. :D

---

code\:
Sub WieAltIstGM()
Const lngGeburtsJahr                    As Long = 1979
Dim lngAktuellesJahr                    As Long
Dim bolHatteDieseJahrSchonGeburtstag    As Boolean
Dim lngAlter                            As Long

lngAktuellesJahr = CLng(Mid(Format(Date, DDMMYYYY), 7, 4))

If MsgBox("Hatte der große Gott dieses Jahr schon Geburtstag?", _
            vbQuestion + vbYesNo, "So?") = vbYes Then _
            bolHatteDieseJahrSchonGeburtstag = True Else _
            bolHatteDieseJahrSchonGeburtstag = False

lngAlter = lngAktuellesJahr - lngGeburtsJahr

If Not bolHatteDieseJahrSchonGeburtstag Then lngAlter = lngAlter - 1

MsgBox "Der einzige wahre Gott ist " & lngAlter & " Jahre alt!", vbInformation, "Das wahre Alter"

End Sub