Discussion :

[Slumpy]

Salut,

Voila,

J ai deux evenements qui ont chacun un temps de debut et de fin.

Y aurait il une methode permettant de determiner si ces evenements se chevauchent. Et ideallement retourner la date de debut et fin de l evenement global.

Je pense que c est un probleme reccurent, pourtant j ai rien trouvé a ce sujet ...

Merci.

[Syrrus]

Bonjour,

Si tu fais une série de test avec des "if" où tu compares les années, puis les mois, puis les jours.

Même idée si ce sont des heures : si H1 > H2 ....

C'est qu'une idée, mais à première vue je ferais comme ça...

[bidou]

je suppose qu'un DateDiff entre la date de début d'un évènement et la date de fin de l'autre répondra à la question.

[Slumpy]

Re,

Merci de m aider

- J ai finalement trouvé un bout de code que j ai adapté, qui je pense devrait couvrir toutes les possibilités :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Function DoDateRangesOverlap(ByVal startDateRange1 As DateTime, ByVal endDateRange1 As DateTime, ByVal startDateRange2 As DateTime, ByVal endDateRange2 As DateTime) As Boolean
 
        If (((startDateRange1 < endDateRange2) And (startDateRange1 >= startDateRange2)) Or ((endDateRange1 <= endDateRange2) And (endDateRange1 > startDateRange2))) Then
            Return True
        Else
            Return False
        End If
    End Function

Par contre, j ai jeté un oeil a Datediff et comprend pas comment je pourrais l'utiliser ici ?

Merci.

Slumpy

[bidou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Function Chevauchement(ByVal Debut1 As DateTime, ByVal Fin1 As DateTime, ByVal Debut2 As DateTime, ByVal Fin2 As DateTime) As Boolean
 
        If DateDiff(DateInterval.Second, Debut1, Debut2) > 0 Then
            If DateDiff(DateInterval.Second, Fin1, Debut2) < 0 Then
                Return True
            End If
        Else
            If DateDiff(DateInterval.Second, Fin2, Debut1) < 0 Then
                Return True
            End If
        End If
 
    End Function

[Slumpy]

Arf, ca parrait tellement evident quand tu vois un bout de code. Merci.