/[james]/territories/Source/Utilities/TestDate
ViewVC logotype

Contents of /territories/Source/Utilities/TestDate

Parent Directory Parent Directory | Revision Log Revision Log


Revision 19 - (show annotations) (download)
Tue Feb 11 11:05:25 2003 UTC (21 years, 10 months ago) by james
File size: 1583 byte(s)
Initial import.

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

  ViewVC Help
Powered by ViewVC 1.1.26