Additionner du temps

Bonjour à vous,

Je tourne en rond avec un petit calcul :(

J'ai deux combobox, dans le premier combobox, une liste d'heure.... (ex. 8:00, 9:00, 10:00, etc)
Dans le 2e combobox, j'aimerais additionner 2 heures à la valeur entré dans le combobox 1...

Donc en résumé, si je sélectionne 10:00 dans le combobox 1, j'aimerais avoir automatiquement 12:00 dans le combobox 2...

voici le code que je tente de faire fonctionner, mais ça me donne une erreur

13
Private Sub cb_RVHeure1_Change()
    cb_RVHeure1 = Format(cb_RVHeure1, "hh:mm")
    cb_RVHeure2 = CDate(cb_RVHeure1) + CDate("2:00")
End Sub

quelqu'un aurait une idée de mon erreur ?

Bonjour,

Essayez ceci:

Private Sub cb_RVHeure1_Change()
    On Error Resume Next
    Pos_2pts = InStr(1, cb_RVHeure1, ":", 1)
    Heures = (Left(cb_RVHeure1, Pos_2pts - 1) * 1) / 24
    Minutes = (Right(cb_RVHeure1, Len(cb_RVHeure1) - Pos_2pts) * 1) / 24 / 60
    Temps_Ajouté = 2 / 24
    cb_RVHeure2 = Format(Heures + Temps_Ajouté + Minutes, "hh:mm")
End Sub

Cdlt

Bonjour,

cb_RVHeure2 = Format(CDate(cb_RVHeure1) + CDate("02:00"), "hh:mm")

Cependant celà veut dire que votre combobox2 contient dans sa liste "12:00" ? D'ailleurs puisque le résultat est un calcul ; pourquoi une

combobox 2 ? une textbox suffit amplement non ?

@Arturo83
Merci beaucoup, ça fonctionne comme souhaité

@xmenpl
Car il y a possibilité de sélectionné une plage horaire plus importante au besoin si deux heure n'est pas suffisant.

Rechercher des sujets similaires à "additionner temps"