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