Infinity-Profan

// InfinityProfan Program
// Alter v0.0.1
tx1 ="Alter und Feier"
tx2 = "Geburtstag Format \nTT.MM.JJJJ "
msg.box tx1 tx2 ["OK"  "Abbrechen"]  "" @eingabebox

proc eingabebox btn txt

    gebDat  = txt
    gebUnix = time gebDat
    geb     = time 10 gebUnix// Datenbankformat yyyymmdd
    print "geb. Unix-Zeit " + gebUnix
    print "geb. Datenbankformat JJJMMTT " + geb
    print "Alter " + alter geb

endproc

proc alter geb

    dat   = time 10// 10: aktuelles Datum Datenbankformat yyyymmdd
    datJ  = str.mid dat 1 4
    gebJ  = str.mid geb 1 4
    datMT = str.mid dat 5 4
    gebMT = str.mid geb 5 4
    print "Dieses Jahr noch Geburtstag feiern? "
    print datMT<gebMT// Geburtstag steht dieses Jahr noch aus?
    print 0+(datMT<gebMT)// numerische Repräsentation ...
    return -(datMT<gebMT)+(datJ-gebJ)// ... folgt Minus wie bei Xprofan !

endproc