Infinity-Profan

// InfinityProfan Program
// Alter v0.0.1
tx1 ="Alter et 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
    imprimer "geb. Unix-Zeit " + gebUnix
    imprimer "geb. Datenbankformat JJJMMTT " + geb
    imprimer "Alter " + alter geb

endproc

proc alter geb

    dat   = time 10// 10: aktuelles date 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
    imprimer "Dieses l'an encore anniversaire fêter? "
    imprimer datMT<gebMT// anniversaire steht cet l'an encore aus?
    imprimer 0+(datMT<gebMT)// numerische Repräsentation ...
    return -(datMT<gebMT)+(datJ-gebJ)// ... folgt Minus comment chez Xprofan !

endproc