'Esta función se llama desde el propio input de la fecha de la siguiente manera:
	'onblur="vbscript:validafecha me"
	function validafecha(objeto)
	validafecha = True
	if len(objeto.value)> 0 And len(objeto.value)< 10 then
		msgbox("LA FECHA INTRODUCIDA NO ES CORRECTA." & vbcrlf & vbcrlf & vbTab & "El formato debe ser 'dd/mm/aaaa'")
		objeto.value = ""
		objeto.focus()
		validafecha = False
	end if
	if objeto.value <> "" then
		if not isdate(objeto.value) then
			msgbox("LA FECHA INTRODUCIDA NO ES CORRECTA." & vbcrlf & vbcrlf & vbTab & "Revise la fecha introducida")
			objeto.focus()
			objeto.select()
			validafecha = False
		end if
	end if
	end function