FUNCTION Giorno_della_settimana (Giorno, Mese, Anno: Integer): Integer;
BEGIN
IF (Mese < 3)
THEN
BEGIN
Mese := Mese + 12;
Anno := Anno - 1;
END;
Giorno_della_settimana := ((((Anno * 5) div 4) + (((Mese + 1) * 13) div 5) + Giorno + 4) mod 7);
END;
Con questa funzione ti ricavi il giorno della settimana...
[0..6] dove 0 è Lunedì e 6 è Domenica...
il resto è abbastanza semplice no???
Bastano due cicli e due vettori...
Che bello il Pascal così giallo e blu...
bei ricordi...CTRL F9...Syntax Error
Se hai bisogno del "dopo" chiedi pure...
ma almeno tenta...