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 Letzter

    PARAMETERS Monat%,Jahr%
    Declarar Monate$
    'Schaltjahr ermitteln
    Def IsLeapYear(1) If ((((%(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"
    Volver If (Monat% = 2,Str$(Int(Val(substr$(Monate$,Monat%,","))+IsLeapYear(Jahr%))),Str$(Int(Val(substr$(Monate$,Monat%,",")))))

ENDPROC

Imprimir "Letzter des Monats Februar 2012 es el "+Letzter(02,2012)+"."' Letzter dieses Monats
waitmouse

Proc Letzter

    Def IsLeapYear(1) If ((((%(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"
    Volver If (%(1) = 2,Str$(Int(Val(substr$($Monate,%(1),","))+IsLeapYear(%(2)))),Str$(Int(Val(substr$($Monate,%(1),",")))))

ENDPROC

Imprimir "Letzter des Monats Februar 2012 es el "+Letzter(02,2012)+"."' Letzter dieses Monats
waitmouse

Proc Letzter

    declarar Wahl!, last$ , M%, J%
    Parámetros 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!)
    imprimir "Letzter des Monats "+ Str$(Monat%)+"."+Str$(Jahr%)+" es el: +last$+"."

ENDPROC

Letzter 02,2012' Letzter dieses Monats
waitmouse