Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: Immer ärger mit Dow Kategorie: C-Control I V1.1 (von ManfredW, Homepage - 4.04.2004 18:13)
 Als Antwort auf Re: Immer ärger mit Dow von Michaelichael - 4.04.2004 16:59
> OK Also Dow stellt sich nicht selbst (steht übrigens auch nicht in der faq)
>
> weiss denn jemand wie ich mit einem kleinen Basic Programm
> den Wochentag aus dem Datum berechnen kann ?
>
> ich möchte das nicht vom benutzer stellen lassen.
>
Hallo,
als erstes muss die TagNr. des Jahres berechnet werden.
TagNr = (month - 1) * 31 + day

Dann wird je nach Monat korrigiert.
if month > 2 then TagNr = TagNr - 2 ' wegen Schaltjahr sonst -3
if month > 4 then TagNr = TagNr - 1
if month > 6 then TagNr = TagNr - 1
if month > 9 then TagNr = TagNr - 1
if month > 11 then TagNr = TagNr - 1
Danach angepasst an Woche 1 des Jahres 2004
TagNr = TagNr + 3

Zuletzt wird durch 7 geteilt, Rest ist der Wochentag.
Dow = TagNr MOD 7

Für den 5.4.2004 berechnet
(4-1)*31+ 5 = 98;  98 -2 = 96; 96 +3 = 99; 99 MOD 7 = 1 (Montag)

Für 2005 usw.musst Du  Korrekturen in das Programm einbauen.
MfG
ManfredW



Meine Homepage: http://manfred.wilzeck.de

 Antwort schreiben

Bisherige Antworten:

Programm Jahrestag und Dow (von ManfredW - 5.04.2004 21:15)
    Re: Programm Jahrestag und Dow (von Michael - 6.04.2004 22:56)
    Re: Programm Jahrestag und Dow (von Michael - 6.04.2004 22:54)
Re: Immer ärger mit Dow (von Michael - 5.04.2004 16:36)