; ALTERSBERECHNUNG von Steven C aka $tAnkY

Print "Ich bin "+Alter(4,4,2006)+" Jahre alt!"
Input()

Function Alter(DD,MM,YYYY) ;Hier gibt man das Geb.-Datum an

   Jahr=SplitYear()
   Geburtstag=Jahr-YYYY
   Kontrolle$=Str$(MM)+TransDay$(DD)
   Kontrolle2$=SplitMonth$()+SplitDay$()
   If (Int%(Kontrolle$)<Int%(Kontrolle2$)) Geburtstag=Geburtstag-1 ;Eine Abfrage, falls man schon Geburtstag hatte
   Return Geburtstag

End Function

Function SplitYear() ;Extrahiert das Jahr aus CurrentDate$()

   Time$=CurrentDate$()
   Jahr=Int%(Right$(Time$,4))
   Return Jahr

End Function

Function SplitMonth$() ;Extrahiert den Monat aus CurrentDate$()

   Time$=CurrentDate$()
   Mon=Mid$(Time$,4,3)
   Month$=TransMonth$(Mon)
   Return Month$

End Function

Function SplitDay$() ;Extrahiert den Tag aus CurrentDate$()

   Time$=CurrentDate$()
   Day$=Left(Time$,2)
   Return Day$

End Function

Function TransMonth$(Month$) ;Wandelt den Monat aus SplitMonth$() um

   Select Month$
      Case "Jan" Return "1" : Case "Jul" Return "7"
      Case "Feb" Return "2" : Case "Aug" Return "8"
      Case "Mar" Return "3" : Case "Sep" Return "9"
      Case "Apr" Return "4" : Case "Oct" Return "10"
      Case "May" Return "5" : Case "Nov" Return "11"
      Case "Jun" Return "6" : Case "Dec" Return "12"
   End Select

End Function

;Wandelt den Tag in DD Format um, ansonsten gibts Fehler bei
;(Int%(Kontrolle$)<Int%(Kontrolle2$))
;zB statt 302 gibts dann 32 und das kann Fehler beim Check geben
Function TransDay$(DD)

   If DD<10 Return Str$("0"+DD)
   Return Str$(DD)

End Function