home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / DATNDAT0.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-03-29  |  2.3 KB  |  49 lines
  1. (********************************************************************)
  2. (*  THIS PROCEDURE RETURNS A STRING 11 CHARS LONG IN THEN FOLLOWING *)
  3. (*     FORMAT MMM DD YYYY                                           *)
  4. (* INPUT        : Month_Number, Day_Number, YearNumber              *)
  5. (* INPUT/OUTPUT : NONE                                              *)
  6. (* OUTPUT       : STAT = NO ERRS AND VALID OUTPUTS IF TRUE          *)
  7. (*              : OUTDATE0 = STRING 11 CHARS LONG 'MMM DD YYYY'     *)
  8. (* USES         : NO SIDE EFFECTS                                   *)
  9. (* CALLS        : Valid_Date_Number                                 *)
  10. (* ERRORS       : INVALID DATE NUMBERS                              *)
  11. (* GLOBAL VARS  : NONE                                              *)
  12. (* SUBJECT      : CONVERT, DATE NUMBERS TO DATE 0 STRING            *)
  13. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 001   *)
  14. (********************************************************************)
  15.  
  16. PROCEDURE Date_Nums_To_Date0           (     MonthNum : Month_Number ;
  17.                                              DayNum   : Day_Number   ;
  18.                                              YearNum  : Year_Number  ;
  19.                                          VAR OutDate0 : Date0       ;
  20.                                          VAR Stat     : BOOLEAN   ) ;
  21.  
  22. (* GLOBAL VARS *)
  23. (* MonthNames [1..12] OF PARAGRAPH *)
  24.  
  25. VAR
  26.    TempDate0 : Date0 ;
  27.    TempDate1 : Date0 ;
  28.  
  29. BEGIN (* PROC *)
  30.    Stat := ValidDateNumber ( MonthNum , DayNum , YearNum ) ;
  31.    IF NOT Stat THEN
  32.            BEGIN (* THEN *)
  33.               WRITELN ('ERR INVALID DATE NUMBERS ') ;
  34.            END   (* THEN *)
  35.       ELSE BEGIN (* ELSE *)
  36.               TempDate0 := '' ;
  37.               TempDate0 := COPY ( MonthNames [ MonthNum ] , 1 , 3 )
  38.                            + ' ' ;
  39.               STR ( DayNum , TempDate1 ) ;
  40.               IF LENGTH (TempDate1)=1 THEN
  41.                    TempDate1 := '0' + TempDate1 ;
  42.               TempDate0 := TempDate0 + TempDate1 + ' ' ;
  43.               STR ( YearNum :4 , TempDate1 ) ;
  44.               TempDate0 := TempDate0 + TempDate1 ;
  45.               OutDate0 := TempDate0 ;
  46.       END ; (* ELSE *)
  47.    IF NOT Stat THEN WRITELN ( 'ERROR IN PROC DATNDAT0.PRC' ) ;
  48. END ; (* PROC *)
  49.