Validar uma data com ASP

Vejamos uma função criada com Active Server Pages para fazer uma comprovação de datas. A função recebe um dia, um mês e um ano e comprovam que estes sejam numéricos e que a data criada entre todos é correta e possível no calendário.

A função recebe os dados de dia, mês e ano como string, tal como poderíamos chegar através de um formulário ou como parâmetro em uma URL. Não obstante, visto que ASP é uma linguagem pouco “typed”, mesmo passando valores numéricos à função continuará dando resultados corretos.

Como resultado a função devolverá um valor verdadeiro ou falso, dependendo se a data é correta ou incorreta.

O código da função é o seguinte:

‘valido uma data
‘espero receber tres strings com o dia, o mes e o ano

function validarData(dia,mes,ano)

‘elimino possiveis espacos aos lados dos numeros que recebo por parametro

dia = trim(dia)
mes = trim(mes)
ano = trim(ano)

‘comprovo nº de caracteres que recebo em cada parametro sao os permitidos
‘O ano pode ter ate 4 caracteres

if len(dia)=0 or len(dia)>2 or len(mes)=0 or len(mes)>2 or len(ano)=0 or len(ano)>4 then
validarData = false
exit function
end if

‘compovo que os caracteres dos parametros sao numeros

if (not isNumeric(dia)) or (not isNumeric(mes)) or (not isNumeric(ano)) then
validarData = false
exit function
end if

‘O mes nao pode ser maior que 12 nem menor que 1

mes = cint(mes)
if mes > 12 or mes < 1 then
validarData = false
exit function
end if
dia = cint(dia)

‘O dia nao pode ser menor que 1

if dia < 1 then
validarData = false
exit function
end if

‘O dia, dependendo do mes que seja, pode ter uns ou outros valores

if mes=1 or mes=3 or mes=5 or mes=7 or mes=8 or mes=10 or mes=12 then

‘nesses meses pode ter 31 dias

if dia > 31 then
validarData = false
exit function
end if
elseif mes=2 then

‘en fevereiro temos que ver se sera ano bissexto
‘consigo o numero de ano de 4 cifras.
‘se nos derem um valor de 2 cifras < 31 se refere a 2000 mais esse valor

if ano < 31 then
ano = ano + 2000

‘se nos derem um valor de 2 cifras > 31 se refere a 1900 mais esse valor

elseif ano < 100 then
ano = ano + 1900
end if

‘calculo se o ano eh bissexto
‘se for divisivel por quatro e (nao divisivel por 100 ou divisivel por 400)

if ((ano mod 4)=0) and ((ano mod 100)<>0 or (ano mod 400)=0) then

‘eh bissexto

if dia > 29 then
validarData = false
exit function
end if
else

‘NAO eh bissexto

if dia > 28 then
validarData = false
exit function
end if
end if
else

‘em todos os demais meses chegam a ter 30 dias

if dia > 30 then
validarData = false
exit function
end if
end if

‘se estou aqui eh porque todas as comprovacoes foram positivas

validarData = true
end function

O código da função está comentado para que possa ser entendido mais facilmente. Basicamente, o que faz é realizar uma série de comprovações, uma atrás da outra. Se alguma das comprovações faz com que a data seja incorreta, devolve-se o valor false e sai da função. Se chega-se ao final da função e nenhuma das comprobações falhou, se devolve true, pois a data é correta.

Na hora de calcular se um dia é válido, temos que saber os dias que tem um mês. Temos que prestar especial atenção ao mês de fevereiro, para saber se é bissexto. Para saber se um ano é bissexto existe a seguinte regra:

• São bissextos todos os anos divisíveis por 4, excluindo os que sejam divisíveis por 100, mas não excluindo os que sejam divisíveis por 400.