CLS
RANDOMIZE TIMER
DEFINT A-Z
DIM nom.du.jour$(7), jour.mois%(12)
DATA "LUNDI","MARDI","MERCERDI","JUNDI","VENDREDI","SAMDI","DIMACHE"
FOR i% = 1 TO 7: READ nom.du.jour$(i%): NEXT i%
DATA 31,28,31,30,31,30,31,31,30,31,30,31
FOR i% = 1 TO 12: READ jour.mois%(i%): NEXT i%
1 REM
CLS
PRINT
PRINT DATE$
PRINT
REM
INPUT "composer date de naissance(JJMMAAAA)"; jma$
jour% = VAL(LEFT$(jma$, 2))
mois% = VAL(MID$(jma$, 3, 2))
anne% = VAL(RIGHT$(jma$, 4))
REM
IF (anne% MOD 4 = 0 AND anne% MOD 100 <> 0 OR anne% MOD 400 = 0) THEN jour.mois%(2) = 29 ELSE jour.mois(2) = 28
IF anne% < 1900 OR anne% > 2100 THEN 10
IF mois% < 1 OR mois% > 12 THEN 20
IF jour% < 1 OR (jour% > jour.mois(mois)) THEN 30
PRINT
PRINT jour%; mois%; anne%
END
 
10 REM il y a une erreur
PRINT
PRINT "ERREUR DE ANNE"
PRINT
PRINT "poure sur ENTENR"
11 REM
z$ = ""
z$ = INKEY$
IF z$ = "" THEN 11
IF z$ = CHR$(13) THEN 1
GOTO 10
 
20 REM il y a une erreur
PRINT
PRINT "ERREUR DE MOIS"
PRINT
PRINT "poure sur ENTENR"
21 REM
z$ = ""
z$ = INKEY$
IF z$ = "" THEN 21
IF z$ = CHR$(13) THEN 1
GOTO 20
 
30 REM il y a une erreur
PRINT
PRINT "ERREUR DE JOUR"
PRINT
PRINT "poure sur ENTENR"
31 REM
z$ = ""
z$ = INKEY$
IF z$ = "" THEN 31
IF z$ = CHR$(13) THEN 1
GOTO 30