home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / 2924.ZIP / DMLXREF.ARC / NUM.INT < prev    next >
Encoding:
Text File  |  1988-12-20  |  2.2 KB  |  63 lines
  1. TYPE
  2.   DateTimeStr = STRING [9];
  3.  
  4.   T_DateTime = RECORD
  5.     Year,
  6.     Month,
  7.     Day,
  8.     Hour,
  9.     Minute,
  10.     Second,
  11.     WeekDay    : WORD;
  12.  
  13.     MonthStr,
  14.     WeekdayStr : DateTimeStr;
  15.  
  16.     NumDays,
  17.     NumHours,
  18.     NumMinutes,
  19.     NumSeconds  : REAL;
  20.     END;
  21.  
  22.   StrNumType = (StrNonNumeric,StrZero,StrNonZero);
  23.  
  24. {.PA}
  25.  
  26. (**************************************************************************)
  27. (*                                                                        *)
  28. (*          1)  General Numeric Formatting And Conversion                 *)
  29. (*                                                                        *)
  30. FUNCTION B2S (Flag : BOOLEAN) : STRING;
  31.  
  32. FUNCTION W2S (Num : WORD;    Mask : STRING) : STRING;
  33. FUNCTION I2S (Num : INTEGER; Mask : STRING) : STRING;
  34. FUNCTION L2S (Num : LONGINT; Mask : STRING) : STRING;
  35.  
  36. FUNCTION R2S (Num : REAL;   Mask : STRING) : STRING;
  37. FUNCTION D2S (Num : DOUBLE; Mask : STRING) : STRING;
  38.  
  39. FUNCTION S2R (Source : STRING) : REAL;
  40. FUNCTION S2D (Source : STRING) : DOUBLE;
  41.  
  42. FUNCTION StrNumTest (Fld : STRING) : StrNumType;
  43.  
  44. FUNCTION S2L (Source : STRING) : LONGINT;
  45. FUNCTION S2I (Source : STRING) : INTEGER;
  46. FUNCTION S2W (Source : STRING) : WORD;
  47. (*                                                                        *)
  48. (**************************************************************************)
  49.  
  50. (**************************************************************************)
  51. (*                                                                        *)
  52. (*          2)  Date and Time Formatting And Conversion                   *)
  53. (*                                                                        *)
  54. FUNCTION NumTh (Num : INTEGER) : STRING;
  55. PROCEDURE Date2R (VAR JulSec : REAL; DateTime : T_DateTime);
  56. PROCEDURE R2Date (JulSec : REAL; VAR DateTime : T_DateTime);
  57. FUNCTION Date2S (DateTime : T_DateTime; Mask : STRING) : STRING;
  58. PROCEDURE GetDOSDateAndTime (VAR JulSec : REAL; VAR DateTime : T_DateTime);
  59. PROCEDURE SetDOSDateAndTime (DateTime : T_DateTime);
  60. (*                                                                        *)
  61. (**************************************************************************)
  62.  
  63.