Kalenderwoche

28/11/2008 - 11:19 von Matthias Kahlert | Report spam
Habadere mitanander...

Hat zufàllig jemand von Euch auf die Schnelle ein Codeschnippsel zur
Hand, wie ich aus einer Kalenderwoche (etwa 48/2008) den ersten Tag
(Montag) eben dieser KW berechnen kann?

Matthias Kahlert
[MaxPro] Software
http://www.max-pro.de
 

Lesen sie die antworten

#1 Hans-Peter Grözinger
28/11/2008 - 11:43 | Warnen spam
Hallo Matthias !

Hat zufàllig jemand von Euch auf die Schnelle ein Codeschnippsel
zur Hand, wie ich aus einer Kalenderwoche (etwa 48/2008) den
ersten Tag (Montag) eben dieser KW berechnen kann?



LPARAMETERS tnWeek AS INTEGER, tnYear AS INTEGER

LOCAL ldDate AS DATE

*-- Datum für den ersten Januar des gesuchten Jahres setzen
ldDate = DATE( tnYear, 1, 1 )

*-- Datum der ersten Kalenderwoche finden
IF WEEK( ldDate, 2, 2 ) = 53
ldDate = ldDate + 7
ENDIF

*-- Montag der ersten Kalenderwoche
ldDate = ldDate - DOW( ldDate, 2 ) + 1

*-- Anzahl der gesuchten Wochen hinzu
ldDate = ldDate + ( 7 * ( tnWeek - 1 ) )

*-- Ermitteltes Datum zurückgeben
RETURN( ldDate )

HtH

Hans-Peter Grözinger
TOFU ist gedankenlose Resourcenverschwendung.
http://einklich.net/usenet/zitier.htm
http://support.microsoft.com/defaul...GNetikette

Ähnliche fragen