From 6fc91b7ea6d65e654f0d100c4b97db1b18729400 Mon Sep 17 00:00:00 2001
From: manuel <manmog@tecnosis.net>
Date: Fri, 18 Sep 2026 19:58:08 +0200
Subject: [PATCH] =?UTF-8?q?=20=20=20-=202026-09-18=201.1.24=20Se=20a=C3=B1?=
 =?UTF-8?q?ade=20parametro=20opcional=20a=20IntervalosFechasCoincidentes?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Utilidades.vb       | 17 +++++++++++++----
 tsUtilidades.vbproj |  3 ++-
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/Utilidades.vb b/Utilidades.vb
index 6cdf865..82a579e 100644
--- a/Utilidades.vb
+++ b/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)
diff --git a/tsUtilidades.vbproj b/tsUtilidades.vbproj
index e56cf88..6712ddb 100644
--- a/tsUtilidades.vbproj
+++ b/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