=E0 partir d'une date, je dois trouver une autre date en=20
fonction d'une durer. Et ceci, en prenant compte que les=20
jours ouvrables..pas de samedi, pas de dimanche.
Donc si j'ai 01-01-01 et une dur=E9e de +10 je tombe sur le=20
12-01-01.
Je d=E9sirerais avoir une fonction permettant de calcule=20
cel=E0. Ma table est comme ceci:
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Emmanuel Soheyli
Vous pouvez utiliser la funtion suivante
Function DateOpen(dtFirst As Date, intDays As Integer) As Date Dim intLoop As Integer intLoop = intDays Dim dtTmp As Date dtTmp = dtFirst While intLoop > 0 dtTmp = DateAdd("d", 1, dtTmp) If Weekday(dtTmp) <> 1 And Weekday(dtTmp) <> 7 Then intLoop = intLoop - 1 End If
Wend DateOpen = dtTmp End Function
"" wrote in message news:347401c3fd6e$d1a7f0a0$ Bonjour,
à partir d'une date, je dois trouver une autre date en fonction d'une durer. Et ceci, en prenant compte que les jours ouvrables..pas de samedi, pas de dimanche.
Donc si j'ai 01-01-01 et une durée de +10 je tombe sur le 12-01-01.
Je désirerais avoir une fonction permettant de calcule celà. Ma table est comme ceci:
bref je dois trouver Date2 en prenant compte de date1 et de la durée qui peut être en positif ou en négatif.
Merci de m'aider su ce coup.
jp
Vous pouvez utiliser la funtion suivante
Function DateOpen(dtFirst As Date, intDays As Integer) As Date
Dim intLoop As Integer
intLoop = intDays
Dim dtTmp As Date
dtTmp = dtFirst
While intLoop > 0
dtTmp = DateAdd("d", 1, dtTmp)
If Weekday(dtTmp) <> 1 And Weekday(dtTmp) <> 7 Then
intLoop = intLoop - 1
End If
Wend
DateOpen = dtTmp
End Function
"supernet18@hotmail.com" <anonymous@discussions.microsoft.com> wrote in
message news:347401c3fd6e$d1a7f0a0$a001280a@phx.gbl...
Bonjour,
à partir d'une date, je dois trouver une autre date en
fonction d'une durer. Et ceci, en prenant compte que les
jours ouvrables..pas de samedi, pas de dimanche.
Donc si j'ai 01-01-01 et une durée de +10 je tombe sur le
12-01-01.
Je désirerais avoir une fonction permettant de calcule
celà. Ma table est comme ceci:
Function DateOpen(dtFirst As Date, intDays As Integer) As Date Dim intLoop As Integer intLoop = intDays Dim dtTmp As Date dtTmp = dtFirst While intLoop > 0 dtTmp = DateAdd("d", 1, dtTmp) If Weekday(dtTmp) <> 1 And Weekday(dtTmp) <> 7 Then intLoop = intLoop - 1 End If
Wend DateOpen = dtTmp End Function
"" wrote in message news:347401c3fd6e$d1a7f0a0$ Bonjour,
à partir d'une date, je dois trouver une autre date en fonction d'une durer. Et ceci, en prenant compte que les jours ouvrables..pas de samedi, pas de dimanche.
Donc si j'ai 01-01-01 et une durée de +10 je tombe sur le 12-01-01.
Je désirerais avoir une fonction permettant de calcule celà. Ma table est comme ceci:
bref je dois trouver Date2 en prenant compte de date1 et de la durée qui peut être en positif ou en négatif.
Merci de m'aider su ce coup.
jp
Raymond [mvp]
Bonjour.
Tu trouveras une fonction qui te calculera tout ça en plus et moins sur la page : http://access.seneque.free.fr/dates1.htm la fonction Date prochaine en jours ouvrables te calculera la date en jours ouvrables et la fonction Date prochaine en jours ouvrés te calculera la date en jours ouvrés. il faut charger la bibliothèque rsdll.zip comme indiqué en haut de page, la copier sur c:windowssystem32 et la registrer par: regsvr32 c:windowssystem32rs_dll.dll si le nombre de jours et l'incrément ne sont pas du même signe, la date du 31/12/1899 sera retournée. les jours fériés tiennent comptent des jours fériés laïques français et des jours fériés chrétiens. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"" a écrit dans le message de news:347401c3fd6e$d1a7f0a0$ Bonjour,
à partir d'une date, je dois trouver une autre date en fonction d'une durer. Et ceci, en prenant compte que les jours ouvrables..pas de samedi, pas de dimanche.
Donc si j'ai 01-01-01 et une durée de +10 je tombe sur le 12-01-01.
Je désirerais avoir une fonction permettant de calcule celà. Ma table est comme ceci:
bref je dois trouver Date2 en prenant compte de date1 et de la durée qui peut être en positif ou en négatif.
Merci de m'aider su ce coup.
jp
Bonjour.
Tu trouveras une fonction qui te calculera tout ça en plus et moins sur la
page :
http://access.seneque.free.fr/dates1.htm
la fonction Date prochaine en jours ouvrables te calculera la date en jours
ouvrables et la fonction Date prochaine en jours ouvrés te calculera la date
en jours ouvrés.
il faut charger la bibliothèque rsdll.zip comme indiqué en haut de page, la
copier sur c:windowssystem32 et la registrer par:
regsvr32 c:windowssystem32rs_dll.dll
si le nombre de jours et l'incrément ne sont pas du même signe, la date du
31/12/1899 sera retournée.
les jours fériés tiennent comptent des jours fériés laïques français et des
jours fériés chrétiens.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"supernet18@hotmail.com" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:347401c3fd6e$d1a7f0a0$a001280a@phx.gbl...
Bonjour,
à partir d'une date, je dois trouver une autre date en
fonction d'une durer. Et ceci, en prenant compte que les
jours ouvrables..pas de samedi, pas de dimanche.
Donc si j'ai 01-01-01 et une durée de +10 je tombe sur le
12-01-01.
Je désirerais avoir une fonction permettant de calcule
celà. Ma table est comme ceci:
Tu trouveras une fonction qui te calculera tout ça en plus et moins sur la page : http://access.seneque.free.fr/dates1.htm la fonction Date prochaine en jours ouvrables te calculera la date en jours ouvrables et la fonction Date prochaine en jours ouvrés te calculera la date en jours ouvrés. il faut charger la bibliothèque rsdll.zip comme indiqué en haut de page, la copier sur c:windowssystem32 et la registrer par: regsvr32 c:windowssystem32rs_dll.dll si le nombre de jours et l'incrément ne sont pas du même signe, la date du 31/12/1899 sera retournée. les jours fériés tiennent comptent des jours fériés laïques français et des jours fériés chrétiens. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"" a écrit dans le message de news:347401c3fd6e$d1a7f0a0$ Bonjour,
à partir d'une date, je dois trouver une autre date en fonction d'une durer. Et ceci, en prenant compte que les jours ouvrables..pas de samedi, pas de dimanche.
Donc si j'ai 01-01-01 et une durée de +10 je tombe sur le 12-01-01.
Je désirerais avoir une fonction permettant de calcule celà. Ma table est comme ceci:
