home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / bonus / winer / chap6-8.bas < prev    next >
BASIC Source File  |  1992-05-12  |  779b  |  30 lines
  1. '*********** CHAP6-8.BAS - shows how to pack and unpack date values
  2.  
  3. 'Copyright (c) 1992 Ethan Winer
  4.  
  5. DEFINT A-Z
  6. DECLARE FUNCTION PackDate$ (D$)
  7. DECLARE FUNCTION UnPackDate$ (D$)
  8.  
  9. D$ = "03-22-91"
  10. Packed$ = PackDate$(D$)
  11. UnPacked$ = UnPackDate$(Packed$)
  12.  
  13. PRINT D$
  14. PRINT Packed$
  15. PRINT UnPacked$
  16.  
  17. FUNCTION PackDate$ (D$) STATIC
  18.   Year = VAL(RIGHT$(D$, 2))
  19.   Month = VAL(LEFT$(D$, 2))
  20.   Day = VAL(MID$(D$, 4, 2))
  21.   PackDate$ = CHR$(Year) + CHR$(Month) + CHR$(Day)
  22. END FUNCTION
  23.  
  24. FUNCTION UnPackDate$ (D$) STATIC
  25.   Month$ = LTRIM$(STR$(ASC(MID$(D$, 2, 1))))
  26.   Day$ = LTRIM$(STR$(ASC(RIGHT$(D$, 1))))
  27.   Year$ = LTRIM$(STR$(ASC(LEFT$(D$, 1))))
  28.   UnPackDate$ = RIGHT$("0" + Month$, 2) + "-" + RIGHT$("0" + Day$, 2) + "-" + RIGHT$("0" + Year$, 2)
  29. END FUNCTION
  30.