XProfan

Proc Letzter

    declare Wahl!,Tag$,last$
    Parameters Monat%,Jahr%
    Wahl! = dt("setDate", Jahr%, Monat%, 28)
    Tag$=dt("DateTimeStr","dd", Wahl!)

    WhileNot Tag$="01"

        last$=dt("DateTimeStr","dd", Wahl!)
        Wahl!=dt("getDate", 0, Wahl! + 1)
        Tag$=dt("DateTimeStr","dd", Wahl!)

    EndWhile

    print "Letzter des Monats "+ Str$(Monat%)+"."+Str$(Jahr%)+" ist der:"+last$+"."

EndProc

Letzter 02,2012' Letzter dieses Monats
waitmouse

Proc Letzter

    declare Wahl!, last$ , M%, J%
    Parameters Monat%,Jahr%
    M% = Monat% + 1
    J% = Jahr%

    If M% = 13

        M% = 1
        J% = J% + 1

    EndIf

    Wahl! = dt("setDate", J%, M%, 1) - 1
    last$=dt("DateTimeStr","dd", Wahl!)
    print "Letzter des Monats "+ Str$(Monat%)+"."+Str$(Jahr%)+" ist der: +last$+"."

EndProc

Letzter 02,2012' Letzter dieses Monats
waitmouse

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 Letzter

    declare Wahl!, last$ , M%, J%
    Parameters Monat%,Jahr%
    M% = Monat% + 1
    J% = Jahr%

    If M% = 13

        M% = 1
        J% = J% + 1

    EndIf

    Wahl! = dt("setDate", J%, M%, 1) - 1
    last$=dt("DateTimeStr","dd", Wahl!)
    print "Letzter des Monats "+ Str$(Monat%)+"."+Str$(Jahr%)+" ist der: +last$+"."

EndProc

Letzter 02,2012' Letzter dieses Monats
waitmouse