Datums Gültigkeit

Hi erstmal,
Ich sag euch erst mal die Aufgabenstellung und dann meinen Code und dann mein Problem

Aufgabe:
Ein Datum soll auf seine gültigkeit überprft werden, wobei die Monate mit 31 und 30 Tage unterschieden werden sollen, genauso auch ein schaltjahr mit in Spiel gebracht werden soll.

REM Datums_Gltigkeit
DIM tage AS INTEGER
DIM jahr AS INTEGER
DIM monat AS INTEGER


PRINT "Dieses Programm berprft, ob ihr angegebenes Datum gltig ist."
INPUT "Geben Sie zun„chst das Jahr ein:"; jahr
INPUT "Geben Sie jetzt den Monat ein:"; monat
INPUT "Zuletzt fehlt noch der Tag:"; tage


IF monat = 0 OR 13 THEN
PRINT " DATUM UNGšLTIG"
ELSEIF tage = 0 OR tage > 32 THEN
PRINT "DATUM UNGšLTIG "
END IF


monat(2) = 28


SELECT CASE monat
CASE IS = 1 OR 3 OR 5 OR 7 OR 8 OR 10 OR 12
monat = 31
CASE ELSE
monat = 30
END SELECT
rest = jahr MOD 4


IF rest = 0 THEN monat(2) = 29

MEIN PROBLEM:
Irgendwie zeigt er mir egal was ich eingebe "DATUM UNGÜLTIG" an. Zudem weiß ich nicht wie ich dem Programm sagen kann, dass es das Datum überprüfen soll. Ein weiteres Problem sind die ganzen Monate mit 31 und 30 Tagen. Weiß einer von euch wie man das in eine zählerschleife umwandeln könnte?

DANKE IM VORAUS

den ersten link kann ich net richti öffnen, da ich nicht die Recht dafür habe. Und der zweite ist zwar hilfreich aber ich kenne mich nicht mit deren Syntax aus.

wie ist dieser code?