<%
: ?0+ ( u -- addr u ) \ определяем новое слово для корректировки числа меньшего 10
DUP
9 >
IF
N>S
ELSE
S>D <# #S 48 HOLD #>
THEN
;
%>
#( test_DD
NoActive
CREATE test_day 256 ALLOT
CREATE test_month 256 ALLOT
CREATE test_year 256 ALLOT
Action:
YYYY S>NUM MM S>NUM DD S>NUM -1 DAY+ \ поменяй "-1" на 29, например, что бы "откатиться на начало месяца
?0+ \ корректируем при необходимости день
test_day PLACE
?0+ \ корректируем при необходимости месяц
test_month PLACE
N>S test_year PLACE \ год просто запоминаем
TMSG: "Вчерашняя дата - tralala_%test_year COUNT%_%test_month COUNT%_%test_day COUNT%" 15
\ FILE-EXIST: "tralala_%test_year COUNT%_%test_month COUNT%_%test_day COUNT%" \ раскоментируй эту строчку и закомментируй предыдущую, если мешает
)# |
