| 1 |
DIM b% 100, t% 10 |
| 2 |
|
| 3 |
?t% = 3 |
| 4 |
SYS"OS_Word", 14, t% |
| 5 |
|
| 6 |
INPUT"Territory number: "z% |
| 7 |
PRINT |
| 8 |
|
| 9 |
SYS"Territory_ConvertStandardDateAndTime", z%, t%, b%, 100 TO r$ |
| 10 |
PRINT"Standard date and time: " + r$ + "" |
| 11 |
|
| 12 |
SYS"Territory_ConvertStandardDate", z%, t%, b%, 100 TO r$ |
| 13 |
PRINT"Standard date: " + r$ + "" |
| 14 |
|
| 15 |
SYS"Territory_ConvertStandardTime", z%, t%, b%, 100 TO r$ |
| 16 |
PRINT"Standard time: " + r$ + "" |
| 17 |
|
| 18 |
SYS"Territory_ConvertTimeToOrdinals", z%, t%, b% |
| 19 |
PRINT"Ordinals: centiseconds = "+STR$(b%!00) |
| 20 |
PRINT" seconds = "+STR$(b%!04) |
| 21 |
PRINT" minutes = "+STR$(b%!08) |
| 22 |
PRINT" hours = "+STR$(b%!12) |
| 23 |
PRINT" day = "+STR$(b%!16) |
| 24 |
PRINT" month = "+STR$(b%!20) |
| 25 |
PRINT" year = "+STR$(b%!24) |
| 26 |
PRINT" day of week = "+STR$(b%!28) |
| 27 |
PRINT" day of year = "+STR$(b%!32) |
| 28 |
|
| 29 |
PRINT |
| 30 |
|
| 31 |
PRINT"Converting 5-byte time to string to ordinals:" |
| 32 |
SYS"Territory_ConvertDateAndTime", z%, t%, b%, 100, "%w3, %dy-%m3-%ce%yr.%24:%mi:%se" TO r$ |
| 33 |
PRINT"String: " + r$ + "" |
| 34 |
SYS"Territory_ConvertTimeStringToOrdinals", z%, 3, r$, b% |
| 35 |
PRINT"Ordinals: centiseconds = "+STR$(b%!00) |
| 36 |
PRINT" seconds = "+STR$(b%!04) |
| 37 |
PRINT" minutes = "+STR$(b%!08) |
| 38 |
PRINT" hours = "+STR$(b%!12) |
| 39 |
PRINT" day = "+STR$(b%!16) |
| 40 |
PRINT" month = "+STR$(b%!20) |
| 41 |
PRINT" year = "+STR$(b%!24) |
| 42 |
|
| 43 |
PRINT |
| 44 |
|
| 45 |
REPEAT |
| 46 |
INPUT LINE "Format string: "f$ |
| 47 |
?t% = 3 |
| 48 |
SYS"OS_Word", 14, t% |
| 49 |
SYS"Territory_ConvertDateAndTime", z%, t%, b%, 100, f$ TO r$ |
| 50 |
PRINT"Result: " + r$ + "" |
| 51 |
PRINT |
| 52 |
UNTIL 0 |
| 53 |
|
Parent Directory
| 
Revision Log