Wochentag berechnen -> 0 bis 6

[MaWin (Gast)]

Hallo Leute,

In einer Kleinsteuerung (Siemens Logo) will ich den Wochentag berechnen.
(d.h. keine Gleitpunktberechnung)
Dieser muss dann wie folgt aussehen:
Sonntag  = 0
Mittwoch = 3
Samstag  = 6

Ha, einfach dachte ich uns googelte mal:
http://www.straub.as/csharp/basic/Uwochentag.html

Danach entwarf ich in VB.net schnell mal ein Programm (siehe Anhang).

Leider stimmt die Berechnung nicht :-O

Woran liegt es?

Hat jemand eine andere Formel?

[MaWin (Gast)]

Für alle, denen mein Programm ein Virus darstellt, obwohl in source:

   Function GetWeekday(ByVal dayofmonth As Short, ByVal month As Short, ByVal year As Short) As Short

        Dim h As Short
        Dim k As Short

        If month <= 2 Then
            h = month + 12
            k = year - 1
        Else
            h = month
            k = year
        End If


        GetWeekday = dayofmonth + 2 * h + (3 * h + 3) / 5 + k + k / 4 - k / 100 + k / 400 + 1
        GetWeekday = GetWeekday Mod 7

    End Function

[Harald W. (wilhelms)]

MaWin schrieb:

> Leider stimmt die Berechnung nicht :-O
>
> Woran liegt es?

Berücksichtigt Deine Formel denn die Besonderheiten des
Gregorjanischen Kalenders?

[Wegstaben V. (wegstabenverbuchsler)]

MaWin schrieb:
> Leider stimmt die Berechnung nicht :-O

geht nicht gibts nicht.
Bitte mehr Fehlertext (Fehlerbeschreibung)

[MaWin (Gast)]

Normal schon mit den 100 und 400 Jahren.
Dafür habe ich ja die Formel mithereingestellt.

[MaWin (Gast)]

Fehlertext:
Wie im Programm ersichtlich, wird ein Datum mit einem DateTimePicker 
vorgegeben.
Es wird aber der falsche Wochentag berechnet.

[nickm (Gast)]

Wie viel Bit hat denn so ein "short"?

Nick

[MaWin (Gast)]

nickm schrieb:
> Wie viel Bit hat denn so ein "short"?
>
> Nick

Guter Tipp, aber an dem liegts nicht :-(

[Achim H. (anymouse)]

Short sollte vermutlich mehr als 15 Bit haben (16 mit Vorzeichen).
Könnte, aber muss nicht reichen.

Was macht "/" bei Deiner Sprache (VB.net?) bei Division mit 
Integer-Zahlen?

[MaWin (Gast)]

Achim H. schrieb:
> Short sollte vermutlich mehr als 15 Bit haben (16 mit Vorzeichen).
> Könnte, aber muss nicht reichen.
>
> Was macht "/" bei Deiner Sprache (VB.net?) bei Division mit
> Integer-Zahlen?

Das gleiche wie in C#.
Habe es mit diversen Datentypen durchgekaut.

[Elias K. (elik)]

Wo hast du die Formel her? In den Formeln bei Wikipedia taucht idR eine 
2.6 als Faktor auf, um die Monate zu berechnen. Wie funktioniert das bei 
deiner Formel?
https://de.wikipedia.org/wiki/Wochentagsberechnung

MaWin schrieb:
> Es wird aber der falsche Wochentag berechnet.
Kannst du bitte einige Beispiele geben? (Datum - Soll - Ist)

[MaWin (Gast)]

Achim H. schrieb:
> Short sollte vermutlich mehr als 15 Bit haben (16 mit Vorzeichen).
> Könnte, aber muss nicht reichen.
>
> Was macht "/" bei Deiner Sprache (VB.net?) bei Division mit
> Integer-Zahlen?

Du bist mein Held.
DAS war doch der entscheidende Hinweis.
div ist in vb nämlich \ und nicht /
Dankeschön nochmals.

[MaWin (Gast)]

Das wird ja immer munterer hier mit den Psychopathen die MaWin ins 
Namensfeld schreiben. Nun outen sie sich als VB Programmierer die kein 
VB können, Nun ja, die Namensschummelei werden die meisten schon bemerkt 
haben.

[Harald W. (wilhelms)]

MaWin schrieb:

> Das wird ja immer munterer hier mit den Psychopathen die MaWin ins
> Namensfeld schreiben.

Wer sagt Dir denn, das es ausser Dir nicht noch andere Personen
gibt, die die gleiche Buchstabenkombination als Namen haben?

[Joachim B. (jar)]

Harald W. schrieb:
> Wer sagt Dir denn, das es ausser Dir nicht noch andere Personen
> gibt, die die gleiche Buchstabenkombination als Namen haben?

vermutlich postet hier nun der Ex Vorstandsvorsitzende von VW & Porsche,

VB könnte passen, eher als µC

[MaWin (Gast)]

Harald W. schrieb:
> Wer sagt Dir denn, das es ausser Dir nicht noch andere Personen
> gibt, die die gleiche Buchstabenkombination als Namen haben

Der gesunde Menschenverstand sagt, dass er das nicht in der Form 
abgekürzt schreiben würde.
Hast du keinen ?