Jetter JVM-407 Betriebsanleitung Seite 212

11 Programmierung
212
Break;
5: Trace('Friday');
Break;
6: Trace('Saturday');
Break;
End_Case;
// show date
Trace(StrFormat(' , %2d.%02d.%4d ,
// show time (plus cr/lf)
Trace(StrFormat('%2d:%02d:%02d$n',
End_Loop;
End_Task;
RTCregs.Day,
RTCregs.Month,
RTCregs.Year + 2000));
RTCregs.Hour,
RTCregs.Minute,
RTCregs.Second));
',
Jetter AG