Inhaltsverzeichnis
Werbung
10 Programmierung
208
// Wochentag anzeigen
Case
RTCregs.DayOfWeek
0:
Trace('Sunday');
Break;
1:
Trace('Monday');
Break;
2:
Trace('Tuesday');
Break;
3:
Trace('Wednesday');
Break;
4:
Trace('Thursday');
Break;
5:
Trace('Friday');
Break;
6:
Trace('Saturday');
Break;
End_Case;
// Datum anzeigen
Trace(StrFormat(' , %2d.%02d.%4d ,
// Zeit anzeigen (plus cr/lf)
Trace(StrFormat('%2d:%02d:%02d$n',
End_Loop;
End_Task;
Of
RTCregs.Day,
RTCregs.Month,
RTCregs.Year + 2000));
RTCregs.Hour,
RTCregs.Minute,
RTCregs.Second));
',
Jetter AG
Werbung
Kapitel
Inhaltsverzeichnis
