home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / CURDATE0.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-03-29  |  1.3 KB  |  30 lines
  1. (********************************************************************)
  2. (* THIS FUNCTION WILL RETURN THE CURRENT DATE STRING IN DATE 0      *)
  3. (* FORMAT MMM DD YYYY WHERE MMM IS AN 3 LETTER ABRVEATION OF THE    *)
  4. (* MONTH DD IS THE DAY NUMBER YYYY YEAR                             *)
  5. (* INPUT        : NONE USES REAL TIME CLOCK                         *)
  6. (* INPUT/OUTPUT : NONE                                              *)
  7. (* OUTPUT       : CURRENT DATE                                      *)
  8. (* USES         : NO SIDE EFFECTS                                   *)
  9. (* CALLS        : Read_Date, Date_Nums_To_Date0                     *)
  10. (* ERRORS       : IMPROPER DATE NUMBERS                             *)
  11. (* GLOBAL VARS  : NONE                                              *)
  12. (* SUBJECT      : DATE , CURRENT , DATE 0 FORMAT                    *)
  13. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 002   *)
  14. (********************************************************************)
  15.  
  16. FUNCTION Cur_date0   : Date0 ;
  17.  
  18. VAR
  19.    OK : BOOLEAN ;
  20.    M  : Month_Number ;
  21.    D  : Day_Number ;
  22.    Y  : Year_Number ;
  23.    Da : Date0 ;
  24.  
  25. BEGIN (* CUR DATE0 *)
  26.    Read_Date ( M , D , Y ) ;
  27.    Date_Nums_To_Date0 ( M , D , Y , Da , OK ) ;
  28.    IF OK THEN Cur_Date0 := Da ELSE Cur_Date0 := 'DATE ERR' ;
  29. END ; (* CUR DATE0 *)
  30.