XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Wochentag eines Datums bestimmen

PROC WOCHENTAG

    parameters _t%,_m%,_j%
    declare _wtc%,_wtk%
    _wtk% = int(0.6+1/_m%)
    _wtc%=int(13*(_m%+12*_wtk%+1)/5)+int(5*(_j%-_wtk%)/4)-int((_j%-_wtk%)/100)+int((_j%-_wtk%)/400)-(7*int((int(13*(_m%+12*_wtk%+1)/5)+int(5*(_j%-_wtk%)/4)-int((_j%-_wtk%)/100)+int((_j%-_wtk%)/400)+_t%-1)/7))+_t%-1

    if _wtc% = 0

        return Sonntag

    elseif _wtc% = 1

        return Montag

    elseif _wtc% = 2

        return Dienstag

    elseif _wtc% = 3

        return Mittwoch

    elseif _wtc% = 4

        return Donnerstag

    elseif _wtc% = 5

        return Freitag

    elseif _wtc% = 6

        return Samstag

    endif

ENDPROC

Beispiel
Cls
Wochentag 17,07,2004  Samstag
Print $(0)
WaitInput