[VB] Durée de dates

Bonsoir,

je voudrai savoir comment faire pour calculer une durée entre 2 dates?

Par exemple: l'utilisateur saisit 01/01/2004 pour la date de début et 15/04/2004 pour la date de fin; quelle fonction faut-il utiliser pour calculer la différence entre Date_deb et Date_fin svp?

Merci d'avance pour vos réponses!

Bonsoir

Durée = DateDiff("d", CDate("01/01/2004"), CDate("15/04/2004"))

(durée en jours "d")

fonction DateDiff(Interval,date1,date2) avec interval ="m","d" ou "y"

A+

slr

Si tu as juste besoin du nbr jours d'ecart:
nJours = clng(dat1) - clng(dat2)
tu eviteras d'amuser la cpu inutilement.

ciao...
BruNews, Admin CS, MVP Visual C++

Merci pour vos réponses mais ce que j'ai vraiment envie de faire c'est d'affecter dans un textbox (text1) la différence entre la date de début d'un DTPicker1 et la date de fin d'un DTPicker2?

En faisant ça:

Private Sub Text1_LostFocus() Text1.Text = DateDiff("m", CDate(DTPicker1), CDate(DTPicker2)) End Sub

ça m'affiche rien du tout sur le textbox!
Qqn a-t-il une idée svp?
Merci d'avance!

Comme c'est exposé ici, je veux à partir de la sélection du N° de session et de la date début dans un DTPicker1 (et donc la date de fin qui s'affiche automatiquement en DTPicker2):

Calculer la différence de ces 2 mois dans le text vide!!
Qqn a-t-il une solution svp?
Merci d'avance

tu ferais peut-être bien de vérifier que ton CDate(DTPicker) donne bien une date valide, car je ne crois pas que CDate("jeudi 8 avril 2004") donne qqch, mais peut-être que tu utilises autre chose.A+
slr

J'ai pas compris ce que tu veux dire par là, mais il faut absolument calculer la durée entre ces 2 dates et l'afficher dans un textbox!
Bien sur que mon DTPicker contient qqch...

Testé :
Text1.Text = DateDiff("d", DTPicker1, DTPicker2) & " jours"

SAlut bmichael007

si ca n'affiche rien dans ton text1 c'est à cause de ca

Private Sub Text1_LostFocus()
Text1.Text = DateDiff("m", CDate(DTPicker1), CDate(DTPicker2))
End Sub

tu fais ton calcul lorsque tu quittes(lostfocus) le controle text1...

je ferais le code suivant (ca ressemble a ce que je t'ai montré la semaine dernière)

datacombo1 = no de session

private sub DTPicker1_LostFocus()
select case datacombo1
case 1
dtpicker2.value=dateadd("d",nb_jour,dtpicker1.value)
case 2
dtpicker2.value=dateadd("d",nb_jour,dtpicker1.value)
case 3
dtpicker2.value=dateadd("d",nb_jour,dtpicker1.value)
....
end select
Text1.Text = DateDiff("d", DTPicker1.value, DTPicker2.value)
end sub

avec ca, des que tu quitteras le controle DTPicker1 (pour ta date de debut) la date souhaitée s'affiche dant dtpicker2 et ton nombre de jours apparaitra dans ton text1.

en passant, tu n'as pas besoin de mettre cdate(dtpicker1) puisque qu'un controle dtpicker ne retourne que des dates.