home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
utility
/
disk
/
egale_16
/
doku
/
beispie1.txt
next >
Wrap
Text File
|
1994-01-05
|
629b
|
36 lines
FUNCTION wochentag$(d$) ! Alt
LOCAL tag$,jahr,mon,tag,mo,jh,je,t
'
jahr=VAL(MID$(d$,7))
mon=VAL(MID$(d$,4,2))
tag=VAL(MID$(d$,1,2))
'
mo=mon-2
jh=jahr DIV 100
je=jahr MOD 100
IF mo<=0
mo=mo+12
je=je-1
ENDIF
IF je<0
je=99
jh=jh-1
ENDIF
t=tag+INT(2.6*mo-0.2)+INT(je/4+je)+(INT(jh/4)-2*jh)
WHILE t<0
t=t+7
WEND
t=t MOD 7
RESTORE wochentage
tag$="Sonntag"
FOR i%=1 TO t
READ tag$
NEXT i%
RETURN tag$
REM Hier kommen alle (!) Wochentage:
wochentage:
DATA Montag,Dienstag,Mittwoch,Donnerstag,Freitag,Samstag,Sonntag
ENDFUNC