Calcul de date ?

[Foles]

Bonjour,

J'ai crée un userform qui demande d'entrer 2 dates sous format "dd.mm.yyyy hh:mm" je cherche à faire la soustraction des dates entrées, mais je n'y arrive pas

J'ai testé comme ceci :

 Label29.Caption = Format(CDate(CDate(TextBox23.Value) - CDate(TextBox22.Value)), "dd.mm.yyyy hh:mm")

Merci de m'aider

 

[ChTi160]

Bonjour Foles
Pourquoi ne pas joindre un fichier exemple de ce que tu as et de ce que tu veux ?
Dans l'attente
jean marie

 

[Dranreb]

Bonjour.
Essayez comme ça :

Label29.Caption = Format(CDate(Replace(TextBox23.Value, ".", "/")) - CDate(Replace(TextBox22.Value, ".", "/"), "0.00 "" jours""")

 

[Foles]

e(Rep

Bonjour, cela ne fonctionne pas, VBA me dit qu'il manque toujours une parenthèse, même en rajoutant

 

[Dranreb]

Ah oui, j'ai oublié une parenthèse pour fermer le 2ième CDate(Replace(…

Celle là je l'ai testée :

Sub Test()
   Dim Txt1 As String, Txt2 As String
   Randomize
   Do
      Txt1 = Format(Now + 40 * Rnd, "dd.mm.yyyy hh:mm:ss")
      Txt2 = Format(Now, "dd.mm.yyyy hh:mm:ss")
      Loop Until MsgBox(Txt1 & vbLf & Txt2 & vbLf _
         & Format(CDate(Replace(Txt1, ".", "/")) - CDate(Replace(Txt2, ".", "/")), "0.00"" jours"""), _
         vbOKCancel + vbInformation, "Test") = vbCancel
   End Sub

 

[Foles]

Je suis débutant en VBA, si tu pourrais m'expliquer ce que tu as écrit ?

Ton code j'ai l'impression que tu envoie une date au hasard entre avril et mai, et tu compare avec la date d’aujourd’hui, puis tu renvoye le nombre de jours qu'il y a entre ces deux dates, et c'est une boucle sans fin jusqu'a qu'on clique sur annuler.

Mon code, je demande à l'utilisateur d'entrer ses horaire sur des textboxs, donc la date et l'heure, puis je soustrait la date de fin avec la date de debut, et j'ecrit le résultat sur le libélé.

Je cherche à avoir le resultat sous forme d'heure, et non de jour, car en general ça depasse pas 2 jours

 

[Dranreb]

Ben multiplie cette différence par 24