Format di un campo Date particolare

[s-gigi]

Ciao,

ho un piccolo problema con la formattazione di un campo contenente una data. In pratica vorrei far sì che se si inseriscono solo i numeri ad esempio 22062002 me la formatti automaticamente in 22/06/2002... fino a qui nessun problema usando questo script:

[B]If Len(Campo_Data) = 8 Then Campo_Data = Format(Campo_Data, "&&/&&/&&&&")[B]

Pero' il problema è che se volessi inserire una data in un altro formato (ad esempio "22 giugno 2002") NON POSSO perchè arrivata all'ottava lunghezza me la formatta come "&&/&&/&&&&"!!

Qualcuno ha qualche idea??

Grazie

Gigi

[chipdb]

Perché non provi così:

If Len(Campo_Data) = 8 And isNumeric(Campo_Data) Then

Campo_Data = Format(Campo_Data, "&&/&&/&&&&")
Else
altro codice
End If

In questo modo nell'evento Else (cioé nel caso in cui il valore non sia numerico) puoi creare l'algoritmo per leggere il valore della data per esteso (20 giugno 2002).

Ciao

[s-gigi]

lo sapevo che doveva essere una cosa semplice!!

Grazie per l'aiuto!!

Gigi