Discussion :

[ShortcutZ]

Salut,

je cherche une instruction qui me permettra de placer la valeur de Time(Now) + 1 heure dans une textbox, mais en vain ...

Avec une date ca fonctionne bien :

txtDate.text = Format$(Date + 1, "mm/dd/yyyy")

Mais je trouve pas pour l'heure ...

[jmfmarques]

essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
  titi = TimeValue("12:02:04")
  toto = Hour(titi) + 1
  If toto > 23 Then toto = 0
  MsgBox TimeSerial(toto, Minute(titi), Second(titi))
  titi = TimeValue("23:16:35")
  toto = Hour(titi) + 1
  If toto > 23 Then toto = 0
  MsgBox TimeSerial(toto, Minute(titi), Second(titi))
End Sub

[Delbeke]

Vb fournit des fonctions gerant les dates/heures
DateAdd permet d'ajouter une valeur à une date
le premere parametre sert a préciser ce que l'on ajoute, das l'exemple suivant, des heures, le second la quantité ajoutée,et le dernier , la date de depart

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
txtDate.text = Format$(DateAdd("h",1,Now), "dd/mm/yyyy hh:nn:ss")

Petite Parenthe , dans la commande format, "mm/dd/yyyy" sert a definir le format d'éaffichage comme etant, 2 chiffres pour le mois, deux pour le jour, quatre pour l'année. tu risque de ne pas voir l'influence d'une heure sur l'affihage

[ShortcutZ]

DateAdd fonctionne très bien, merci pour vos réponses !