quinta-feira, 31 de maio de 2001

Validação de datas

Contribuição feita pelo amigo Scryptor:


<html>
<head>
<title>Untitled</title>
<Script language="JavaScript">


function isDateJS(Data){


if (Data == ""){
 return false }


Data_valida = true
 
if (Data.length > 10){
 Data_valida = false
 }
 
//Se a Data for apenas números retorna inválido
if (!isNaN(Data)){
 Data_valida = false
}


for (i=0;i<=Data.length;i++){
 if (isNaN(Data.charAt(i))){
  Separador = Data.charAt(i) 
  
  //SE O SEPARADOR FOR DIRERENTE DE "/" , RETORNA DATA INVALIDA.
  if (Separador != "/"){
   Data_valida = false;
   
   }
     
  Dia = Data.substring(0,Data.indexOf(Separador)) 
  Mes = Data.substring(eval(Data.indexOf(Separador) + 1),Data.lastIndexOf(Separador)) 
  Ano = Data.substring(eval(Data.lastIndexOf(Separador) + 1),Data.length) 
 } //End if
} // End For



if (isNaN(Dia)){
 Data_valida = false  }
 
if (Dia.length < 1 || Dia.length > 2){ 
 Data_valida = false }
 
if (isNaN(Mes)){
 Data_valida = false }
 
if (Mes.length < 1 || Mes.length > 2 ){ 
 Data_valida = false }
 
if (isNaN(Ano)){
 Data_valida = false }
 
if (Ano.length < 2 || Ano.length > 4){ 
 Data_valida = false } 
 
if (Dia < 1 || Dia > 31 || Mes < 1 || Mes > 12){
 Data_valida = false }

alert(Data_valida)


//By scryptor® 
}// Fim da função


</script>
</head>


<body>
<font face=verdana size=1>
Validação da data.<br>


Mesma função do isDate() do Visual Basic. <br>


<br>
<form name="frmData" onsubmit="isDate(document.forms.frmData.txtData.value)">
<input type=text name="txtData" style="font-family:verdana;font-size:8pt">
<input type="Button" onclick="isDateJS(document.forms.frmData.txtData.value)" value="Validar" style="font-family:verdana;font-size:8pt">
</form>


</body>
</html>



Esta matéria foi postada originalmente no ASP4Developers por Rubens N. Farias (site), que na época era "pós-graduado em análise de sistemas orientados a objetos, MCP, MCSD, MCAD, MCSD.NET e consultor em TI, além de idealizador do projeto ASP4Developers. Desenvolve sistemas sob medida, focados na satisfação do usuário, com qualidade e custo realista.". Hoje, vai saber...

0 comentários: