Infinity-Profan

// InfinityProfan Program
// Alter v0.0.1
tx1 ="Alter y Feier"
tx2 = "Geburtstag Formato \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
    imprimir "geb. Unix-Tiempo " + gebUnix
    imprimir "geb. Datenbankformat JJJMMTT " + geb
    imprimir "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
    imprimir "Dieses Jahr todavía Geburtstag feiern? "
    imprimir datMT<gebMT// Geburtstag es dieses Jahr todavía de?
    imprimir 0+(datMT<gebMT)// numerische Repräsentation ...
    volver -(datMT<gebMT)+(datJ-gebJ)// ... folgt Minus como en Xprofan !

ENDPROC