Calcul de date ?

Foles

XLDnaute Nouveau
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 :
VB:
 Label29.Caption = Format(CDate(CDate(TextBox23.Value) - CDate(TextBox22.Value)), "dd.mm.yyyy hh:mm")

Merci de m'aider
 

Dranreb

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

Celle là je l'ai testée :
VB:
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
 
Dernière édition:

Foles

XLDnaute Nouveau
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
 
Dernière édition:

Discussions similaires

Réponses
2
Affichages
871

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T