Compruebe si la fecha está entre fechas
La siguiente función de VBA comprobará si una fecha determinada está entre otras dos fechas y, de ser así, devolverá el valor VERDADERO. Si la fecha no se encuentra entre las fechas, devolverá el valor FALSO.
Función Compare_Dates (Start_Date como fecha, End_Date como fecha, Other_Date como fecha) como booleano 'Función booleana para comparar fechas' Devolverá TRUE solo cuando Other_Date esté entre Start_Date y End_Date 'De lo contrario, devolverá FALSE' Establezca el resultado en FALSE - valor predeterminado Compare_Dates = False 'Comparar fechas si ((Other_Date> = Start_Date) y (Other_Date <= End_Date)) Then' Si la otra fecha está entre la fecha de inicio y la de finalización, establezca en verdadero Compare_Dates = True End If End Function
La función tiene tres argumentos:
• Fecha de inicio: la fecha más temprana permitida
• End_ Date: la última fecha permitida
• Other_Date: la fecha que se está comparando
La función debe estar en un módulo de Excel. Se puede ejecutar desde un libro de Excel, por ejemplo:
A4 = Comparar_fechas (21-06-2003,12-02,2008,15-09-2008)
A3 = Comparar_fechas (A1, A2.A3)
A1 = Comparar_fechas (13-03-2005,18-08-2005, A6)
Entonces Compare_Dates (25-04-2007,12-07-2008, 23-06-2006) dará el valor TRUE ya que 23-06-2006 está entre 25-04-2007 y 12-07-2008.
Del mismo modo, Compare_Dates (19-07-2003,12-12-2001,12-08-2008) devolverá FALSE ya que 12-12-2001 NO es entre 19-07-2003 y 12-08-2008
Descarga la función .XLSM aquí
