Jetter JVM-407B-HMI, User Manual

Page: 208 / 300

208 Jetter AG
10 Programming
// Displaying day of the week
Case RTCregs.DayOfWeek Of
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 ;
// Displaying date
Trace(StrFormat( ' , %2d.%02d.%4d , ' ,
RTCregs.Day,
RTCregs.Month,
RTCregs.Year +
2000 ));
// Displaying time (plus cr/lf)
Trace(StrFormat( '%2d:%02d:%02d$n' ,
RTCregs.Hour,
RTCregs.Minute,
RTCregs.Second));
End_Loop ;
End_Task ;