12 lines
322 B
Text
12 lines
322 B
Text
INSTALL @lib$ + "DATELIB"
|
|
DIM B% 8
|
|
TestDate%=FN_today
|
|
REPEAT
|
|
$B%=FN_date$(TestDate%, "yyyyMMdd")
|
|
FOR I%=0 TO 3
|
|
IF ?(B% + I%) <> ?(B% + 7 - I%) EXIT FOR
|
|
NEXT
|
|
IF I%=4 PRINT FN_date$(TestDate%, "yyyy-MM-dd")
|
|
TestDate%+=1
|
|
UNTIL VPOS=15
|
|
END
|