Comunes/tsUtilidades
10
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Manuel Moguer
2026-09-18 19:58:08 +02:00
parent 0d9fe78b3e
commit 6fc91b7ea6
2 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Utilidades.vb
View File

@@ -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)

3
tsUtilidades.vbproj
View File

@@ -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