im Dat-File:
STRUCT S_DATEN INT TAG, INT MONAT, INT JAHR, INT STUNDE, INT MINUTE, INT SEKUNDE
DECL INT ZAEHLER
DECL DATE JETZT
DECL S_DATEN DATEN[100]
DATEN[1]={TAG 0, MONAT 0, JAHR 0, STUNDE 0, MINUTE 0, SEKUNDE 0}
DATEN[2]={TAG 0, MONAT 0, JAHR 0, STUNDE 0, MINUTE 0, SEKUNDE 0}
;usw
DATEN[100]={TAG 0, MONAT 0, JAHR 0, STUNDE 0, MINUTE 0, SEKUNDE 0}
im SRC-File:
JETZT=$DATE
ZAEHLER=ZAEHLER+1
IF ZAEHLER>100 THEN
ZAEHLER=0
ENDIF
DATEN[ZAEHLER].JAHR=JETZT.YEAR
DATEN[ZAEHLER].MONAT=JETZT.MONTH
DATEN[ZAEHLER].TAG=JETZT.DAY
DATEN[ZAEHLER].STUNDE=JETZT.HOUR
DATEN[ZAEHLER].MINUTE=JETZT.MINUTE
DATEN[ZAEHLER].SEKUNDE=JETZT.SECOND
Alles anzeigen
PS:
Nur so aus dem Gedächtnis.
Du kannst natürlich auch alle Einträge mit eine FOR-NEXT-Schleife eine Position weiterkopieren und den ersten Eintrag schreiben. Ist dann übersichtlicher.