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%
    Declare 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"
    Return If (Monat% = 2,Str$(Int(Val(substr$(Monate$,Monat%,","))+IsLeapYear(Jahr%))),Str$(Int(Val(substr$(Monate$,Monat%,",")))))

EndProc

Print "Letzter des Monats Februar 2012 ist der "+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"
    Return If (%(1) = 2,Str$(Int(Val(substr$($Monate,%(1),","))+IsLeapYear(%(2)))),Str$(Int(Val(substr$($Monate,%(1),",")))))

EndProc

Print "Letzter des Monats Februar 2012 ist der "+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