Discussion :

[skaraa]

Bonjour,

Je voudrais arrondir une date au format dd/mm/yyyy 00h00 à la demi-heure inférieur

Si heure comprise entre 11h01 et 11h29 alors arrondi = 11h
Si heure comprise entre 11h31 et 11h59 alors arrondi = 11h30
Si heure comprise entre 12h01 et 12h29 alors arrondi = 12h
etc...

Comment faire ?

PS : Actuellement j'arrondis à la demi-heure comme ça :

Code :

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

Arrondi = Round(CDate(DateDebut) * 48, 0) / 48

Mais s'il est 11h29 alors il arrondi à 11h30.

Merci pour votre aide.

[gFZT82]

Bonjour,

Tu peux essayer avec :
Arrondi = Int(CDate(DateDebut) * 48) / 48


Cordialement.

[Invité]

bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Debug.Print Arondi30("01/01/2015 00:01")
Debug.Print Arondi30("01/01/2015 00:25")
Debug.Print Arondi30("01/01/2015 00:30")
Debug.Print Arondi30("01/01/2015 00:35")
Debug.Print Arondi30("01/01/2015 00:50")
End Sub
Function Arondi30(t As Date) As Date
Arondi30 = t - CDate("00:" & (Hour(t) * 60) + Minute(t) Mod 30)
End Function

[patricktoulon]

Bonjour
sinon traitre le soucis en string tout simplement

Code :

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

1
2
3
4
Sub test()
madate = IIf(Split(Format(Now, "dd/mm/yyyy hh:nn"), ":")(1) >= 30, Format(Now, "dd/mm/yyyy hh") & "h30", Format(Now, "dd/mm/yyyy hh") & "h00")
MsgBox madate
End Sub

sinon pour traiter juste l heure c'est pareil

Code :

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

1
2
3
4
Sub test2()
monheure = IIf(Split(Time, ":")(1) >= 30, Format(Time, "hh") & "h30", Format(Time, "hh") & "h00")
MsgBox monheure
End Sub

[patricktoulon]

bonjour durupt
aie!!!


et oui le mod 30 peut etre positif ou negatif

31 mod 30 donne 1
29 mod 30 donne 1
walouh walouh !!!

[skaraa]

Super merci ça fonctionne.

Une date à minuit est toujours noté sous la forme "dd/mm/yyyy" dommage d'ailleurs je préférais "dd/mm/yyyy" 00:00" mais l'essentiel c'est que tout fonctionne correctement.

Merci de votre aide.

[Invité]

et oui le mod 30 peut etre positif ou negatif

31 mod 30 donne 1
29 mod 30 donne 1
walouh walouh !!!

non:
31 mod 30 donne 1
29 mod 30 donne 29

mod donne le résultat du reste d'une division entière!

31/30 =1 il reste 1

[patricktoulon]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test3()
Debug.Print Arondi30("01/01/2015 00:01")
Debug.Print Arondi30("01/01/2015 00:25")
Debug.Print Arondi30("01/01/2015 00:30")
Debug.Print Arondi30("01/01/2015 00:35")
Debug.Print Arondi30("01/01/2015 00:50")
End Sub
Function Arondi30(madate)
Arondi30 = IIf(Split(Format(madate, "dd/mm/yyyy hh:nn"), ":")(1) >= 30, Format(madate, "dd/mm/yyyy hh") & "h30", Format(madate, "dd/mm/yyyy hh") & "h00")
End Function

[Invité]

aller pour le fun!

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Debug.Print Arondi30("01/01/2015 00:01")
Debug.Print Arondi30("01/01/2015 00:25")
Debug.Print Arondi30("01/01/2015 00:30")
Debug.Print Arondi30("01/01/2015 00:35")
Debug.Print Arondi30("01/01/2015 00:50")
End Sub
Function Arondi30(t As Date) As String
Arondi30 = Format(t - CDate("00:" & (Hour(t) * 60) + Minute(t) Mod 30), "dd/mm/yyyy hh:mm")
End Function

[patricktoulon]

oui la 2 eme est bonne en string !

parcontre je comprends toujour pas pourquoi ta 1 ere version ne donnait pas les deux premiers si ca n'est pas le mod 30

[Invité]

si c'était bien mod 30, comme dans ton poste #5, mais cdate retourne 01/01/2015 et pas 01/01/2015 00:00 !

le problème, si tu retourne cdate dans une cellule, il faut faut formater la cellule en "dd/mm/yyyy hh:mm", si tu retourne un string, tu resique d'inverser le jour et le mois!

si la fonction est destiné à reneiger une cellule, le format international est de rigueur! "yyyy-mm-dd hh:mm"

[patricktoulon]

a oui !!! qué bené je fais
comme quoi de fois etre trop habitué on fini par plus regarder
c'est pour ca que je préfere manipuler les dates en string avec format c'est plus long mais plus precis dans le sens ou on peut décanter chaque unité de mesure