Infinity-Profan

// InfinityProfan Program
// old v0.0.1
tx1 ="Alter and Feier"
tx2 = "Geburtstag stature \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-Time " + gebUnix
    print "geb. Datenbankformat JJJMMTT " + geb
    print "Alter " + old geb

endproc

proc old geb

    dat   = time 10// 10: News date Datenbankformat yyyymmdd
    datJ  = st.mid dat 1 4
    gebJ  = st.mid geb 1 4
    datMT = st.mid dat 5 4
    gebMT = st.mid geb 5 4
    print "Dieses year yet birthday celebrate? "
    print datMT<gebMT// birthday standing this year yet from?
    print 0+(datMT<gebMT)// numerische Repräsentation ...
    return -(datMT<gebMT)+(datJ-gebJ)// ... follows less How with XProfan !

endproc