home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 11 / heimwerk / accdta.bas next >
Encoding:
BASIC Source File  |  1989-08-29  |  1.4 KB  |  47 lines
  1. '* ------------------------------------------------------- *
  2. '*                     ACCDTA.BAS                          *
  3. '* ------------------------------------------------------- *
  4. TYPE FileType
  5.   FileName AS STRING * 12
  6.   FileAtt AS INTEGER
  7.   FileSize AS LONG
  8.   FileDate AS STRING * 10
  9.   FileTime AS STRING * 8
  10. END TYPE
  11.  
  12. SUB FileData (DTA$, File AS FileType) STATIC
  13.  
  14.   temp$ = MID$(DTA$, 31) + CHR$(0)
  15.   File.FileName = LEFT$(temp$, INSTR(temp$, CHR$(0)) - 1)
  16.  
  17.   File.FileAtt = ASC(MID$(DTA$, 22, 1))
  18.  
  19.   File.FileSize = CVL(MID$(DTA$, 27, 4))
  20.  
  21.   temp& = CVI(MID$(DTA$, 25, 2))
  22.   d = temp& AND &H1F
  23.   m = (temp& \ 32) AND &HF
  24.   y = ((temp& \ 512) AND &H1F) + 1980
  25.   d$ = LTRIM$(STR$(d))
  26.   IF LEN(d$) = 1 THEN d$ = "0" + d$
  27.   m$ = LTRIM$(STR$(d))
  28.   IF LEN(m$) = 1 THEN m$ = "0" + m$
  29.   File.FileDate = d$ + "." + m$ + "." + STR$(y)
  30.  
  31.   temp& = CVI(MID$(DTA$, 23, 2))
  32.   IF temp& < 0 THEN temp& = temp& + 65536
  33.   h = (temp& \ 2048) AND &H1F
  34.   m = (temp& \ 32) AND &H3F
  35.   s = temp& AND &H1F
  36.   h$ = LTRIM$(STR$(h))
  37.   IF LEN(h$) = 1 THEN h$ = "0" + h$
  38.   m$ = LTRIM$(STR$(m))
  39.   IF LEN(m$) = 1 THEN m$ = "0" + m$
  40.   s$ = LTRIM$(STR$(s))
  41.   IF LEN(s$) = 1 THEN s$ = "0" + s$
  42.   File.FileTime = h$ + ":" + m$ + ":" + s$
  43.  
  44. END SUB
  45. '* ------------------------------------------------------- *
  46. '*                   Ende von ACCDTA.BAS                   *
  47.