Superposition de date

cs_oxram Messages postés 40 Date d'inscription jeudi 2 décembre 2004 Statut Membre Dernière intervention 19 juin 2005 - 31 mars 2005 à 08:59
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 1 avril 2005 à 20:17
Bonjour je développe actuellement un programme en vb en gérant les réservation d'un camping. Malheureuseument pour moi je recherche comment éviter que 2 familles ne puissent pas louer en meme temps le meme chalet (c'est un peu embétant de partager sa salle de bain ou son lit avec d'autres lol) Je recherche donc une fonction qui lorsque j'entrerai la date de début de séjour du 2eme client analyse cette date et vérifie qu'elle ne soit pas comprise entre la date de début de séjour et la date de fin de séjour du client 1.

J'espere que je suis assez clair.
Merci à ceux qui me répondrons.

oxram

4 réponses

crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
31 mars 2005 à 10:54
La réponse est dans la question ...
If DateDebut2 > DateDebut1 And DateDebut2 < DateFin1 Then
Msgbox " Il y a chevauchement dans les sséjours"
End If

Christophe R
0
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
31 mars 2005 à 11:22
If (DateFin2 < DateDebut1) Or (DateDebut2 > DateFin1) Then
MsgBox " Il n'y a pas chevauchement dans les sséjours"
Else
MsgBox " Il y a chevauchement dans les sséjours"
End If

Daniel
0
dpouliot Messages postés 50 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 4 novembre 2008
31 mars 2005 à 14:24
La simple comparison de date n'est pas suffisante.
La date de départ peu égaler la date d'arrivé.
Ajoute l'heure. Ainsi un client part le 23 juillet 12 heure 00 et l'arrivé du second peut être le 23 juillet 12 heure 01.
(Sinon tu perd la nuité du 23 au soir.)

dpouliot
0
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 34
1 avril 2005 à 20:17
DateDebut1 = "01/07/2005 12:00:00"
DateFin1 = "23/07/2005 12:00:00"
DateDebut2 = "23/07/2005 12:01:00"
DateFin2 = "15/08/2005 12:00:00"

résultat --> Il n'y a pas chevauchement dans les sséjours

Daniel
0
Rejoignez-nous