Controlla se la data è tra le date
La seguente funzione VBA verificherà se una data data è compresa tra due altre date e, in tal caso, restituirà il valore TRUE. Se la data non è compresa tra le date, restituirà il valore FALSE.
Funzione Compare_Date(Start_Date As Date, End_Date As Date, Other_Date As Date) As Boolean ' Funzione booleana per confrontare le date 'Restituirà TRUE solo quando Other_Date è compreso tra Start_Date e End_Date 'Altrimenti restituirà FALSE 'Imposta il risultato su FALSE - valore predefinito Compare_Date = False 'Confronta date If ((Other_Date >= Start_Date) And (Other_Date <= End_Date)) Then 'If Other Date è tra la data di inizio e la data di fine, quindi imposta su true Compare_Date = True End If End Function
La funzione ha tre argomenti:
• Data di inizio: la prima data consentita
• End_ Date - l'ultima data consentita
• Other_Date - la data da confrontare
La funzione deve essere in un modulo Excel. Può essere eseguito da una cartella di lavoro di Excel, ad esempio:
A4= Confronta_Date(21-06-2003,12-02,2008,15-09-2008)
A3 =Confronta_date(A1,A2.A3)
A1= Confronta_Date(13-03-2005,18-08-2005,A6)
Quindi Compare_Dates(25-04-2007,12-07-2008, 23-06-2006) darà il valore TRUE poiché 23-06-2006 è compreso tra 25-04-2007 e 12-07-2008.
Allo stesso modo Compare_Date(19-07-2003,12-12-2001,12-08-2008) restituirà FALSE poiché 12-12-2001 NON è compreso tra 19-07-2003 e 12-08-2008
Scarica qui la funzione .XLSM
