Calcule d'une durée entre 2 dates [Résolu]

Signaler
Messages postés
46
Date d'inscription
vendredi 23 septembre 2005
Statut
Membre
Dernière intervention
31 janvier 2008
-
Messages postés
34
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
22 novembre 2005
-
Bonjour,

J'ai deux dates stockées dans une base de données sous le format : JJ/MM/AAAA hh:mm

Ce n'est pas un probleme pour les recuperer et inserer dans une textbox mais je vois pas du tout comment calculer l'ecart entre les 2 dates.
J'aimerais savoir calculer la duree entre ces 2 dates en enlevant le dimanche, tout ceci en VB.net.

Merci d'avance

2 réponses

Messages postés
25
Date d'inscription
mercredi 1 novembre 2000
Statut
Membre
Dernière intervention
2 février 2006

3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 106 internautes nous ont dit merci ce mois-ci

Messages postés
34
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
22 novembre 2005

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