Browse code
(datetime.tal) Added day of the year
Devine Lu Linvega authored on 16/04/2023 21:51:00
Showing 1 changed files
| ... | ... |
@@ -22,6 +22,10 @@ |
| 22 | 22 |
[ LIT2 00 -DateTime/second ] DEI pdec-pad |
| 23 | 23 |
#0a18 DEO |
| 24 | 24 |
|
| 25 |
+ ( doty ) |
|
| 26 |
+ ;dict/doty pstr |
|
| 27 |
+ .DateTime/doty DEI2 pdec |
|
| 28 |
+ [ LIT2 0a ". ] #18 DEO #18 DEO |
|
| 25 | 29 |
#800f DEO |
| 26 | 30 |
|
| 27 | 31 |
BRK |
| ... | ... |
@@ -82,4 +86,5 @@ JMP2r |
| 82 | 86 |
@dict |
| 83 | 87 |
&date "The 20 "date 20 "is: 20 $1 |
| 84 | 88 |
&time "The 20 "time 20 "is: 20 $1 |
| 89 |
+ &doty "The 20 "day 20 "of 20 "the 20 "year 20 "is: 20 $1 |
|
| 85 | 90 |
|