controllo se la stringa è una data.

[webhunter]

Ciao ragazzi,
ho un problema...io ho una stringa (di qualsiasi tipo, quindi non prevededibile in nessun modo) e devo controllare se corrisponde al formato data dd/mm/yyyy.
Ho fatto una cosa simile:
IF NOT ( isnull(DATACOMM) or DATACOMM="" ) THEN
ControlData= Split(DATACOMM,"/")

Giorno = ControlData(0)
Mese = ControlData(1)
Anno = ControlData(2)


IF (isnull(Giorno) or Giorno="" or isnull(Mese) or Mese="" or isnull(Anno) or Anno="") THEN
FlagErrore="1"
ELSE
IF ((cint(Giorno)<1 or cint(Giorno)>31) OR (cint(Mese)<1 or cint(Mese)>12) OR (cint(Anno)<1000 or cint(Anno)>9999)) THEN
FlagErrore="1"
END IF
END IF
END IF

Il problema del codice qui' descritto è che se la stringa DATACOMM è uguale a "pippo" mi va in errore (subscript out of range) perchè la seconda posizione dell'array (Mese= ControlData(1)) non esiste...
come posso scavalcare il problema?
Grazie

[Shagrat]

c'è la funzione già fatta

isDate(tuaVariabile)

[webhunter]

Cosa mi restituisce nel caso in cui la stringa è in formato corretto e invece nel caso di formato errato?
Comunque grazie mille!

[Shagrat]

true se è una data false altrimenti

[webhunter]

Sei un grande....bacioni! :-D

[webhunter]

Originariamente inviato da Shagrat
c'è la funzione già fatta

isDate(tuaVariabile)

Il problema è che se gli passo miavariabile=12-12-12 se la beve e mi da True mentre io mi aspetto un False...mi serve una funzione che mi accetti solo il formato dd/mm/yyyy.

[webhunter]

tra l'altro mi aspetto che il separatore sia "/" e non "-"....

[Corwin]

Set regEx = New RegExp 
regEX.Pattern = "^[0-9]{2}/[0-9]{2}/[0-9]{4}$"
if regEx.Test(DATACOMM) Then
Str = Split(Stringa,"/")
If IsDate(Str(1) & "-" & Str(0) & "-" & Str(2)) Then
' è una data in formato dd/mm/yyyy
else
FlagErrore = "1"
end if
else
FlagErrore = "1"
end if

[webhunter]

Io ho fatto questo accrocco e funziona :-D

'**********controllo DATACOMM*************
IF NOT ( isnull(DATACOMM) or DATACOMM="" ) THEN
controlData = Split(DATACOMM,"/")
PosizioniData=ubound(controlData) + 1

IF PosizioniData<>3 THEN
FlagErrore="1"
ELSE

Giorno = ControlData(0)
Mese = ControlData(1)
Anno = ControlData(2)

IF (isnull(Giorno) or Giorno="" or isnull(Mese) or Mese="" or isnull(Anno) or Anno="") THEN
FlagErrore="1"
ELSE
IF ((cint(Giorno)<1 or cint(Giorno)>31) OR (cint(Mese)<1 or cint(Mese)>12) OR (cint(Anno)<1000 or cint(Anno)>9999)) THEN
FlagErrore="1"
END IF
END IF

END IF
END IF
'*****************************************



se puo' servire...o lascio qui'

[Corwin]

Mica tutti i mesi hanno 31 giorni...