F_GetWeekOfTheYear

Die Funktion liefert die Nummer der Kalenderwoche zu einem vorgegebenen Datum nach der DIN 1355 / ISO 8601 Norm.

• Die erste Kalenderwoche ist definiert als die erste Woche, in die mindestens vier Tage des neuen Jahres fallen (DIN 1355 / ISO 8601);
• Die Kalenderwochen beginnen Montags und jede Kalenderwoche enthält 7 Tage;
• Es gibt jährlich entweder 52 oder 53 Kalenderwochen. Es gibt 53 Kalenderwochen wenn ein Jahr mit einem Donnerstag beginnt oder endet;
• Die erste Kalenderwoche hat die Nummer 1;
• Der 29, 30 und 31 Dezember kann auch schon zur ersten Kalenderwoche des Folgejahres gehören;
• Der 1, 2 und 3 Januar kann auch noch zur letzten Kalenderwoche des Vorjahres gehören;

FUNCTION F_GetWeekOfTheYear : WORD

VAR_INPUT
    in : DT;
END_VAR

PROGRAM MAIN
VAR
    dtNow      : DT := DT#2008-03-17-12:00;
    weekOfYear : WORD;
END_VAR

weekOfYear := F_GetWeekOfTheYear(dtNow);