|
L'ho modificato cosė:
x = Len(TextBox1)
y = LTrim(TextBox1.Text)
If x = 2 Then TextBox1 = y & "/"
If x = 5 Then TextBox1 = y & "/"
If x = 10 Then
If IsDate(Format$(Text1, "00/00/0000")) Then
Else
MsgBox "La data immessa non é esatta!"
Exit Sub
End If
[A1] = CDate(TextBox1)
TextBox1 = ""
End If
Ma non mi funziona, giusto o sbagliato che si al'inserimento, mi da sempre errore.
|