Visual Basic 6 - codicefiscale controllo data

Forum - Visual Basic 6 - codicefiscale controllo data

skallynm (Normal User)
Newbie

Messaggi: 9
Iscritto: 24/11/2007

Postato alle 16:50
Giovedì, 06/12/2007

devo fare un programma ke controlli l'esattezza del codice fiscale...ma nn riesco a controllare se è esatta la data cioè il 10° e 11° carattere del codice...
come posso fare????

ps:ho usato un array di textbox

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 19:10
Giovedì, 06/12/2007

Mostra il codice che hai scritto e ti si dice dove hai sbagliato ...

skallynm (Normal User)
Newbie

Messaggi: 9
Iscritto: 24/11/2007

Postato alle 18:59
Domenica, 09/12/2007

data = Val(Mid(txtinserisci, 9, 2))
If data < 1 And data > 31 Or data < 41 And data > 71 Then
MsgBox "data di nascita non corretta"

gius (Ex-Member)
Expert

Messaggi: 294
Iscritto: 20/06/2007

Postato alle 19:14
Domenica, 09/12/2007

Testo quotato

Postato originariamente da skallynm:
< 41 And data > 71 Then

nn capisco perchè metti questo or

skallynm (Normal User)
Newbie

Messaggi: 9
Iscritto: 24/11/2007

Postato alle 19:16
Domenica, 09/12/2007

cosa dovrei mettere???

gantonio (Normal User)
Guru^2

Messaggi: 1532
Iscritto: 09/09/2007

Postato alle 19:51
Domenica, 09/12/2007

Intanto, per prelevare il giorno, devi scrivere

data = Val(Mid(txtinserisci, 10, 2))

usando il valore 10 e non il 9

E poi, per controllare se il giorno e' sbagliato la If deve essere

If data < 1 Or (data > 31 And data < 41) Or data > 71 Then MsgBox "NO"