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

Annotation of /territories/Source/Utilities/TestDate

Parent Directory Parent Directory | Revision Log Revision Log


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

1 james 19 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