Sollte man dann nicht auch gleich die Anzahl der Monatstage und die Schaltjahre beruecksichtigen?
Code
672 iflen(d$(a,1))<>10then670
673 km=val(mid$(d$(a,1),4,2)): if km>12 or km<1 then 670
674 kt = val(left$(d$(a,1),2))
675 kj = val(right$(d$(a,1),4))
676 if kt<1 or kt >31 then 670
677 if (km=4orkm=6orkm=9orkm=11)and kt>30 then670
678 sj=0: if kj/4=int(kj/4) thensj=1
679 rem schaltjahrberechnung
680 if kj/100=int(kj/100)then sj=0
681 if kj/400=int(kj/400)thensj=1
682 if km=2and kt>28+sjthen 670
Alles anzeigen
Edit: Ich sehe gerade, die Zeilen 678 und 679 sin vertauscht. Macht aber weiter nichts.