habe ausversehen noch ein paar sachen vergessen
hier der code, ohne fehler.
muss ihn nurnoch testen



$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Dim Days As Word
Dim Months As Word
Dim Years As Word
Dim Weekdays As Word
Dim J As Word
Dim I As Word
Days = Days + 6
Months = Months + 9
Years = Years + 2010



Weekdays = Days Mod 7
J = Months - 1
J = Lookup(j , Monat)
Weekdays = Weekdays + J
J = Years \ 4
J = J + Years
J = J Mod 7
Weekdays = Weekdays + J
Weekdays = Weekdays + 6 'Jahrhunderziffer
I = Years Mod 4 : If I = 0 Then If Years <> 0 Then J = 6 Else J = 0
Weekdays = Weekdays + J
Weekdays = Weekdays Mod 7


Print
Print "Days:" ; Days
Print "Months:" ; Months
Print "Years:" ; Years
Print "Weekdays:" ; Weekdays
Print "J:" ; J
Print "I:" ; I
Print
Wait 5




Return

Monat:
Data 0 , 3 , 3 , 6 , 1 , 4 , 6 , 2 , 5 , 0 , 3 , 5

Weekday:
Data "So" , "Mo" , "Di" , "Mi" , "Do" , "Fr" , "Sa"

rauskommt im terminal:

Days:6
Months:9
Years:2010
Weekdays:3
J:0
I:2

Days, Months, Years korrekt, aber Weekdays (wochentag) müsste doch 1 sein (Montag) oder nicht