- Beiträge
- 15.414
- Reaktionspunkte
- 4.043
-> Hier kostenlos registrieren
So geht es auch:
Code:
Jahr_von_BCD: INT;
Zwerg: Word;
Einer, Zehner: Word;
.
.
.
Zwerg := BYTE_TO_WORD(a_Datum_Uhrzeit[0]);
Zehner := SHR(IN := Zwerg, N := 4);
Einer := SHR(IN := SHL(IN := Zwerg, N := 12), N := 12);
Jahr_von_BCD := WORD_TO_INT(Zehner) * 10 + WORD_TO_INT(Einer);