DTPicker

[apdf1]

Bonjour,

J'aurais encore besoin de vous,

J'ai 2 DTPicker qui me donnent la différence de jours entre les deux dates.
Peut-on faire la même chose avec les mois et les semaines ?

Private Sub DTPicker2_Change()
TextBox5 = DTPicker2 - DTPicker1 & " jours"
End Sub

Cordialement

Max

 

[Pierrot93]

Re : DTPicker

Bonjour,

essaye ceci, si j'ai bien compris :

pour les mois

MsgBox DateDiff("m", DTPicker1.Value, DTPicker2.Value, 2, 2)

pour les semaines

MsgBox DateDiff("ww", DTPicker1.Value, DTPicker2.Value, 2, 2)

bonne journée
@+

 

[apdf1]

Re : DTPicker

Re,

Merci Pierrot 93

Mais je ne suis pas arrivé à l'envoyer dans la texbox
si tu peux m'arranger sa j'ai joint mon fichier
Merci beaucoup d'avance

@+
bonne journée

 

[Pierrot93]

Re : DTPicker

Re,

pas 2007, je ne peux donc ouvrir ton fichier, mais ceci devrait convenir :

TextBox1.Value = DateDiff("m", DTPicker1.Value, DTPicker2.Value, 2, 2)
TextBox2.Value = DateDiff("ww", DTPicker1.Value, DTPicker2.Value, 2, 2)

 

[apdf1]

Re : DTPicker

Re,

Non j'ai du faire ceci:
TextBox2 = DateDiff("m", DTPicker1.Value, DTPicker2.Value, 2, 2) & " Mois"
TextBox3 = DateDiff("ww", DTPicker1.Value, DTPicker2.Value, 2, 2) & " Semaine"
Si je n’abuse pas trop de to temps, est-il possible de le faire en année, heure, minute et seconde

Merci beaucoup

@+
Max

 

[Pierrot93]

Re : DTPicker

Re,

touche de fonction F1 sur le mot "DateDiff" dans l'éditeur vba te donnera les différentes valeurs possibles pour l'argument "interval"

 

[apdf1]

Re : DTPicker

Re,

Je te remerci Pierrot93 j'ai tous trouvé

Cordialement

Max