Melden Sie sich hier an, um auf Kommentare und die Whitepaper-Datenbank zugreifen zu können.

Kein Log-In? Dann jetzt kostenlos registrieren.

Falls Sie Ihr Passwort vergessen haben, können Sie es hier per E-Mail anfordern.

Der Zugang zur Reseller Only!-Community ist registrierten Fachhändlern, Systemhäusern und Dienstleistern vorbehalten.

Registrieren Sie sich hier, um Zugang zu diesem Bereich zu beantragen. Die Freigabe Ihres Zugangs erfolgt nach Prüfung Ihrer Anmeldung durch die Redaktion.

06.06.1997 - 

Faxline

Kalenderwoche ermitteln

06.06.1997

In der CW Nr. 17 fragte J. Bock aus Erkrath nach einem Algorithmus, der die aktuelle Kalenderwoche ermittelt. Wir druckten einen Algorithmus ab, den einige Leser kritisierten. Er benutzt die Funktion dow (Day of Week) von Dbase, die in anderen Programmierumgebungen nicht unbedingt verfügbar ist. Nachstehend zeigen wir daher das allgemeine Verfahren, das uns Leser Rösgen aus Offenbach übermittelte.

(1) Ermittlung des Wochentages des 1. Januar des betreffen- den Jahres (gregorianische Kalenderfunktion). Mo=1, Di=2... So=7.

(2) Ermittlung der Anzahl der Tage zwischen dem 1. Januar und dem betreffenden Datum (Tabelle mit Monatslängen und Schaltjahren).

(3) Ist der Wochentag aus (1) größer als Donnerstag, dann Wert für "BasisWoche"=0, sonst Wert für "BasisWoche"=1.

(4) Anzahl der Tage aus (2) ganzzahlig durch 7 teilen, ergibt den Wert "WochenAnzahl". Zur "WochenAnzahl" den Wert der "BasisWoche" aus (3) addieren.

(5) Anzahl der Resttage (Anzahl Mod 7) zu Wochentag aus (1) addieren. Ist Ergebnis > 7, "WochenAnzahl" aus (4) um eins erhöhen. Der Wert von "WochenAnzahl" bezeichnet nun die gesuchte Kalenderwoche.