- 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
+    Public Shared Function IntervalosFechasCoincidentes(FechaInicio1 As DateTime, FechaFin1 As DateTime, FechaInicio2 As DateTime, FechaFin2 As DateTime, Optional LimitesIgualesPermitidos As Boolean = False) As Boolean
-        Return (FechaInicio1 <= FechaInicio2 And FechaInicio2 < FechaFin1) OrElse (FechaInicio2 <= FechaInicio1 And FechaFin2 > FechaInicio1)
+        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
+    Public Shared Function IntervalosFechasCoincidentes(FechaInicio1 As DateOnly, FechaFin1 As DateOnly, FechaInicio2 As DateOnly, FechaFin2 As DateOnly, Optional LimitesIgualesPermitidos As Boolean = False) As Boolean
-        Return (FechaInicio1 <= FechaInicio2 And FechaInicio2 < FechaFin1) OrElse (FechaInicio2 <= FechaInicio1 And FechaFin2 > FechaInicio1)
+        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)

tsUtilidades.vbproj

@@ -16,11 +16,12 @@
 		<TargetFramework>net8.0</TargetFramework>
 		<PackageId>tsUtilidades</PackageId>
 		<PackageTags>net8.0, libreria</PackageTags>
-		<Version>1.1.23</Version>
+		<Version>1.1.24</Version>
 		<Authors>Manuel</Authors>
 		<Company>Tecnosis S.A</Company>
 		<Description>Utilidades Varias</Description>
 		<PackageReleaseNotes>
+			- 2026-09-18 1.1.24 Se añade parametro opcional a IntervalosFechasCoincidentes
 			- 2026-08-20 1.1.23 Se añade clase Conexion y se actualizan dependencias vulnerables
 			- 2026-07-23 1.1.22 Mejora de rutinas de validación de emails
 			- 2026-07-22 1.1.21 Corrección de clase ValidacionDocumentosIdentidad