- 2026-09-18 1.1.24 Se añade parametro opcional a IntervalosFechasCoincidentes

Utilidades.vb

@@ -42,11 +42,20 @@ Public Class Utilidades
         Loop Until IsNothing(exError)
         Return sMensaje
     End Function
-    Public Shared Function IntervalosFechasCoincidentes(FechaInicio1 As DateTime, FechaFin1 As DateTime, FechaInicio2 As DateTime, FechaFin2 As DateTime) As Boolean
-        Return (FechaInicio1 <= FechaInicio2 And FechaInicio2 < FechaFin1) OrElse (FechaInicio2 <= FechaInicio1 And FechaFin2 > FechaInicio1)
+    Public Shared Function IntervalosFechasCoincidentes(FechaInicio1 As DateTime, FechaFin1 As DateTime, FechaInicio2 As DateTime, FechaFin2 As DateTime, Optional LimitesIgualesPermitidos As Boolean = False) As Boolean
+        If LimitesIgualesPermitidos Then
+            Return DateTime.Compare(FechaInicio1, FechaFin2) < 0 AndAlso DateTime.Compare(FechaInicio2, FechaFin1) < 0
+        Else
+            Return DateTime.Compare(FechaInicio1, FechaFin2) <= 0 AndAlso DateTime.Compare(FechaInicio2, FechaFin1) <= 0
+        End If
     End Function
-    Public Shared Function IntervalosFechasCoincidentes(FechaInicio1 As DateOnly, FechaFin1 As DateOnly, FechaInicio2 As DateOnly, FechaFin2 As DateOnly) As Boolean
-        Return (FechaInicio1 <= FechaInicio2 And FechaInicio2 < FechaFin1) OrElse (FechaInicio2 <= FechaInicio1 And FechaFin2 > FechaInicio1)
+    Public Shared Function IntervalosFechasCoincidentes(FechaInicio1 As DateOnly, FechaFin1 As DateOnly, FechaInicio2 As DateOnly, FechaFin2 As DateOnly, Optional LimitesIgualesPermitidos As Boolean = False) As Boolean
+        If LimitesIgualesPermitidos Then
+            Return FechaInicio1 < FechaFin2 AndAlso FechaInicio2 < FechaFin1
+
+        Else
+            Return FechaInicio1 <= FechaFin2 AndAlso FechaInicio2 <= FechaFin1
+        End If
     End Function
 
     Public Shared Sub CreaEstructuraDirectorio(ByVal Ruta As String)