Validare data

[peppeweb]

Ciao Ragazzi,

ho una funzione che mi verifica la validità di una data inserita, anche se non è il massimo delle funzioni (purtroppo deve convivere con altre funzioni sempre in VBScript), mi servirebbe di aggiungere un controllo sulla lunghezza del campo.
Cioè se viene inserita una data in formato 12/10/2004 è tutto ok ma se viene inserita 12/10/04 mi deve il messaggio data non valida

E' possibile ?

<script language=VBScript>

Function ChkDate(Campo)
	Dim stringa
	stringa = "ValoreCampo="&Campo&".value"
	execute stringa
	IF Not(isdate(ValoreCampo))AND trim(ValoreCampo)<>"" Then
			alert "Data non valida !",0,"Errore"
	End If
	chkdate = campo
End Function

</SCRIPT>
<form action="action.asp">gg/mm/aaaa
	<input id="DATAAPP" ONBLUR="ChkDate('document.all.DATAAPP')" type="text" name="data">
	<input type="button" value="verifica data">
</form>

Vi ringrazio di cuore

Bye

[Mich_]

Se sai usare le regexp, questa e` la stringa che ti serve:
/\d{2}\/\d{2}\/\d{4}/

Altrimenti non ti so aiutare per VBS.

[willybit]

Ciao a tutti,

Function ChkDate(Campo)
	Dim stringa
	stringa = "ValoreCampo="&Campo&".value"
	execute stringa
	set RE = new RegExp
	RE.Pattern="^\d{2}\/\d{2}\/\d{4}$"
	IF Not(isdate(ValoreCampo)) OR Not RE.Test(ValoreCampo)  Then
			alert "Data non valida !",0,"Errore"
	End If
	chkdate = campo
End Function

[peppeweb]

GRAZIE willybit !!

sono rietrato soltanto adesso è ho subito provato la tua soluzione, FUNGE !

Bye

[13manuel84]

raga ho cercato in tutto il forum e non mi funziona manco una regex!
ho usato quella che c'è scritto sopra:
/\d{2}\/\d{2}\/\d{4}/
e anche l'altra che sta scritta in questo thread
ma me la fa passae anche se nel campo scrivo f

[willybit]

Ciao 13manuel84,

dovresti postare un po' di codice o mettere un link dove vedere il problema