Wochentag berechnen -> 0 bis 6

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

1

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

2

3

        Dim h As Short

4

        Dim k As Short

5

6

        If month <= 2 Then

7

            h = month + 12

8

            k = year - 1

9

        Else

10

            h = month

11

            k = year

12

        End If

13

14

15

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

16

        GetWeekday = GetWeekday Mod 7

17

18

    End Function

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

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

Wie viel Bit hat denn so ein "short"?

Nick

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

Guter Tipp, aber an dem liegts nicht :-(

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.

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.

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. 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 ?