home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BAS_SUB.ZIP / PAK-DATE.BAS < prev    next >
Encoding:
BASIC Source File  |  1985-04-19  |  1.9 KB  |  33 lines
  1. 10 ' DATPAK.BAS Written by Kurt Riegel, Arlington VA  (703-522-5427) Oct 1983
  2. 20 ' These subroutines can pack a 6 byte date into a 2 byte integer, and
  3. 30 ' then unpack the integer to restore the original date.  They are useful for
  4. 40 ' saving space in memory and disk for date intensive data.
  5. 50 ' The first section shows how to call the pack & unpack routines.
  6. 60 ' Input  dates are of the form D$ = "YYMMDD"
  7. 70 ' Output dates are of the form ND% = simple 2 byte integer
  8. 80 ' You are responsible for assuring that the input date is sensible.  For          example, 830231 is returned as 830231; 830333 is returned as 830402.
  9. 90 ' Date range is 010102 to 991231 -- modify for dates not in 20th century.
  10. 100 'The variables D$, ND%, and M$ are modified by these routines--change their      names if they will clobber your own variables in your calling program.
  11. 110 '
  12. 120 '
  13. 130 '
  14. 140 PRINT TAB(9)"date in"TAB(25)"integer out"TAB(40)"date out" 'Calling section
  15. 150 INPUT"yymmdd";D$:PRINT TAB(9)D$;
  16. 160 GOSUB 220:PRINT TAB(25)ND%;:GOSUB 280:PRINT TAB(40)D$:GOTO 150
  17. 170 '
  18. 180 '
  19. 190 'This subroutine packs a 6 byte date D$ into a 2 byte integer ND%
  20. 200 'Call by providing date D$="YYMMDD", GOSUB 220.  ND% is returned.
  21. 210 'Only the variable ND% is modified by this section
  22. 220 ND%=((VAL(LEFT$(D$,2))-80)*12+VAL(MID$(D$,3,2))-1)*31+VAL(RIGHT$(D$,2))-1:RETURN
  23. 230 '
  24. 240 '
  25. 250 'This subroutine unpacks a 2 byte integer ND% into a 6 byte date D$.
  26. 260 'Call by providing integer ND% created above, GOSUB 280.  D$ is returned.
  27. 270 'Only the variables D$ and M$ are modified by this section
  28. 280 D$=STR$(80+ND%\372+(ND%<0)):D$=RIGHT$("0"+RIGHT$(D$,LEN(D$)-1),2)
  29. 290 ND%= (372+ND% MOD 372) MOD 372:M$=STR$(1+ND%\31):M$=RIGHT$(M$,LEN(M$)-1)
  30. 300 D$=D$+RIGHT$("00"+M$,2)
  31. 310 ND%= (31+ND% MOD 31) MOD 31:M$=STR$(1+ND%):M$=RIGHT$(M$,LEN(M$)-1)
  32. 320 D$=RIGHT$(D$+RIGHT$("00"+M$,2),6):RETURN
  33.