Need to check if a date is between two dates?
Since there is no ASP function to do this here's a home-made!
\u0026lt;%
checkZerosDate function (num)
if len (num) = 1 then
checkZerosDate = "0" & \u200b\u200bnum = num
else
checkZerosDate
end if
end function
Function dateBetween(data1,data2,data)
dim ndata1,ndata2,ndata
'controllo che siano date
if isdate(data1) and isdate(data2) and isdate(data) then
ndata1=year(data1) & checkZerosDate(month(data1)) & checkZerosDate(day(data1))
ndata2=year(data2) & checkZerosDate(month(data2)) & checkZerosDate(day(data2))
ndata=year(data) & checkZerosDate(month(data)) & checkZerosDate(day(data))
if (ndata1<=ndata) and (ndata<=ndata2) then
dateBetween = true else
dateBetween
= false end if else
'if you are not given returns false
dateBetween
= false end if end function
%>
As you can see the main function is "dateBetween" which must be passed as parameters:
- data1: start date range
- data2 : end date range
- date: date from test
La funzione restituirà il valore booleano True se data è compresa tra data1 e data2 oppure False se non lo è.
Per funzionare questa funzione si deve appoggiare alla funzione checkZerosDate che non fa altro che formattare i valori a una cifra del giorno/mese in uno a due cifre!
Come sempre non può mancare lo zippo con lo script e un esempio !
Stop! :D
0 comments:
Post a Comment