Verifique se a data está entre datas
A seguinte função VBA verificará se uma determinada data está entre duas outras datas e, em caso afirmativo, retornará o valor TRUE. Se a data não estiver entre as datas, ele retornará o valor FALSE.
Função Compare_Dates (Start_Date As Date, End_Date As Date, Other_Date As Date) As Boolean 'Função booleana para comparar as datas' Retornará TRUE apenas quando Other_Date estiver entre Start_Date e End_Date 'Caso contrário, retornará FALSE' Defina o resultado como FALSE - valor padrão Compare_Dates = False 'Comparar datas If ((Other_Date> = Start_Date) And (Other_Date <= End_Date)) Then' Se outra data estiver entre as datas de início e término, defina como true Compare_Dates = True End If End Function
A função tem três argumentos:
• Data_início - a primeira data permitida
• Data Final - a última data permitida
• Other_Date - a data que está sendo comparada
A função deve estar em um módulo Excel. Ele pode ser executado a partir de uma pasta de trabalho do Excel, por exemplo:
A4 = Compare_Dates (21-06-2003,12-02,2008,15-09-2008)
A3 = Compare_Dates (A1, A2.A3)
A1 = Compare_Dates (13-03-2005,18-08-2005, A6)
Portanto, Compare_Dates (25-04-2007,12-07-2008, 23-06-2006) dará o valor TRUE, pois 23-06-2006 está entre 25-04-2007 e 12-07-2008.
Da mesma forma, Compare_Dates (19-07-2003,12-12-2001,12-08-2008) retornará FALSE, pois 12-12-2001 NÃO está entre 19-07-2003 e 12-08-2008
Baixe a função .XLSM aqui
