Главная Обзор Помощь
Вход
eric
/
Topspeed_JPI
1
0
Ответвить 0
Файлы Задачи 0 Запросы на слияние 0 Вики
Ветка: master
Ветки Метки
Topspeed_JPI
/
TS-V3
/
MODBASE
/
DATEFUNC.LST

DATEFUNC.LST 49 KB
Постоянная ссылка История Исходник

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE DateFunctions;
    4. 

  4.     2  (*
    5. 

  5.     3   *  REPERTOIRE
    6. 

  6.     4   *  Release 1.6
    7. 

  7.     5   *  By Charles Bradford and Cole Brecheen
    8. 

  8.     6   *  (c) Copyright 1985-1992 PMI
    9. 

  9.     7   *  Green Bay, WI
    10. 

  10.     8   *  All rights reserved
    11. 

  11.     9   *  (414) 468=6040
    12. 

  12.    10   *
    13. 

  13.    11   *  $Header:   D:/logfiles/mods/datefunc.mov   1.4   17 Mar 1991 17:53:06   coleb  $
    14. 

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  
    18. 

  18.    16  (*EntryDiag:
    19. 

  19.    17  IMPORT Diagnostics;
    20. 

  20.    18  :EntryDiag*)
    21. 

  21.    19  
    22. 

  22.    20  IMPORT M2Strings;
    23. 

  23.    21  IMPORT PosUtils;
    24. 

  24.    22  IMPORT StrConv;
    25. 

  25.    23  IMPORT StrEdit;
    26. 

  26.    24  
    27. 

  27.    25  VAR
    28. 

  28.    26    Initialized : BOOLEAN;
    29. 

  29.    27  
    30. 

  30.    28  TYPE
    31. 

  31.    29    RepType = (DB, US, UK, USMilitary, Correspondence);
    32. 

  32.    30  
    33. 

  33.    31  
    34. 

  34.    32  VAR
    35. 

  35.    33    monthtotal: ARRAY [1..12] OF CARDINAL;
    36. 

  36. *****                          ^ not supported yet
    37. 

  37. *****                                 ^ not supported yet
    38. 

  38.    34    monthtotalleap : ARRAY[1..12] OF CARDINAL;
    39. 

  39. *****                              ^ not supported yet
    40. 

  40. *****                                     ^ not supported yet
    41. 

  41.    35    monthsize: ARRAY [1..12] OF CARDINAL;
    42. 

  42. *****                         ^ not supported yet
    43. 

  43. *****                                ^ not supported yet
    44. 

  44.    36  
    45. 

  45.    37  
    46. 

  46.    38  PROCEDURE InitMonthTotal;
    47. 

  47.    39    BEGIN
    48. 

  48.    40      monthtotal[1] := 0;       monthtotalleap[1]  := 0;
    49. 

  49. *****      ^ not supported yet
    50. 

  50. *****                  ^ not supported yet
    51. 

  51. *****                                ^ not supported yet
    52. 

  52. *****                                                ^ not supported yet
    53. 

  53.    41      monthtotal[2] := 31;      monthtotalleap[2]  := 31;
    54. 

  54. *****      ^ not supported yet
    55. 

  55. *****                  ^ not supported yet
    56. 

  56. *****                                ^ not supported yet
    57. 

  57. *****                                                ^ not supported yet
    58. 

  58.    42      monthtotal[3] := 59;      monthtotalleap[3]  := 60;
    59. 

  59. *****      ^ not supported yet
    60. 

  60. *****                  ^ not supported yet
    61. 

  61. *****                                ^ not supported yet
    62. 

  62. *****                                                ^ not supported yet
    63. 

  63.    43      monthtotal[4] := 90;      monthtotalleap[4]  := 91;
    64. 

  64. *****      ^ not supported yet
    65. 

  65. *****                  ^ not supported yet
    66. 

  66. *****                                ^ not supported yet
    67. 

  67. *****                                                ^ not supported yet
    68. 

  68.    44      monthtotal[5] := 120;     monthtotalleap[5]  := 121;
    69. 

  69. *****      ^ not supported yet
    70. 

  70. *****                  ^ not supported yet
    71. 

  71. *****                                ^ not supported yet
    72. 

  72. *****                                                ^ not supported yet
    73. 

  73.    45      monthtotal[6] := 151;     monthtotalleap[6]  := 152;
    74. 

  74. *****      ^ not supported yet
    75. 

  75. *****                  ^ not supported yet
    76. 

  76. *****                                ^ not supported yet
    77. 

  77. *****                                                ^ not supported yet
    78. 

  78.    46      monthtotal[7] := 181;     monthtotalleap[7]  := 182;
    79. 

  79. *****      ^ not supported yet
    80. 

  80. *****                  ^ not supported yet
    81. 

  81. *****                                ^ not supported yet
    82. 

  82. *****                                                ^ not supported yet
    83. 

  83.    47      monthtotal[8] := 212;     monthtotalleap[8]  := 213;
    84. 

  84. *****      ^ not supported yet
    85. 

  85. *****                  ^ not supported yet
    86. 

  86. *****                                ^ not supported yet
    87. 

  87. *****                                                ^ not supported yet
    88. 

  88.    48      monthtotal[9] := 243;     monthtotalleap[9]  := 244;
    89. 

  89. *****      ^ not supported yet
    90. 

  90. *****                  ^ not supported yet
    91. 

  91. *****                                ^ not supported yet
    92. 

  92. *****                                                ^ not supported yet
    93. 

  93.    49      monthtotal[10] := 273;    monthtotalleap[10] := 274;
    94. 

  94. *****      ^ not supported yet
    95. 

  95. *****                   ^ not supported yet
    96. 

  96. *****                                ^ not supported yet
    97. 

  97. *****                                                 ^ not supported yet
    98. 

  98.    50      monthtotal[11] := 304;    monthtotalleap[11] := 305;
    99. 

  99. *****      ^ not supported yet
    100. 

  100. *****                   ^ not supported yet
    101. 

  101. *****                                ^ not supported yet
    102. 

  102. *****                                                 ^ not supported yet
    103. 

  103.    51      monthtotal[12] := 334;    monthtotalleap[12] := 335;
    104. 

  104. *****      ^ not supported yet
    105. 

  105. *****                   ^ not supported yet
    106. 

  106. *****                                ^ not supported yet
    107. 

  107. *****                                                 ^ not supported yet
    108. 

  108.    52    END InitMonthTotal;
    109. 

  109. *****        ^ not supported yet
    110. 

  110.    53  
    111. 

  111.    54  (*
    112. 

  112.    55  PROCEDURE DateToStr2(d: Date; VAR s: ARRAY OF CHAR;
    113. 

  113.    56      representation: RepType);
    114. 

  114.    57    VAR daystr, mostr: ARRAY [0..1] OF CHAR;
    115. 

  115.    58        yrstr: ARRAY [0..3] OF CHAR;
    116. 

  116.    59  
    117. 

  117.    60    BEGIN
    118. 

  118.    61    END DateToStr2;
    119. 

  119.    62  *)
    120. 

  120.    63  
    121. 

  121.    64  
    122. 

  122.    65  PROCEDURE DateToStr(d: Date; VAR s: ARRAY OF CHAR; VAR OK: BOOLEAN);
    123. 

  123. *****                         ^ undeclared identifier
    124. 

  124. *****                                               ^ not supported yet
    125. 

  125.    66  
    126. 

  126.    67    VAR i: CARDINAL;
    127. 

  127.    68  
    128. 

  128.    69    PROCEDURE PutDigits(n: CARDINAL);
    129. 

  129.    70      BEGIN
    130. 

  130.    71        IF n < 10 THEN
    131. 

  131.    72          s[i] := '0';
    132. 

  132. *****          ^ not supported yet
    133. 

  133. *****             ^ not supported yet
    134. 

  134.    73          INC(i);
    135. 

  135. *****          ^ undeclared identifier
    136. 

  136. *****               ^ not supported yet
    137. 

  137.    74          s[i] := CHR(n + 48);
    138. 

  138. *****          ^ not supported yet
    139. 

  139. *****             ^ not supported yet
    140. 

  140. *****                  ^ undeclared identifier
    141. 

  141. *****                            ^ not supported yet
    142. 

  142.    75          INC(i);
    143. 

  143. *****          ^ undeclared identifier
    144. 

  144. *****               ^ not supported yet
    145. 

  145.    76        ELSE
    146. 

  146.    77            n := n MOD 100;
    147. 

  147.    78            s[i] := CHR((n DIV 10) + 48);
    148. 

  148. *****            ^ not supported yet
    149. 

  149. *****               ^ not supported yet
    150. 

  150. *****                    ^ undeclared identifier
    151. 

  151. *****                                       ^ not supported yet
    152. 

  152.    79            INC(i);
    153. 

  153. *****            ^ undeclared identifier
    154. 

  154. *****                 ^ not supported yet
    155. 

  155.    80            s[i] := CHR((n MOD 10) + 48);
    156. 

  156. *****            ^ not supported yet
    157. 

  157. *****               ^ not supported yet
    158. 

  158. *****                    ^ undeclared identifier
    159. 

  159. *****                                       ^ not supported yet
    160. 

  160.    81            INC(i);
    161. 

  161. *****            ^ undeclared identifier
    162. 

  162. *****                 ^ not supported yet
    163. 

  163.    82        END;
    164. 

  164.    83      END PutDigits;
    165. 

  165. *****          ^ not supported yet
    166. 

  166.    84  
    167. 

  167.    85    BEGIN
    168. 

  168.    86      IF (HIGH(s) < 7) OR (NOT ValidDate(d))THEN
    169. 

  169. *****          ^ undeclared identifier
    170. 

  170. *****               ^ not supported yet
    171. 

  171. *****                               ^ undeclared identifier
    172. 

  172. *****                                         ^ not supported yet
    173. 

  173.    87        OK := FALSE;
    174. 

  174.    88        FOR i := 0 TO HIGH(s) DO
    175. 

  175. *****                      ^ undeclared identifier
    176. 

  176. *****                           ^ not supported yet
    177. 

  177.    89          s[i] := '*';
    178. 

  178. *****          ^ not supported yet
    179. 

  179. *****             ^ not supported yet
    180. 

  180.    90        END;
    181. 

  181.    91      ELSE
    182. 

  182.    92        OK := TRUE;
    183. 

  183.    93        i := 0;
    184. 

  184.    94        PutDigits(d.mo);
    185. 

  185. *****        ^ not supported yet
    186. 

  186. *****                  ^ not supported yet
    187. 

  187. *****                    ^ not supported yet
    188. 

  188.    95        s[i] := '-';
    189. 

  189. *****        ^ not supported yet
    190. 

  190. *****           ^ not supported yet
    191. 

  191.    96        INC(i);
    192. 

  192. *****        ^ undeclared identifier
    193. 

  193. *****             ^ not supported yet
    194. 

  194.    97        PutDigits(d.day);
    195. 

  195. *****        ^ not supported yet
    196. 

  196. *****                  ^ not supported yet
    197. 

  197. *****                    ^ not supported yet
    198. 

  198.    98        s[i] := '-';
    199. 

  199. *****        ^ not supported yet
    200. 

  200. *****           ^ not supported yet
    201. 

  201.    99        INC(i);
    202. 

  202. *****        ^ undeclared identifier
    203. 

  203. *****             ^ not supported yet
    204. 

  204.   100        PutDigits(d.yr-1900);
    205. 

  205. *****        ^ not supported yet
    206. 

  206. *****                  ^ not supported yet
    207. 

  207. *****                    ^ not supported yet
    208. 

  208. *****                           ^ not supported yet
    209. 

  209.   101        IF HIGH(s) > 8 THEN
    210. 

  210. *****           ^ undeclared identifier
    211. 

  211. *****                ^ not supported yet
    212. 

  212.   102          s[i] := 0C;
    213. 

  213. *****          ^ not supported yet
    214. 

  214. *****             ^ not supported yet
    215. 

  215.   103        END;
    216. 

  216.   104      END;
    217. 

  217.   105    END DateToStr;
    218. 

  218. *****        ^ not supported yet
    219. 

  219.   106  
    220. 

  220.   107  
    221. 

  221.   108    PROCEDURE Digit(c : CHAR) : BOOLEAN;
    222. 

  222.   109      BEGIN
    223. 

  223.   110        RETURN (c>='0') AND (c<='9');
    224. 

  224.   111      END Digit;
    225. 

  225. *****          ^ not supported yet
    226. 

  226.   112  
    227. 

  227.   113  PROCEDURE StrToDate(s: ARRAY OF CHAR; VAR d: Date; VAR OK: BOOLEAN);
    228. 

  228. *****                                  ^ not supported yet
    229. 

  229. *****                                               ^ undeclared identifier
    230. 

  230.   114    (* expects mm dd yy *)
    231. 

  231.   115    VAR i, yeardigits: CARDINAL;
    232. 

  232.   116    BEGIN
    233. 

  233.   117      i := 0;
    234. 

  234.   118      WHILE (i <= HIGH(s)) AND (NOT Digit(s[i])) DO
    235. 

  235. *****                  ^ undeclared identifier
    236. 

  236. *****                       ^ not supported yet
    237. 

  237. *****                                    ^ not supported yet
    238. 

  238. *****                                          ^ not supported yet
    239. 

  239. *****                                             ^ not supported yet
    240. 

  240.   119        INC(i)
    241. 

  241. *****        ^ undeclared identifier
    242. 

  242. *****             ^ not supported yet
    243. 

  243.   120      END;
    244. 

  244.   121      d.mo := 0; d.yr := 0; d.day := 0;
    245. 

  245. *****      ^ not supported yet
    246. 

  246. *****        ^ not supported yet
    247. 

  247. *****                 ^ not supported yet
    248. 

  248. *****                   ^ not supported yet
    249. 

  249. *****                            ^ not supported yet
    250. 

  250. *****                              ^ not supported yet
    251. 

  251.   122      WHILE (i <= HIGH(s)) AND (Digit(s[i])) DO
    252. 

  252. *****                  ^ undeclared identifier
    253. 

  253. *****                       ^ not supported yet
    254. 

  254. *****                                ^ not supported yet
    255. 

  255. *****                                      ^ not supported yet
    256. 

  256. *****                                         ^ not supported yet
    257. 

  257.   123        d.mo := d.mo * 10 + (ORD(s[i])-48);
    258. 

  258. *****        ^ not supported yet
    259. 

  259. *****          ^ not supported yet
    260. 

  260. *****                ^ not supported yet
    261. 

  261. *****                  ^ not supported yet
    262. 

  262. *****                             ^ undeclared identifier
    263. 

  263. *****                                 ^ not supported yet
    264. 

  264. *****                                    ^ not supported yet
    265. 

  265.   124        INC(i);
    266. 

  266. *****        ^ undeclared identifier
    267. 

  267. *****             ^ not supported yet
    268. 

  268.   125      END;
    269. 

  269.   126      INC(i);
    270. 

  270. *****      ^ undeclared identifier
    271. 

  271. *****           ^ not supported yet
    272. 

  272.   127      WHILE (i <= HIGH(s)) AND (Digit(s[i])) DO
    273. 

  273. *****                  ^ undeclared identifier
    274. 

  274. *****                       ^ not supported yet
    275. 

  275. *****                                ^ not supported yet
    276. 

  276. *****                                      ^ not supported yet
    277. 

  277. *****                                         ^ not supported yet
    278. 

  278.   128        d.day := d.day * 10 + (ORD(s[i])-48);
    279. 

  279. *****        ^ not supported yet
    280. 

  280. *****          ^ not supported yet
    281. 

  281. *****                 ^ not supported yet
    282. 

  282. *****                   ^ not supported yet
    283. 

  283. *****                               ^ undeclared identifier
    284. 

  284. *****                                   ^ not supported yet
    285. 

  285. *****                                      ^ not supported yet
    286. 

  286.   129        INC(i);
    287. 

  287. *****        ^ undeclared identifier
    288. 

  288. *****             ^ not supported yet
    289. 

  289.   130      END;
    290. 

  290.   131      INC(i);
    291. 

  291. *****      ^ undeclared identifier
    292. 

  292. *****           ^ not supported yet
    293. 

  293.   132      yeardigits := 0;
    294. 

  294.   133      WHILE (i <= HIGH(s)) AND (Digit(s[i])) DO
    295. 

  295. *****                  ^ undeclared identifier
    296. 

  296. *****                       ^ not supported yet
    297. 

  297. *****                                ^ not supported yet
    298. 

  298. *****                                      ^ not supported yet
    299. 

  299. *****                                         ^ not supported yet
    300. 

  300.   134        d.yr := d.yr * 10 + (ORD(s[i])-48);
    301. 

  301. *****        ^ not supported yet
    302. 

  302. *****          ^ not supported yet
    303. 

  303. *****                ^ not supported yet
    304. 

  304. *****                  ^ not supported yet
    305. 

  305. *****                             ^ undeclared identifier
    306. 

  306. *****                                 ^ not supported yet
    307. 

  307. *****                                    ^ not supported yet
    308. 

  308.   135        INC(i);
    309. 

  309. *****        ^ undeclared identifier
    310. 

  310. *****             ^ not supported yet
    311. 

  311.   136        INC(yeardigits);
    312. 

  312. *****        ^ undeclared identifier
    313. 

  313. *****                      ^ not supported yet
    314. 

  314.   137      END;
    315. 

  315.   138      IF yeardigits <= 2 THEN
    316. 

  316.   139        IF d.yr<40
    317. 

  317. *****           ^ not supported yet
    318. 

  318. *****             ^ not supported yet
    319. 

  319.   140        THEN
    320. 

  320.   141          INC(d.yr,2000);
    321. 

  321. *****          ^ undeclared identifier
    322. 

  322. *****              ^ not supported yet
    323. 

  323. *****                ^ not supported yet
    324. 

  324. *****                       ^ not supported yet
    325. 

  325.   142        ELSE
    326. 

  326.   143          INC(d.yr, 1900);
    327. 

  327. *****          ^ undeclared identifier
    328. 

  328. *****              ^ not supported yet
    329. 

  329. *****                ^ not supported yet
    330. 

  330. *****                        ^ not supported yet
    331. 

  331.   144        END;
    332. 

  332.   145      END;
    333. 

  333.   146      IF NOT ValidDate(d) THEN
    334. 

  334. *****             ^ undeclared identifier
    335. 

  335. *****                       ^ not supported yet
    336. 

  336.   147        d.yr := 0; d.mo := 0; d.day := 0;
    337. 

  337. *****        ^ not supported yet
    338. 

  338. *****          ^ not supported yet
    339. 

  339. *****                   ^ not supported yet
    340. 

  340. *****                     ^ not supported yet
    341. 

  341. *****                              ^ not supported yet
    342. 

  342. *****                                ^ not supported yet
    343. 

  343.   148        OK := FALSE
    344. 

  344.   149      ELSE
    345. 

  345.   150        OK := TRUE;
    346. 

  346.   151      END;
    347. 

  347.   152    END StrToDate;
    348. 

  348. *****        ^ not supported yet
    349. 

  349.   153  
    350. 

  350.   154  
    351. 

  351.   155    PROCEDURE StrToDate2( DateStr: ARRAY OF CHAR; EuropeanStyle: BOOLEAN;
    352. 

  352. *****                                            ^ not supported yet
    353. 

  353.   156        VAR day, month, year: CARDINAL ): BOOLEAN;
    354. 

  354.   157      VAR
    355. 

  355.   158        spot: CARDINAL;
    356. 

  356.   159        separator: ARRAY [0..0] OF CHAR;
    357. 

  357. *****                             ^ not supported yet
    358. 

  358. *****                                   ^ not supported yet
    359. 

  359.   160      BEGIN
    360. 

  360.   161        StrEdit.CrunchBlanks( DateStr );
    361. 

  361. *****        ^ not supported yet
    362. 

  362. *****                ^ not supported yet
    363. 

  363. *****                              ^ not supported yet
    364. 

  364.   162        separator[0] := '/';
    365. 

  365. *****        ^ not supported yet
    366. 

  366. *****                   ^ not supported yet
    367. 

  367.   163        IF NOT PosUtils.PresentPos( separator, DateStr, spot ) THEN
    368. 

  368. *****               ^ not supported yet
    369. 

  369. *****                        ^ not supported yet
    370. 

  370. *****                                    ^ not supported yet
    371. 

  371. *****                                               ^ not supported yet
    372. 

  372. *****                                                             ^ not supported yet
    373. 

  373.   164          separator[0] := '-';
    374. 

  374. *****          ^ not supported yet
    375. 

  375. *****                     ^ not supported yet
    376. 

  376.   165          IF NOT PosUtils.PresentPos( separator, DateStr, spot ) THEN
    377. 

  377. *****                 ^ not supported yet
    378. 

  378. *****                          ^ not supported yet
    379. 

  379. *****                                      ^ not supported yet
    380. 

  380. *****                                                 ^ not supported yet
    381. 

  381. *****                                                               ^ not supported yet
    382. 

  382.   166            separator[0] := ':';
    383. 

  383. *****            ^ not supported yet
    384. 

  384. *****                       ^ not supported yet
    385. 

  385.   167            IF NOT PosUtils.PresentPos( separator, DateStr, spot ) THEN
    386. 

  386. *****                   ^ not supported yet
    387. 

  387. *****                            ^ not supported yet
    388. 

  388. *****                                        ^ not supported yet
    389. 

  389. *****                                                   ^ not supported yet
    390. 

  390. *****                                                                 ^ not supported yet
    391. 

  391.   168              separator[0] := ' ';
    392. 

  392. *****              ^ not supported yet
    393. 

  393. *****                         ^ not supported yet
    394. 

  394.   169              IF NOT PosUtils.PresentPos( separator, DateStr, spot ) THEN
    395. 

  395. *****                     ^ not supported yet
    396. 

  396. *****                              ^ not supported yet
    397. 

  397. *****                                          ^ not supported yet
    398. 

  398. *****                                                     ^ not supported yet
    399. 

  399. *****                                                                   ^ not supported yet
    400. 

  400.   170                RETURN FALSE;
    401. 

  401.   171              END;
    402. 

  402.   172            END;
    403. 

  403.   173          END;
    404. 

  404.   174        END;
    405. 

  405.   175        IF NOT StrConv.StrToCardinal( DateStr, 0, day ) THEN
    406. 

  406. *****               ^ not supported yet
    407. 

  407. *****                       ^ not supported yet
    408. 

  408. *****                                      ^ not supported yet
    409. 

  409. *****                                                      ^ not supported yet
    410. 

  410.   176          RETURN FALSE;
    411. 

  411.   177        END;
    412. 

  412.   178        IF NOT StrConv.StrToCardinal( DateStr, spot + 1, month ) THEN
    413. 

  413. *****               ^ not supported yet
    414. 

  414. *****                       ^ not supported yet
    415. 

  415. *****                                      ^ not supported yet
    416. 

  416. *****                                                               ^ not supported yet
    417. 

  417.   179          RETURN FALSE;
    418. 

  418.   180        END;
    419. 

  419.   181        IF (month > 12) OR (NOT EuropeanStyle) THEN
    420. 

  420.   182          (* use year as a temp to do swap *)
    421. 

  421.   183          year := day;
    422. 

  422.   184          day := month;
    423. 

  423.   185          month := year;
    424. 

  424.   186        END;
    425. 

  425.   187        spot := PosUtils.Positn( separator, DateStr, spot + 1 );
    426. 

  426. *****                ^ not supported yet
    427. 

  427. *****                         ^ not supported yet
    428. 

  428. *****                                 ^ not supported yet
    429. 

  429. *****                                            ^ not supported yet
    430. 

  430. *****                                                              ^ not supported yet
    431. 

  431.   188        IF spot > HIGH(DateStr) THEN
    432. 

  432. *****                  ^ undeclared identifier
    433. 

  433. *****                       ^ not supported yet
    434. 

  434.   189          RETURN FALSE;
    435. 

  435.   190        END;
    436. 

  436.   191        IF NOT StrConv.StrToCardinal( DateStr, spot + 1, year ) THEN
    437. 

  437. *****               ^ not supported yet
    438. 

  438. *****                       ^ not supported yet
    439. 

  439. *****                                      ^ not supported yet
    440. 

  440. *****                                                              ^ not supported yet
    441. 

  441.   192          RETURN FALSE;
    442. 

  442.   193        END;
    443. 

  443.   194        RETURN TRUE;
    444. 

  444.   195      END StrToDate2;
    445. 

  445. *****          ^ not supported yet
    446. 

  446.   196  
    447. 

  447.   197  
    448. 

  448.   198  PROCEDURE Day(d: Date): CARDINAL;
    449. 

  449. *****                   ^ undeclared identifier
    450. 

  450.   199    BEGIN
    451. 

  451.   200      IF ValidDate(d) THEN
    452. 

  452. *****         ^ undeclared identifier
    453. 

  453. *****                   ^ not supported yet
    454. 

  454.   201        RETURN d.day
    455. 

  455. *****               ^ not supported yet
    456. 

  456. *****                 ^ not supported yet
    457. 

  457.   202      ELSE
    458. 

  458.   203        RETURN 0
    459. 

  459.   204      END;
    460. 

  460.   205    END Day;
    461. 

  461. *****        ^ not supported yet
    462. 

  462.   206  
    463. 

  463.   207  
    464. 

  464.   208  PROCEDURE LeapYear(year: CARDINAL): BOOLEAN;
    465. 

  465.   209    BEGIN
    466. 

  466.   210      RETURN ((year MOD 4 = 0) AND (year MOD 100 # 0)) OR (year MOD 400 = 0)
    467. 

  467.   211    END LeapYear;
    468. 

  468. *****        ^ not supported yet
    469. 

  469.   212  
    470. 

  470.   213  
    471. 

  471.   214  PROCEDURE DayOfWeek(d: Date; VAR wkday: ARRAY OF CHAR);
    472. 

  472. *****                         ^ undeclared identifier
    473. 

  473. *****                                                   ^ not supported yet
    474. 

  474.   215    VAR
    475. 

  475.   216      daytable: ARRAY [1..12] OF CARDINAL;
    476. 

  476. *****                          ^ not supported yet
    477. 

  477. *****                                 ^ not supported yet
    478. 

  478.   217      centurytable: ARRAY [1..5] OF CARDINAL;
    479. 

  479. *****                              ^ not supported yet
    480. 

  480. *****                                    ^ not supported yet
    481. 

  481.   218      century, yearincent, result, i: CARDINAL;
    482. 

  482.   219  
    483. 

  483.   220    PROCEDURE InitCent;
    484. 

  484.   221      BEGIN
    485. 

  485.   222        centurytable[1] := 1;
    486. 

  486. *****        ^ not supported yet
    487. 

  487. *****                      ^ not supported yet
    488. 

  488.   223        centurytable[2] := 2;
    489. 

  489. *****        ^ not supported yet
    490. 

  490. *****                      ^ not supported yet
    491. 

  491.   224        centurytable[3] := 0;
    492. 

  492. *****        ^ not supported yet
    493. 

  493. *****                      ^ not supported yet
    494. 

  494.   225        centurytable[4] := 6;
    495. 

  495. *****        ^ not supported yet
    496. 

  496. *****                      ^ not supported yet
    497. 

  497.   226        centurytable[5] := 4;
    498. 

  498. *****        ^ not supported yet
    499. 

  499. *****                      ^ not supported yet
    500. 

  500.   227      END InitCent;
    501. 

  501. *****          ^ not supported yet
    502. 

  502.   228  
    503. 

  503.   229    PROCEDURE InitDayTable;
    504. 

  504.   230      BEGIN
    505. 

  505.   231        daytable[1] := 0;
    506. 

  506. *****        ^ not supported yet
    507. 

  507. *****                  ^ not supported yet
    508. 

  508.   232        daytable[2] := 3;
    509. 

  509. *****        ^ not supported yet
    510. 

  510. *****                  ^ not supported yet
    511. 

  511.   233        daytable[3] := 3;
    512. 

  512. *****        ^ not supported yet
    513. 

  513. *****                  ^ not supported yet
    514. 

  514.   234        daytable[4] := 6;
    515. 

  515. *****        ^ not supported yet
    516. 

  516. *****                  ^ not supported yet
    517. 

  517.   235        daytable[5] := 1;
    518. 

  518. *****        ^ not supported yet
    519. 

  519. *****                  ^ not supported yet
    520. 

  520.   236        daytable[6] := 4;
    521. 

  521. *****        ^ not supported yet
    522. 

  522. *****                  ^ not supported yet
    523. 

  523.   237        daytable[7] := 6;
    524. 

  524. *****        ^ not supported yet
    525. 

  525. *****                  ^ not supported yet
    526. 

  526.   238        daytable[8] := 2;
    527. 

  527. *****        ^ not supported yet
    528. 

  528. *****                  ^ not supported yet
    529. 

  529.   239        daytable[9] := 5;
    530. 

  530. *****        ^ not supported yet
    531. 

  531. *****                  ^ not supported yet
    532. 

  532.   240        daytable[10] := 0;
    533. 

  533. *****        ^ not supported yet
    534. 

  534. *****                   ^ not supported yet
    535. 

  535.   241        daytable[11] := 3;
    536. 

  536. *****        ^ not supported yet
    537. 

  537. *****                   ^ not supported yet
    538. 

  538.   242        daytable[12] := 5;
    539. 

  539. *****        ^ not supported yet
    540. 

  540. *****                   ^ not supported yet
    541. 

  541.   243      END InitDayTable;
    542. 

  542. *****          ^ not supported yet
    543. 

  543.   244  
    544. 

  544.   245    BEGIN
    545. 

  545.   246      IF ValidDate(d) THEN
    546. 

  546. *****         ^ undeclared identifier
    547. 

  547. *****                   ^ not supported yet
    548. 

  548.   247        InitDayTable;
    549. 

  549. *****        ^ not supported yet
    550. 

  550.   248        InitCent;
    551. 

  551. *****        ^ not supported yet
    552. 

  552.   249        IF LeapYear(d.yr) THEN
    553. 

  553. *****           ^ not supported yet
    554. 

  554. *****                    ^ not supported yet
    555. 

  555. *****                      ^ not supported yet
    556. 

  556.   250          daytable[1] := 6;
    557. 

  557. *****          ^ not supported yet
    558. 

  558. *****                    ^ not supported yet
    559. 

  559.   251          daytable[2] := 2;
    560. 

  560. *****          ^ not supported yet
    561. 

  561. *****                    ^ not supported yet
    562. 

  562.   252        END;
    563. 

  563.   253        century := d.yr DIV 100;
    564. 

  564. *****                   ^ not supported yet
    565. 

  565. *****                     ^ not supported yet
    566. 

  566.   254        yearincent := d.yr - century*100;
    567. 

  567. *****                      ^ not supported yet
    568. 

  568. *****                        ^ not supported yet
    569. 

  569.   255        result := centurytable[century-16] + yearincent +
    570. 

  570. *****                  ^ not supported yet
    571. 

  571. *****                                         ^ not supported yet
    572. 

  572.   256                  (yearincent DIV 4) + daytable[d.mo] + d.day;
    573. 

  573. *****                                       ^ not supported yet
    574. 

  574. *****                                                ^ not supported yet
    575. 

  575. *****                                                  ^ not supported yet
    576. 

  576. *****                                                        ^ not supported yet
    577. 

  577. *****                                                          ^ not supported yet
    578. 

  578.   257    (* NOTE!!! the above configuration is only likely to be accurate
    579. 

  579.   258               for 20th & 21st century *)
    580. 

  580.   259        CASE result MOD 7 OF
    581. 

  581.   260            0: M2Strings.Copy("Sunday", 0, HIGH(wkday), wkday);
    582. 

  582. *****               ^ not supported yet
    583. 

  583. *****                         ^ not supported yet
    584. 

  584. *****                              ^ not supported yet
    585. 

  585. *****                                           ^ undeclared identifier
    586. 

  586. *****                                                ^ not supported yet
    587. 

  587. *****                                                        ^ not supported yet
    588. 

  588.   261          | 1: M2Strings.Copy("Monday", 0, HIGH(wkday), wkday);
    589. 

  589. *****               ^ not supported yet
    590. 

  590. *****                         ^ not supported yet
    591. 

  591. *****                              ^ not supported yet
    592. 

  592. *****                                           ^ undeclared identifier
    593. 

  593. *****                                                ^ not supported yet
    594. 

  594. *****                                                        ^ not supported yet
    595. 

  595.   262          | 2: M2Strings.Copy("Tuesday", 0, HIGH(wkday), wkday);
    596. 

  596. *****               ^ not supported yet
    597. 

  597. *****                         ^ not supported yet
    598. 

  598. *****                              ^ not supported yet
    599. 

  599. *****                                            ^ undeclared identifier
    600. 

  600. *****                                                 ^ not supported yet
    601. 

  601. *****                                                         ^ not supported yet
    602. 

  602.   263          | 3: M2Strings.Copy("Wednesday", 0, HIGH(wkday), wkday);
    603. 

  603. *****               ^ not supported yet
    604. 

  604. *****                         ^ not supported yet
    605. 

  605. *****                              ^ not supported yet
    606. 

  606. *****                                              ^ undeclared identifier
    607. 

  607. *****                                                   ^ not supported yet
    608. 

  608. *****                                                           ^ not supported yet
    609. 

  609.   264          | 4: M2Strings.Copy("Thursday", 0, HIGH(wkday), wkday);
    610. 

  610. *****               ^ not supported yet
    611. 

  611. *****                         ^ not supported yet
    612. 

  612. *****                              ^ not supported yet
    613. 

  613. *****                                             ^ undeclared identifier
    614. 

  614. *****                                                  ^ not supported yet
    615. 

  615. *****                                                          ^ not supported yet
    616. 

  616.   265          | 5: M2Strings.Copy("Friday", 0, HIGH(wkday), wkday);
    617. 

  617. *****               ^ not supported yet
    618. 

  618. *****                         ^ not supported yet
    619. 

  619. *****                              ^ not supported yet
    620. 

  620. *****                                           ^ undeclared identifier
    621. 

  621. *****                                                ^ not supported yet
    622. 

  622. *****                                                        ^ not supported yet
    623. 

  623.   266          | 6: M2Strings.Copy("Saturday", 0, HIGH(wkday), wkday);
    624. 

  624. *****               ^ not supported yet
    625. 

  625. *****                         ^ not supported yet
    626. 

  626. *****                              ^ not supported yet
    627. 

  627. *****                                             ^ undeclared identifier
    628. 

  628. *****                                                  ^ not supported yet
    629. 

  629. *****                                                          ^ not supported yet
    630. 

  630.   267        END; (* case*)
    631. 

  631.   268      ELSE
    632. 

  632.   269        FOR i := 0 TO HIGH(wkday) DO
    633. 

  633. *****                      ^ undeclared identifier
    634. 

  634. *****                           ^ not supported yet
    635. 

  635.   270          wkday[i] := '*'
    636. 

  636. *****          ^ not supported yet
    637. 

  637. *****                 ^ not supported yet
    638. 

  638.   271        END;
    639. 

  639.   272      END;
    640. 

  640.   273    END DayOfWeek;
    641. 

  641. *****        ^ not supported yet
    642. 

  642.   274  
    643. 

  643.   275  PROCEDURE Month(d: Date): CARDINAL;
    644. 

  644. *****                     ^ undeclared identifier
    645. 

  645.   276    BEGIN
    646. 

  646.   277      IF ValidDate(d) THEN
    647. 

  647. *****         ^ undeclared identifier
    648. 

  648. *****                   ^ not supported yet
    649. 

  649.   278        RETURN d.mo
    650. 

  650. *****               ^ not supported yet
    651. 

  651. *****                 ^ not supported yet
    652. 

  652.   279      ELSE
    653. 

  653.   280        RETURN 0
    654. 

  654.   281      END;
    655. 

  655.   282    END Month;
    656. 

  656. *****        ^ not supported yet
    657. 

  657.   283  
    658. 

  658.   284  PROCEDURE CalendarMonth(d: Date; VAR cmonth: ARRAY OF CHAR);
    659. 

  659. *****                             ^ undeclared identifier
    660. 

  660. *****                                                        ^ not supported yet
    661. 

  661.   285    BEGIN
    662. 

  662.   286      IF ValidDate(d) THEN
    663. 

  663. *****         ^ undeclared identifier
    664. 

  664. *****                   ^ not supported yet
    665. 

  665.   287        CASE d.mo OF
    666. 

  666. *****             ^ not supported yet
    667. 

  667. *****               ^ not supported yet
    668. 

  668.   288            1: M2Strings.Copy('January', 0, 9, cmonth);
    669. 

  669. *****               ^ not supported yet
    670. 

  670. *****                         ^ not supported yet
    671. 

  671. *****                              ^ not supported yet
    672. 

  672. *****                                               ^ not supported yet
    673. 

  673.   289          | 2: M2Strings.Copy('February', 0, 9, cmonth);
    674. 

  674. *****               ^ not supported yet
    675. 

  675. *****                         ^ not supported yet
    676. 

  676. *****                              ^ not supported yet
    677. 

  677. *****                                                ^ not supported yet
    678. 

  678.   290          | 3: M2Strings.Copy('March', 0, 9, cmonth);
    679. 

  679. *****               ^ not supported yet
    680. 

  680. *****                         ^ not supported yet
    681. 

  681. *****                              ^ not supported yet
    682. 

  682. *****                                             ^ not supported yet
    683. 

  683.   291          | 4: M2Strings.Copy('April', 0, 9, cmonth);
    684. 

  684. *****               ^ not supported yet
    685. 

  685. *****                         ^ not supported yet
    686. 

  686. *****                              ^ not supported yet
    687. 

  687. *****                                             ^ not supported yet
    688. 

  688.   292          | 5: M2Strings.Copy('May', 0, 9, cmonth);
    689. 

  689. *****               ^ not supported yet
    690. 

  690. *****                         ^ not supported yet
    691. 

  691. *****                              ^ not supported yet
    692. 

  692. *****                                           ^ not supported yet
    693. 

  693.   293          | 6: M2Strings.Copy('June', 0, 9, cmonth);
    694. 

  694. *****               ^ not supported yet
    695. 

  695. *****                         ^ not supported yet
    696. 

  696. *****                              ^ not supported yet
    697. 

  697. *****                                            ^ not supported yet
    698. 

  698.   294          | 7: M2Strings.Copy('July', 0, 9, cmonth);
    699. 

  699. *****               ^ not supported yet
    700. 

  700. *****                         ^ not supported yet
    701. 

  701. *****                              ^ not supported yet
    702. 

  702. *****                                            ^ not supported yet
    703. 

  703.   295          | 8: M2Strings.Copy('August', 0, 9, cmonth);
    704. 

  704. *****               ^ not supported yet
    705. 

  705. *****                         ^ not supported yet
    706. 

  706. *****                              ^ not supported yet
    707. 

  707. *****                                              ^ not supported yet
    708. 

  708.   296          | 9: M2Strings.Copy('September', 0, 9, cmonth);
    709. 

  709. *****               ^ not supported yet
    710. 

  710. *****                         ^ not supported yet
    711. 

  711. *****                              ^ not supported yet
    712. 

  712. *****                                                 ^ not supported yet
    713. 

  713.   297          | 10: M2Strings.Copy('October', 0, 9, cmonth);
    714. 

  714. *****                ^ not supported yet
    715. 

  715. *****                          ^ not supported yet
    716. 

  716. *****                               ^ not supported yet
    717. 

  717. *****                                                ^ not supported yet
    718. 

  718.   298          | 11: M2Strings.Copy('November', 0, 9, cmonth);
    719. 

  719. *****                ^ not supported yet
    720. 

  720. *****                          ^ not supported yet
    721. 

  721. *****                               ^ not supported yet
    722. 

  722. *****                                                 ^ not supported yet
    723. 

  723.   299          | 12: M2Strings.Copy('December', 0, 9, cmonth);
    724. 

  724. *****                ^ not supported yet
    725. 

  725. *****                          ^ not supported yet
    726. 

  726. *****                               ^ not supported yet
    727. 

  727. *****                                                 ^ not supported yet
    728. 

  728.   300        END; (* case *)
    729. 

  729.   301      ELSE
    730. 

  730.   302        M2Strings.Copy('********',0, 8, cmonth);
    731. 

  731. *****        ^ not supported yet
    732. 

  732. *****                  ^ not supported yet
    733. 

  733. *****                       ^ not supported yet
    734. 

  734. *****                                        ^ not supported yet
    735. 

  735.   303      END;
    736. 

  736.   304    END CalendarMonth;
    737. 

  737. *****        ^ not supported yet
    738. 

  738.   305  
    739. 

  739.   306  
    740. 

  740.   307  PROCEDURE Year(d: Date): CARDINAL;
    741. 

  741. *****                    ^ undeclared identifier
    742. 

  742.   308    BEGIN
    743. 

  743.   309      IF ValidDate(d) THEN
    744. 

  744. *****         ^ undeclared identifier
    745. 

  745. *****                   ^ not supported yet
    746. 

  746.   310        RETURN (d.yr)
    747. 

  747. *****                ^ not supported yet
    748. 

  748. *****                  ^ not supported yet
    749. 

  749.   311      ELSE
    750. 

  750.   312        RETURN 0
    751. 

  751.   313      END;
    752. 

  752.   314    END Year;
    753. 

  753. *****        ^ not supported yet
    754. 

  754.   315  
    755. 

  755.   316  
    756. 

  756.   317  PROCEDURE DateToWritten(d: Date; VAR written: ARRAY OF CHAR);
    757. 

  757. *****                             ^ undeclared identifier
    758. 

  758. *****                                                         ^ not supported yet
    759. 

  759.   318    VAR
    760. 

  760.   319      temp: ARRAY [0..4] OF CHAR;
    761. 

  761. *****                      ^ not supported yet
    762. 

  762. *****                            ^ not supported yet
    763. 

  763.   320    BEGIN
    764. 

  764.   321      CalendarMonth(d, written);
    765. 

  765. *****      ^ not supported yet
    766. 

  766. *****                    ^ not supported yet
    767. 

  767. *****                       ^ not supported yet
    768. 

  768.   322      M2Strings.Concat(written, ' ', written);
    769. 

  769. *****      ^ not supported yet
    770. 

  770. *****                ^ not supported yet
    771. 

  771. *****                       ^ not supported yet
    772. 

  772. *****                                     ^ not supported yet
    773. 

  773.   323      StrConv.CardinalToStr(d.day, 0, temp);
    774. 

  774. *****      ^ not supported yet
    775. 

  775. *****              ^ not supported yet
    776. 

  776. *****                            ^ not supported yet
    777. 

  777. *****                              ^ not supported yet
    778. 

  778. *****                                      ^ not supported yet
    779. 

  779.   324      M2Strings.Concat(written, temp, written);
    780. 

  780. *****      ^ not supported yet
    781. 

  781. *****                ^ not supported yet
    782. 

  782. *****                       ^ not supported yet
    783. 

  783. *****                                ^ not supported yet
    784. 

  784. *****                                      ^ not supported yet
    785. 

  785.   325      M2Strings.Concat(written, ', ', written);
    786. 

  786. *****      ^ not supported yet
    787. 

  787. *****                ^ not supported yet
    788. 

  788. *****                       ^ not supported yet
    789. 

  789. *****                                ^ not supported yet
    790. 

  790. *****                                      ^ not supported yet
    791. 

  791.   326      StrConv.CardinalToStr(d.yr, 0, temp);
    792. 

  792. *****      ^ not supported yet
    793. 

  793. *****              ^ not supported yet
    794. 

  794. *****                            ^ not supported yet
    795. 

  795. *****                              ^ not supported yet
    796. 

  796. *****                                     ^ not supported yet
    797. 

  797.   327      M2Strings.Concat(written, temp, written);
    798. 

  798. *****      ^ not supported yet
    799. 

  799. *****                ^ not supported yet
    800. 

  800. *****                       ^ not supported yet
    801. 

  801. *****                                ^ not supported yet
    802. 

  802. *****                                      ^ not supported yet
    803. 

  803.   328    END DateToWritten;
    804. 

  804. *****        ^ not supported yet
    805. 

  805.   329  
    806. 

  806.   330  
    807. 

  807.   331  PROCEDURE DatePlusDays(VAR d: Date; days: CARDINAL; VAR OK: BOOLEAN);
    808. 

  808. *****                                ^ undeclared identifier
    809. 

  809.   332    BEGIN
    810. 

  810.   333      IF NOT ValidDate(d) THEN
    811. 

  811. *****             ^ undeclared identifier
    812. 

  812. *****                       ^ not supported yet
    813. 

  813.   334        WITH d DO
    814. 

  814. *****             ^ not supported yet
    815. 

  815.   335          yr := 0;
    816. 

  816. *****          ^ undeclared identifier
    817. 

  817.   336          mo := 0;
    818. 

  818. *****          ^ undeclared identifier
    819. 

  819.   337          day := 0;
    820. 

  820. *****          ^ undeclared identifier
    821. 

  821.   338        END;
    822. 

  822. *****        ^ not supported yet
    823. 

  823.   339        OK := FALSE
    824. 

  824. *****        ^ undeclared identifier
    825. 

  825.   340      ELSE
    826. 

  826.   341        CardToDate(DaysSince1900(d) + days, d);
    827. 

  827. *****        ^ undeclared identifier
    828. 

  828. *****                   ^ undeclared identifier
    829. 

  829. *****                                 ^ undeclared identifier
    830. 

  830. *****                                      ^ undeclared identifier
    831. 

  831. *****                                            ^ undeclared identifier
    832. 

  832.   342        OK := TRUE
    833. 

  833. *****        ^ undeclared identifier
    834. 

  834.   343      END;
    835. 

  835.   344    END DatePlusDays;
    836. 

  836. *****        ^ not supported yet
    837. 

  837.   345  
    838. 

  838.   346  
    839. 

  839.   347  PROCEDURE InitMonths;
    840. 

  840.   348    BEGIN
    841. 

  841.   349      monthsize[1] := 31;
    842. 

  842. *****      ^ not supported yet
    843. 

  843. *****                 ^ not supported yet
    844. 

  844.   350      monthsize[2] := 28;
    845. 

  845. *****      ^ not supported yet
    846. 

  846. *****                 ^ not supported yet
    847. 

  847.   351      monthsize[3] := 31;
    848. 

  848. *****      ^ not supported yet
    849. 

  849. *****                 ^ not supported yet
    850. 

  850.   352      monthsize[4] := 30;
    851. 

  851. *****      ^ not supported yet
    852. 

  852. *****                 ^ not supported yet
    853. 

  853.   353      monthsize[5] := 31;
    854. 

  854. *****      ^ not supported yet
    855. 

  855. *****                 ^ not supported yet
    856. 

  856.   354      monthsize[6] := 30;
    857. 

  857. *****      ^ not supported yet
    858. 

  858. *****                 ^ not supported yet
    859. 

  859.   355      monthsize[7] := 31;
    860. 

  860. *****      ^ not supported yet
    861. 

  861. *****                 ^ not supported yet
    862. 

  862.   356      monthsize[8] := 31;
    863. 

  863. *****      ^ not supported yet
    864. 

  864. *****                 ^ not supported yet
    865. 

  865.   357      monthsize[9] := 30;
    866. 

  866. *****      ^ not supported yet
    867. 

  867. *****                 ^ not supported yet
    868. 

  868.   358      monthsize[10] := 31;
    869. 

  869. *****      ^ not supported yet
    870. 

  870. *****                  ^ not supported yet
    871. 

  871.   359      monthsize[11] := 30;
    872. 

  872. *****      ^ not supported yet
    873. 

  873. *****                  ^ not supported yet
    874. 

  874.   360      monthsize[12] := 31;
    875. 

  875. *****      ^ not supported yet
    876. 

  876. *****                  ^ not supported yet
    877. 

  877.   361    END InitMonths;
    878. 

  878. *****        ^ not supported yet
    879. 

  879.   362  
    880. 

  880.   363  
    881. 

  881.   364  PROCEDURE ValidDate(d: Date): BOOLEAN;
    882. 

  882. *****                         ^ undeclared identifier
    883. 

  883.   365  
    884. 

  884.   366    BEGIN
    885. 

  885.   367      IF LeapYear(d.yr)THEN
    886. 

  886. *****         ^ not supported yet
    887. 

  887. *****                  ^ not supported yet
    888. 

  888. *****                    ^ not supported yet
    889. 

  889.   368        monthsize[2] := 29;
    890. 

  890. *****        ^ not supported yet
    891. 

  891. *****                   ^ not supported yet
    892. 

  892.   369      ELSE
    893. 

  893.   370        monthsize[2] := 28;
    894. 

  894. *****        ^ not supported yet
    895. 

  895. *****                   ^ not supported yet
    896. 

  896.   371      END;
    897. 

  897.   372      RETURN((d.mo >= 1) AND (d.mo <= 12)) AND
    898. 

  898. *****              ^ not supported yet
    899. 

  899. *****                ^ not supported yet
    900. 

  900. *****                              ^ not supported yet
    901. 

  901. *****                                ^ not supported yet
    902. 

  902.   373             ((d.day >=1) AND (d.day <= monthsize[d.mo])) AND
    903. 

  903. *****               ^ not supported yet
    904. 

  904. *****                 ^ not supported yet
    905. 

  905. *****                               ^ not supported yet
    906. 

  906. *****                                 ^ not supported yet
    907. 

  907. *****                                        ^ not supported yet
    908. 

  908. *****                                                  ^ not supported yet
    909. 

  909. *****                                                    ^ not supported yet
    910. 

  910.   374             ((d.yr >= MinYear) AND (d.yr <= MaxYear));
    911. 

  911. *****               ^ not supported yet
    912. 

  912. *****                 ^ not supported yet
    913. 

  913. *****                       ^ undeclared identifier
    914. 

  914. *****                                     ^ not supported yet
    915. 

  915. *****                                       ^ not supported yet
    916. 

  916. *****                                             ^ undeclared identifier
    917. 

  917.   375    END ValidDate;
    918. 

  918. *****        ^ not supported yet
    919. 

  919.   376  
    920. 

  920.   377  
    921. 

  921.   378  PROCEDURE DaysSince1900(d: Date): CARDINAL;
    922. 

  922. *****                             ^ undeclared identifier
    923. 

  923.   379    VAR
    924. 

  924.   380      yearsSince, leapYearsSince, result: CARDINAL;
    925. 

  925.   381    BEGIN
    926. 

  926.   382      IF ValidDate(d) THEN
    927. 

  927. *****         ^ not supported yet
    928. 

  928. *****                   ^ not supported yet
    929. 

  929.   383        yearsSince := (d.yr - 1900) * 365;
    930. 

  930. *****                       ^ not supported yet
    931. 

  931. *****                         ^ not supported yet
    932. 

  932.   384        result:=d.yr-1900;
    933. 

  933. *****                ^ not supported yet
    934. 

  934. *****                  ^ not supported yet
    935. 

  935.   385        IF result>1 THEN DEC(result) END;
    936. 

  936. *****                         ^ undeclared identifier
    937. 

  937. *****                                   ^ not supported yet
    938. 

  938.   386        leapYearsSince := (result) DIV 4;
    939. 

  939.   387        result := yearsSince + leapYearsSince + DayOfYear(d)-1;
    940. 

  940. *****                                                ^ undeclared identifier
    941. 

  941. *****                                                          ^ not supported yet
    942. 

  942.   388        (* IF LeapYear(d.yr) AND (d.mo > 2) THEN
    943. 

  943.   389          INC( result );
    944. 

  944.   390        END; *)
    945. 

  945.   391        RETURN result
    946. 

  946.   392      ELSE
    947. 

  947.   393        RETURN 0
    948. 

  948.   394      END;
    949. 

  949.   395    END DaysSince1900;
    950. 

  950. *****        ^ not supported yet
    951. 

  951.   396  
    952. 

  952.   397  
    953. 

  953.   398  PROCEDURE DayOfYear(d:Date): CARDINAL;
    954. 

  954. *****                        ^ undeclared identifier
    955. 

  955.   399    (* Returns 0 if the date is not Valid *)
    956. 

  956.   400  VAR julian: CARDINAL;
    957. 

  957.   401  
    958. 

  958.   402  BEGIN
    959. 

  959.   403    IF ValidDate(d) THEN
    960. 

  960. *****       ^ not supported yet
    961. 

  961. *****                 ^ not supported yet
    962. 

  962.   404      IF LeapYear(d.yr) AND (d.mo > 2) THEN
    963. 

  963. *****         ^ not supported yet
    964. 

  964. *****                  ^ not supported yet
    965. 

  965. *****                    ^ not supported yet
    966. 

  966. *****                             ^ not supported yet
    967. 

  967. *****                               ^ not supported yet
    968. 

  968.   405        julian := monthtotalleap[d.mo] + d.day;
    969. 

  969. *****                  ^ not supported yet
    970. 

  970. *****                                 ^ not supported yet
    971. 

  971. *****                                   ^ not supported yet
    972. 

  972. *****                                         ^ not supported yet
    973. 

  973. *****                                           ^ not supported yet
    974. 

  974.   406      ELSE
    975. 

  975.   407       julian := monthtotal[d.mo] + d.day;
    976. 

  976. *****                 ^ not supported yet
    977. 

  977. *****                            ^ not supported yet
    978. 

  978. *****                              ^ not supported yet
    979. 

  979. *****                                    ^ not supported yet
    980. 

  980. *****                                      ^ not supported yet
    981. 

  981.   408      END;
    982. 

  982.   409      RETURN julian
    983. 

  983.   410    ELSE
    984. 

  984.   411      RETURN 0
    985. 

  985.   412    END;
    986. 

  986.   413  END DayOfYear;
    987. 

  987. *****      ^ not supported yet
    988. 

  988.   414  
    989. 

  989.   415  PROCEDURE CardToDate(n: CARDINAL; VAR d: Date);
    990. 

  990. *****                                           ^ undeclared identifier
    991. 

  991.   416  VAR julday,
    992. 

  992.   417      c,LeapYears: CARDINAL;
    993. 

  993.   418  BEGIN
    994. 

  994.   419    d.yr := n DIV 365;
    995. 

  995. *****    ^ not supported yet
    996. 

  996. *****      ^ not supported yet
    997. 

  997.   420    julday:= n MOD 365+1;
    998. 

  998.   421    c:=d.yr;
    999. 

  999. *****       ^ not supported yet
    1000. 

  1000. *****         ^ not supported yet
    1001. 

  1001.   422    IF c >1 THEN DEC(c) END;
    1002. 

  1002. *****                 ^ undeclared identifier
    1003. 

  1003. *****                      ^ not supported yet
    1004. 

  1004.   423    LeapYears:= c DIV 4;(* leap years is to count preceding not current *)
    1005. 

  1005.   424    IF (julday > LeapYears) THEN
    1006. 

  1006.   425      DEC(julday,LeapYears)
    1007. 

  1007. *****      ^ undeclared identifier
    1008. 

  1008. *****                          ^ not supported yet
    1009. 

  1009.   426    ELSE
    1010. 

  1010.   427      julday:=julday+365-LeapYears;
    1011. 

  1011.   428      DEC(d.yr);
    1012. 

  1012. *****      ^ undeclared identifier
    1013. 

  1013. *****          ^ not supported yet
    1014. 

  1014. *****            ^ not supported yet
    1015. 

  1015.   429      IF( d.yr#0) AND ((d.yr MOD 4) =0)
    1016. 

  1016. *****          ^ not supported yet
    1017. 

  1017. *****            ^ not supported yet
    1018. 

  1018. *****                        ^ not supported yet
    1019. 

  1019. *****                          ^ not supported yet
    1020. 

  1020.   430      THEN
    1021. 

  1021.   431        INC(julday);(* do not want to count leap day twice *)
    1022. 

  1022. *****        ^ undeclared identifier
    1023. 

  1023. *****                  ^ not supported yet
    1024. 

  1024.   432      END;
    1025. 

  1025.   433    END;
    1026. 

  1026.   434    d.yr := d.yr + 1900;
    1027. 

  1027. *****    ^ not supported yet
    1028. 

  1028. *****      ^ not supported yet
    1029. 

  1029. *****            ^ not supported yet
    1030. 

  1030. *****              ^ not supported yet
    1031. 

  1031.   435    d.mo := 0;
    1032. 

  1032. *****    ^ not supported yet
    1033. 

  1033. *****      ^ not supported yet
    1034. 

  1034.   436    d.day := 0;
    1035. 

  1035. *****    ^ not supported yet
    1036. 

  1036. *****      ^ not supported yet
    1037. 

  1037.   437    IF NOT LeapYear(d.yr) THEN
    1038. 

  1038. *****           ^ not supported yet
    1039. 

  1039. *****                    ^ not supported yet
    1040. 

  1040. *****                      ^ not supported yet
    1041. 

  1041.   438     (* DEC (julday);*)
    1042. 

  1042.   439         REPEAT
    1043. 

  1043.   440        INC(d.mo)
    1044. 

  1044. *****        ^ undeclared identifier
    1045. 

  1045. *****            ^ not supported yet
    1046. 

  1046. *****              ^ not supported yet
    1047. 

  1047.   441      UNTIL  (d.mo = 12) OR (julday <= monthtotal[d.mo + 1]);
    1048. 

  1048. *****              ^ not supported yet
    1049. 

  1049. *****                ^ not supported yet
    1050. 

  1050. *****                                       ^ not supported yet
    1051. 

  1051. *****                                                  ^ not supported yet
    1052. 

  1052. *****                                                    ^ not supported yet
    1053. 

  1053. *****                                                          ^ not supported yet
    1054. 

  1054.   442        d.day := julday - monthtotal[d.mo];
    1055. 

  1055. *****        ^ not supported yet
    1056. 

  1056. *****          ^ not supported yet
    1057. 

  1057. *****                          ^ not supported yet
    1058. 

  1058. *****                                     ^ not supported yet
    1059. 

  1059. *****                                       ^ not supported yet
    1060. 

  1060.   443    ELSE
    1061. 

  1061.   444      REPEAT
    1062. 

  1062.   445        INC(d.mo)
    1063. 

  1063. *****        ^ undeclared identifier
    1064. 

  1064. *****            ^ not supported yet
    1065. 

  1065. *****              ^ not supported yet
    1066. 

  1066.   446      UNTIL  (d.mo = 12) OR (julday <= monthtotalleap[d.mo + 1]);
    1067. 

  1067. *****              ^ not supported yet
    1068. 

  1068. *****                ^ not supported yet
    1069. 

  1069. *****                                       ^ not supported yet
    1070. 

  1070. *****                                                      ^ not supported yet
    1071. 

  1071. *****                                                        ^ not supported yet
    1072. 

  1072. *****                                                              ^ not supported yet
    1073. 

  1073.   447        (* note:  can't just add 1 -- it throws January off!! *)
    1074. 

  1074.   448      d.day := julday - (monthtotalleap[d.mo]);
    1075. 

  1075. *****      ^ not supported yet
    1076. 

  1076. *****        ^ not supported yet
    1077. 

  1077. *****                         ^ not supported yet
    1078. 

  1078. *****                                        ^ not supported yet
    1079. 

  1079. *****                                          ^ not supported yet
    1080. 

  1080.   449    END;
    1081. 

  1081.   450  END CardToDate;
    1082. 

  1082. *****      ^ not supported yet
    1083. 

  1083.   451  
    1084. 

  1084.   452  
    1085. 

  1085.   453  PROCEDURE CompareDates(d1, d2: Date): Comparison;
    1086. 

  1086. *****                                 ^ undeclared identifier
    1087. 

  1087. *****                                        ^ undeclared identifier
    1088. 

  1088.   454    BEGIN
    1089. 

  1089.   455      IF d1.yr > d2.yr THEN
    1090. 

  1090. *****         ^ not supported yet
    1091. 

  1091. *****            ^ not supported yet
    1092. 

  1092. *****                 ^ not supported yet
    1093. 

  1093. *****                    ^ not supported yet
    1094. 

  1094.   456        RETURN DateGreater
    1095. 

  1095. *****               ^ undeclared identifier
    1096. 

  1096.   457      ELSIF d1.yr < d2.yr THEN
    1097. 

  1097. *****            ^ not supported yet
    1098. 

  1098. *****               ^ not supported yet
    1099. 

  1099. *****                    ^ not supported yet
    1100. 

  1100. *****                       ^ not supported yet
    1101. 

  1101.   458        RETURN DateLess
    1102. 

  1102. *****               ^ undeclared identifier
    1103. 

  1103.   459      ELSE
    1104. 

  1104.   460        IF d1.mo > d2.mo THEN
    1105. 

  1105. *****           ^ not supported yet
    1106. 

  1106. *****              ^ not supported yet
    1107. 

  1107. *****                   ^ not supported yet
    1108. 

  1108. *****                      ^ not supported yet
    1109. 

  1109.   461          RETURN DateGreater
    1110. 

  1110. *****                 ^ undeclared identifier
    1111. 

  1111.   462        ELSIF d1.mo < d2.mo THEN
    1112. 

  1112. *****              ^ not supported yet
    1113. 

  1113. *****                 ^ not supported yet
    1114. 

  1114. *****                      ^ not supported yet
    1115. 

  1115. *****                         ^ not supported yet
    1116. 

  1116.   463          RETURN DateLess
    1117. 

  1117. *****                 ^ undeclared identifier
    1118. 

  1118.   464        ELSE
    1119. 

  1119.   465          IF d1.day > d2.day THEN
    1120. 

  1120. *****             ^ not supported yet
    1121. 

  1121. *****                ^ not supported yet
    1122. 

  1122. *****                      ^ not supported yet
    1123. 

  1123. *****                         ^ not supported yet
    1124. 

  1124.   466            RETURN DateGreater
    1125. 

  1125. *****                   ^ undeclared identifier
    1126. 

  1126.   467          ELSIF d1.day < d2.day THEN
    1127. 

  1127. *****                ^ not supported yet
    1128. 

  1128. *****                   ^ not supported yet
    1129. 

  1129. *****                         ^ not supported yet
    1130. 

  1130. *****                            ^ not supported yet
    1131. 

  1131.   468            RETURN DateLess
    1132. 

  1132. *****                   ^ undeclared identifier
    1133. 

  1133.   469          ELSE
    1134. 

  1134.   470            RETURN DateEqual
    1135. 

  1135. *****                   ^ undeclared identifier
    1136. 

  1136.   471          END;
    1137. 

  1137.   472        END;
    1138. 

  1138.   473      END;
    1139. 

  1139.   474      RETURN DateEqual;
    1140. 

  1140. *****             ^ undeclared identifier
    1141. 

  1141.   475    END CompareDates;
    1142. 

  1142. *****        ^ not supported yet
    1143. 

  1143.   476  
    1144. 

  1144.   477  
    1145. 

  1145.   478  PROCEDURE DateDiff(d1, d2: Date): CARDINAL;
    1146. 

  1146. *****                             ^ undeclared identifier
    1147. 

  1147.   479    BEGIN
    1148. 

  1148.   480      IF CompareDates(d1, d2) = DateGreater THEN
    1149. 

  1149. *****         ^ not supported yet
    1150. 

  1150. *****                      ^ not supported yet
    1151. 

  1151. *****                          ^ not supported yet
    1152. 

  1152. *****                                ^ undeclared identifier
    1153. 

  1153.   481        RETURN(DaysSince1900(d1) - DaysSince1900(d2))
    1154. 

  1154. *****               ^ not supported yet
    1155. 

  1155. *****                             ^ not supported yet
    1156. 

  1156. *****                                   ^ not supported yet
    1157. 

  1157. *****                                                 ^ not supported yet
    1158. 

  1158.   482      ELSE
    1159. 

  1159.   483        RETURN(DaysSince1900(d2) - DaysSince1900(d1))
    1160. 

  1160. *****               ^ not supported yet
    1161. 

  1161. *****                             ^ not supported yet
    1162. 

  1162. *****                                   ^ not supported yet
    1163. 

  1163. *****                                                 ^ not supported yet
    1164. 

  1164.   484      END;
    1165. 

  1165.   485    END DateDiff;
    1166. 

  1166. *****        ^ not supported yet
    1167. 

  1167.   486  
    1168. 

  1168.   487  
    1169. 

  1169.   488    PROCEDURE Init();
    1170. 

  1170.   489      BEGIN
    1171. 

  1171.   490        IF Initialized THEN
    1172. 

  1172.   491          RETURN;
    1173. 

  1173.   492        ELSE
    1174. 

  1174.   493          Initialized := TRUE;
    1175. 

  1175.   494        END;
    1176. 

  1176.   495  (*EntryDiag:
    1177. 

  1177.   496        Diagnostics.Init();
    1178. 

  1178.   497  :EntryDiag*)
    1179. 

  1179.   498        M2Strings.Init();
    1180. 

  1180. *****        ^ not supported yet
    1181. 

  1181. *****                  ^ not supported yet
    1182. 

  1182. *****                       ^ not supported yet
    1183. 

  1183.   499        PosUtils.Init();
    1184. 

  1184. *****        ^ not supported yet
    1185. 

  1185. *****                 ^ not supported yet
    1186. 

  1186. *****                      ^ not supported yet
    1187. 

  1187.   500        StrConv.Init();
    1188. 

  1188. *****        ^ not supported yet
    1189. 

  1189. *****                ^ not supported yet
    1190. 

  1190. *****                     ^ not supported yet
    1191. 

  1191.   501        StrEdit.Init();
    1192. 

  1192. *****        ^ not supported yet
    1193. 

  1193. *****                ^ not supported yet
    1194. 

  1194. *****                     ^ not supported yet
    1195. 

  1195.   502  (*EntryDiag:
    1196. 

  1196.   503        Diagnostics.diagS( 'Entering DateFunctions', '' );
    1197. 

  1197.   504  :EntryDiag*)
    1198. 

  1198.   505  
    1199. 

  1199.   506        InitMonthTotal();
    1200. 

  1200. *****        ^ not supported yet
    1201. 

  1201. *****                       ^ not supported yet
    1202. 

  1202.   507        InitMonths();
    1203. 

  1203. *****        ^ not supported yet
    1204. 

  1204. *****                   ^ not supported yet
    1205. 

  1205.   508  
    1206. 

  1206.   509  (*EntryDiag:
    1207. 

  1207.   510        Diagnostics.diagS( 'Exiting DateFunctions', '' );
    1208. 

  1208.   511  :EntryDiag*)
    1209. 

  1209.   512      END Init;
    1210. 

  1210. *****          ^ not supported yet
    1211. 

  1211.   513  
    1212. 

  1212.   514  
    1213. 

  1213.   515  BEGIN
    1214. 

  1214.   516    Initialized := FALSE;
    1215. 

  1215.   517    Init();
    1216. 

  1216. *****    ^ not supported yet
    1217. 

  1217. *****         ^ not supported yet
    1218. 

  1218.   518  END DateFunctions.
    1219. 

  1219. *****      ^ not supported yet
    1220. 

  1220. 

  1221.   699 errors
    1222. 

  1222. 

  1223.