Calcule d'une durée entre 2 dates
Résolu
visualresine
Messages postés
46
Date d'inscription
vendredi 23 septembre 2005
Statut
Membre
Dernière intervention
31 janvier 2008
-
3 nov. 2005 à 09:41
cs_jeanmarc Messages postés 34 Date d'inscription mardi 18 juin 2002 Statut Membre Dernière intervention 22 novembre 2005 - 3 nov. 2005 à 23:10
cs_jeanmarc Messages postés 34 Date d'inscription mardi 18 juin 2002 Statut Membre Dernière intervention 22 novembre 2005 - 3 nov. 2005 à 23:10
A voir également:
- Temps entre deux dates
- Durée entre deux dates - Meilleures réponses
- Duree entre 2 dates - Meilleures réponses
- Ephéméride entre deux dates - Forum Delphi / Pascal
- Sql entre deux dates ✓ - Forum SQL
- Syntaxe requête sql pour recherche entre deux dates ✓ - Forum VB.NET
- Différence de jour entre deux date dans une requete SQL - Forum SQL
- Calcul temps entre deux heures ✓ - Forum Visual Basic
2 réponses
cs_MACHOMAN
Messages postés
25
Date d'inscription
mercredi 1 novembre 2000
Statut
Membre
Dernière intervention
2 février 2006
1
3 nov. 2005 à 10:29
3 nov. 2005 à 10:29
cs_jeanmarc
Messages postés
34
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
22 novembre 2005
3 nov. 2005 à 23:10
3 nov. 2005 à 23:10
Bonjour,
Il faut utiliser DatePart
Exemples ci-dessous:
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
xDate = InputBox("Saisir la date de retraite sous la forme jj/mm/aaaa"," Décompte Retraite !!!!","30/06/2006")
'xDate = "30/06/2006" 'date de jean-marc
j1 = DatePart("w", xDate)
j2 = Array("","Dimanche","Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi")
jj = j2(j1)
m1 = DatePart("m", xDate)
m2 = Array("","janvier","février","mars","avril","mai","juin","juillet","août","septembre","octobre","novembre","décembre")
mm = m2(m1)Result WshShell.Popup("Votre départ à la retraite étant prévu le " & jj & " " & Left(xDate,2) & " " & mm & " " & Right(xDate,4) & " " & vbcrlf & vbcrlf & "Il ne vous reste plus que ........" & vbcrlf & vbcrlf & " " & DateDiff("d", Now, xDate) & " jours ........ avant de partir à la pêche !!!!!", 30, "Décompte de la retraite")
Dim eDate, nMois1, nMois2,nMois, nDate
eDate = "Aug 2 08:40:14 2002"
nMois1 = DatePart("m",Date)
nMois2 = Array("Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov")
nMois = nMois2(nMois1)
nDate = nMois & " " & DatePart("d",Date) & Right(Now,9) & " " & DatePart("yyyy",Date)
MsgBOX "eDate=" & eDate & " nDate=" & nDate
Il faut utiliser DatePart
Exemples ci-dessous:
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
xDate = InputBox("Saisir la date de retraite sous la forme jj/mm/aaaa"," Décompte Retraite !!!!","30/06/2006")
'xDate = "30/06/2006" 'date de jean-marc
j1 = DatePart("w", xDate)
j2 = Array("","Dimanche","Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi")
jj = j2(j1)
m1 = DatePart("m", xDate)
m2 = Array("","janvier","février","mars","avril","mai","juin","juillet","août","septembre","octobre","novembre","décembre")
mm = m2(m1)Result WshShell.Popup("Votre départ à la retraite étant prévu le " & jj & " " & Left(xDate,2) & " " & mm & " " & Right(xDate,4) & " " & vbcrlf & vbcrlf & "Il ne vous reste plus que ........" & vbcrlf & vbcrlf & " " & DateDiff("d", Now, xDate) & " jours ........ avant de partir à la pêche !!!!!", 30, "Décompte de la retraite")
Dim eDate, nMois1, nMois2,nMois, nDate
eDate = "Aug 2 08:40:14 2002"
nMois1 = DatePart("m",Date)
nMois2 = Array("Dec","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov")
nMois = nMois2(nMois1)
nDate = nMois & " " & DatePart("d",Date) & Right(Now,9) & " " & DatePart("yyyy",Date)
MsgBOX "eDate=" & eDate & " nDate=" & nDate