-> Hier kostenlos registrieren
Hallo,
bin Anfänger und habe ein kleines Programm geschrieben, mit dem ich ein bestimmtes Datum, bzw. eine bestimmte Uhrzeit herausfinden kann.
Das ganze funktioniert, ist nur nicht sehr übersichtlich.
Kann man das Ganze auch besser schreiben, so dass man den Tag, bzw. die Uhrzeit besser lesen kann.
Danke und Gruß
Hanns-Dieter
tmp:
CPU_Time: type Date_And_Time Adresse 0.0
Stunde: type byte Adresse 10.0
Minute: type byte Adresse 11.0
----------------
Feiertag herausfinden
R #Feiertag
CALL SFC 1 // Lesen des System-Datums und Uhrzeit
RET_VAL:=#error
CDT :=#CPU_Time
L #error // Fehler beim lesen der Zeit ?
L 0 // Ist der Inhalt von #error ="0"
<>I // dann ist alles OK.
BEB
L LW 1
L W#16#101 // Neujahr
==I
S #Feiertag
TAK
L W#16#106 // 3 König
==I
S #Feiertag //M 100.0
-----------
Einen bestimmte Uhrzeit herausfinden
CALL SFC 1 // Lesen des System-Datums und Uhrzeit
RET_VAL:=#error
CDT :=#CPU_Time
L #error // Fehler beim lesen der Zeit ?
L 0 // Ist der Inhalt von #error ="0"
<>I // dann ist alles OK.
BEB
L B#16#7 // Ein Stunde / 7
T #Stunde // in Temp. eintragen
L B#16#28 // Ein Minute / 15
T #Minute // in Temp. eintragen
L LW 3
L LW 10
==I
= "Uhrzeit 7:28" // M 101.0
bin Anfänger und habe ein kleines Programm geschrieben, mit dem ich ein bestimmtes Datum, bzw. eine bestimmte Uhrzeit herausfinden kann.
Das ganze funktioniert, ist nur nicht sehr übersichtlich.
Kann man das Ganze auch besser schreiben, so dass man den Tag, bzw. die Uhrzeit besser lesen kann.
Danke und Gruß
Hanns-Dieter
tmp:
CPU_Time: type Date_And_Time Adresse 0.0
Stunde: type byte Adresse 10.0
Minute: type byte Adresse 11.0
----------------
Feiertag herausfinden
R #Feiertag
CALL SFC 1 // Lesen des System-Datums und Uhrzeit
RET_VAL:=#error
CDT :=#CPU_Time
L #error // Fehler beim lesen der Zeit ?
L 0 // Ist der Inhalt von #error ="0"
<>I // dann ist alles OK.
BEB
L LW 1
L W#16#101 // Neujahr
==I
S #Feiertag
TAK
L W#16#106 // 3 König
==I
S #Feiertag //M 100.0
-----------
Einen bestimmte Uhrzeit herausfinden
CALL SFC 1 // Lesen des System-Datums und Uhrzeit
RET_VAL:=#error
CDT :=#CPU_Time
L #error // Fehler beim lesen der Zeit ?
L 0 // Ist der Inhalt von #error ="0"
<>I // dann ist alles OK.
BEB
L B#16#7 // Ein Stunde / 7
T #Stunde // in Temp. eintragen
L B#16#28 // Ein Minute / 15
T #Minute // in Temp. eintragen
L LW 3
L LW 10
==I
= "Uhrzeit 7:28" // M 101.0