- [ schaelkle | schaelkle ]

Mit dem folgenden Script kann die Kalenderwoche berechnet und ausgegeben werden, in die der heutige Tag fällt:

#makro
$$ MODE TUSCRIPT,{}
SET eins = 1, vier = 4
SET wtx = DATE (TODAY, tag, mon, jahr, numx)
SET wt0 = DATE (NUMBER, vier, eins, jahr, num0)
SET kw = (numx - (num0 - wt0) + 6)/7
PRINT kw
*eof

Die ersten drei Tage eines Jahres gehören evt. noch zur letzten Kalenderwoche des vorangehenden Jahres. In diesem Fall liefert das Script die Kalenderwoche Null.

Soll die Kalenderwoche zu einem beliebigen Tag berechnet werden (z.B. für den 9. Mai 2014), muss folgende Zeile in obigem Script ergänzt und die Belegung der Variable wtx entsprechend geändert werden:

SET tag = 9, mon = 5, jahr = 2014
SET wtx = DATE (NUMBER, tag, mon, jahr, numx)

Zurück zum Inhaltsverzeichnis - Lösungen und Tipps