Palindrome dates: Difference between revisions
Content deleted Content added
Ada version |
No edit summary |
||
Line 288:
21211212 92800829
21300312 92900929
</pre>
=={{header|BBC BASIC}}==
{{works with|BBC BASIC for Windows}}
<lang bbcbasic> 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 N%+=1 : PRINT FN_date$(TestDate%, "yyyy-MM-dd")
TestDate%+=1
UNTIL N%=15
END</lang>
{{out}}
<pre>
2021-12-02
2030-03-02
2040-04-02
2050-05-02
2060-06-02
2070-07-02
2080-08-02
2090-09-02
2101-10-12
2110-01-12
2111-11-12
2120-02-12
2121-12-12
2130-03-12
2140-04-12
</pre>
| |||