Ändern wir das also nochmals:
Code: Alles auswählen
Laden("Uhr.Jahrhundert,Uhr.AltesJahr")
wenn AltesJahr <> Jahr dann
wenn AltesJahr > Jahr dann
Jahrhundert := Jahrhundert + 1
endewenn
AltesJahr := Jahr
Sichern("Uhr.Jahrhundert,Uhr.AltesJahr")
endewenn
Uhr := Uhr + Jahrhundert + Jahr
Bümpi