Re: Stored dates

 BBS: Inland Empire Archive
Date: 04-18-92 (19:09)             Number: 97
From: BOB PERKINS                  Refer#: NONE
  To: SCOTT WUNSCH                  Recvd: NO  
Subj: Re: Stored dates               Conf: (2) Quik_Bas

 SW>   I am working on a program that uses INT 4Eh/4Fh to retrieve file
 SW> names, and then must process the date returned.  I have tried many
 SW> times to get the two-byte date spread out into day, month and year
 SW> but it doesn't seem to be working right.  Probably my last hope is
 SW> you guys/gals...

  FUNCTION ascdate$ (filedate%)
    year$ = LTRIM$(STR$(((filedate% AND 65024) \ 512) + 1980))
    month$ = LTRIM$(STR$((filedate% AND 480) \ 32))
    day$ = LTRIM$(STR$(filedate% AND 31))
    IF LEN(month$) = 1 THEN month$ = "0" + month$
    IF LEN(day$) = 1 THEN day$ = "0" + day$
    ascdate$ = month$ + "-" + day$ + "-" + year$
  END FUNCTION


--- Msg V4.5
 * Origin: Reciprocity Failure  (1:124/4115.236)