home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / ddut / datetime.bas < prev    next >
BASIC Source File  |  1984-12-02  |  2KB  |  49 lines
  1. 100 REM ****************************************
  2. 110 REM **  DATE & TIME CONVERSION SUBROUTINE **
  3. 120 REM ****************************************
  4. 130 REM BY: MARC W. BARTA
  5. 140 REM     10751 ALLEGHENY
  6. 150 REM     DALLAS, TEXAS 75229
  7. 160 REM     COMPUSERVE [72466,1051]
  8. 170 REM
  9. 180 REM
  10. 190 REM The following is a short subroutine which can be included in any BASIC  200 REM program to convert the system date and time to more standard and usable 210 REM formats.  For example, "01-01-85" will become "January 1, 1985," and
  11. 220 REM "22:15" will become "10:15 P.M."  To use the subroutine simply GOSUB
  12. 230 REM to it once during the program, and then use the new date and time data
  13. 240 REM which will be stored as DATE1$ and TIME1$ respectively.  To incorporate
  14. 250 REM the subroutine into a program, use only lines 10000 and above.  The rest
  15. 260 REM of the program is just a short demonstration of what the program will
  16. 270 REM do.  I hope this subroutine is useful to you.
  17. 280 REM
  18. 290 REM
  19. 300 REM DEMONSTRATION ROUTINE
  20. 310 GOSUB 10000
  21. 320 PRINT "CONVERTED DATE IS: ";DATE1$
  22. 330 PRINT "CONVERTED TIME IS:";TIME1$
  23. 340 END
  24. 350 REM
  25. 360 REM
  26. 370 REM
  27. 10000 REM DATE & TIME SUBROUTINE
  28. 10010 DIM DATE3$(12)
  29. 10020 DATE1$=DATE$
  30. 10030 DATE2$=LEFT$(DATE1$,2)
  31. 10040 DATE%=VAL(DATE2$)
  32. 10050 RESTORE 10090
  33. 10060 FOR A%= 1 TO 12
  34. 10070 READ DATE3$(A%)
  35. 10080 NEXT A%
  36. 10090 DATA JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER
  37. 10100 DAY$=MID$(DATE1$,4,2):DAY%=VAL(DAY$)
  38. 10110 DAY$=STR$(DAY%)
  39. 10120 DATE1$=DATE3$(DATE%)+CHR$(32)+DAY$+", "+RIGHT$(DATE1$,4)
  40. 10130 REM TIME ROUTINE
  41. 10140 TIME1$=TIME$
  42. 10150 TIME2$=LEFT$(TIME1$,2)
  43. 10160 HOUR%=VAL(TIME2$)
  44. 10170 IF HOUR% > 11 THEN AMPM$="P.M." ELSE AMPM$="A.M."
  45. 10180 IF HOUR%=0 THEN HOUR%=12
  46. 10190 IF HOUR%>12 THEN HOUR%=HOUR%-12
  47. 10200 TIME1$=STR$(HOUR%)+MID$(TIME1$,3,3)+CHR$(32)+AMPM$
  48. 10210 RETURN
  49.  THEN HOUR