Zähler Programm aufwärts

Hallo....

ich möchte ein zähler in einem Programm einbauen wenn jedes mal das Programm abgefahren wird das es aufwärts zählt und wenn möglich mit DATUM und ZEIT.

würde mich freuen wenn ihr mir da helfen könntet...

Zitat von notime

im Dat-File:

Code

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:

Code

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.

Alles anzeigen

Hallo

Danke nochmals aber habe ausprobiert zeigt mir nur fehler an.
Hat nicht geklapt.
<Wie genau soll ich vor gehen habe im Prog Eweitertermodus in DAT File und SRC File
eingetragen.

Danke