Discussion :

[pkrvz]

Bonjour je cherche à arrondir une heure à la dizaine supérieure

du genre 10h01 =>10h10 ou 10h09=>10h10

auriez vous des pistes de code?
Merci

[philben]

bonjour,

une fonction sans droit d'auteur a adapter ici...

Philippe

[pkrvz]

j'ai finalement crée le code suivant pour arrondi à 5min précédente:

ci joint le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub bt_Heure_Click()
Dim Htest As Date
Dim nbMin
Dim MinFin
Dim HeuFin
Htest = "11:59"
 
nbMin = Minute(Htest) Mod 5
MinFin = Minute(Htest) - nbMin
HeuFin = Hour(Htest)
Htest = Format(CDate(HeuFin & ":" & MinFin), "h:mm")
MsgBox Htest
 
 
 
End Sub