XProfan

Proc Letzter

    'Schaltjahr ermitteln
    Def IsLeapYear(1) If ((((%(1) MOD 4) = 0  & (%(1) MOD 100) <> 0) | ((%(1) MOD 400) = 0)),1,0)
    Declare Monate$,Letzter%
    Monate$ = "31,28,31,30,31,30,31,31,30,31,30,31"
    PARAMETERS Monat%,Jahr%
    Decimals 0

    If Monat% = 2

        Print "Letzter des Monats "+ Str$(Monat%)+"."+Str$(Jahr%)+" ist der: "+str$(Val(substr$(Monate$,Monat%,","))+IsLeapYear(Jahr%)) +"."

    Else

        Print "Letzter des Monats "+ Str$(Monat%)+"."+Str$(Jahr%)+" ist der: "+substr$(Monate$,Monat%,",") +"."

    EndIf

EndProc

Letzter 02,2012' Letzter dieses Monats
waitmouse

Proc dernier

    PARAMETERS mois%,l'an%
    Déclarer Monate$
    'Schaltjahr ermitteln
    Def IsLeapYear(1) Si ((((%(1) MOD 4) = 0  & (%(1) MOD 100) <> 0) | ((%(1) MOD 400) = 0)),1,0)
    Monate$ = "31,28,31,30,31,30,31,31,30,31,30,31"
    Retour Si (mois% = 2,Str$(Int(Val(substr$(Monate$,mois%,»))+IsLeapYear(l'an%))),Str$(Int(Val(substr$(Monate$,mois%,»)))))

ENDPROC

Imprimer "Letzter des Monats février 2012 ist qui "+dernier(02,2012)+"."' dernier cet Monats
waitmouse

Proc dernier

    Def IsLeapYear(1) Si ((((%(1) MOD 4) = 0  & (%(1) MOD 100) <> 0) | ((%(1) MOD 400) = 0)),1,0)
    Def $Monate "31,28,31,30,31,30,31,31,30,31,30,31"
    Retour Si (%(1) = 2,Str$(Int(Val(substr$($Monate,%(1),»))+IsLeapYear(%(2)))),Str$(Int(Val(substr$($Monate,%(1),»)))))

ENDPROC

Imprimer "Letzter des Monats février 2012 ist qui "+dernier(02,2012)+"."' dernier cet Monats
waitmouse

Proc dernier

    declare l'élection!, charge$ , M%, J%
    Paramètres mois%,l'an%
    M% = mois% + 1
    J% = l'an%

    Si M% = 13

        M% = 1
        J% = J% + 1

    EndIf

    l'élection! = dt("setDate", J%, M%, 1) - 1
    charge$=dt("DateTimeStr","dd", l'élection!)
    imprimer "Letzter des Monats "+ Str$(mois%)+"."+Str$(l'an%)+" ist qui: +charge$+"."

ENDPROC

dernier 02,2012' dernier cet Monats
waitmouse