home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 12 / tricks / logbuch.bas < prev    next >
Encoding:
BASIC Source File  |  1989-09-06  |  1.4 KB  |  36 lines
  1. '* ------------------------------------------------------- *
  2. '*                     LOGBUCH.BAS                         *
  3. '*          (c)  Herbert Förter  &  TOOLBOX                *
  4. '* ------------------------------------------------------- *
  5. DECLARE SUB DATUMC (Datum$)      ' Datum in deutschem Format
  6.  
  7. Kommentar$ = COMMAND$            ' Meldung übernehmen
  8. CALL DATUMC(Datum$)              ' Datum umsetzen
  9. l% = LEN(Kommentar$)             ' 80 stellige Meldung auf-
  10. FOR i% = l% + 1 TO 49            ' bereiten durch Auffüllen
  11.   Kommentar$ = Kommentar$ + "-"
  12. NEXT i%                         ' mit `-` und Zeit anhängen
  13. logmeld$ = Kommentar$ + " am " + Datum$ + " um "
  14. logmeld$ = logmeld$ + TIME$ + " Uhr"
  15. logdatei$ = "d:\logbuch.dat"     ' Logbuchdatei öffnen mit
  16. OPEN logdatei$ FOR APPEND AS #1  ' Laufwerks- und Pfadangabe
  17.   WRITE #1, logmeld$             ' Meldung speichern
  18.   CLOSE #1
  19. END                              ' Ende Programm LOGBUCH
  20. '* ------------------------------------------------------- *
  21. '*                  Ende von LOGBUCH.BAS                   *
  22.  
  23. ' Subroutine DATUMC
  24. '
  25. ' stellt das Datum auf die Form `TT.MM.JJ` um
  26. '
  27. '
  28. ' Eingabe: DATE$  - Systemvariable (wird intern gerufen)
  29. ' Ausgabe: Datum$ - Datum in der Form TT.MM.JJ
  30. ' common:  nein
  31. '
  32. SUB DATUMC (Datum$)
  33. Datum$ = MID$(DATE$, 4, 2) + "." + MID$(DATE$, 1, 2) + "." + MID$(DATE$, 9, 2)
  34. END SUB
  35.  
  36.