combobox arrondi a 5min

[Defcom60]

Bonjour,


j'aimerais ajouter un autre petite fonction a mon tri d"heure
je voudrais filtré les heures a 5 minutes prés.
c'est a dire par exemple 7h01:20 donne 7h00 et 7h06 donne 7H05.

 

[pierrejean]

Re : combobox arrondi a 5min

bonjour Defcom60

Vois si cela te convient

 

[Defcom60]

Re : combobox arrondi a 5min

bonjour,


merci c'est exactement ce qu'il me faut.

 

[Defcom60]

Re : combobox arrondi a 5min

Bonjour,

j'aimerais adapater la fonction arrondi à 10 minutes au lieu des 5 minutes et de m'expliquer comment on calcul les valeurs

Function arrondi(cellule As Variant)
  If cellule * 1440 Mod 5 < 2.501 Then
    arrondi = (Round(cellule * 1440) - (cellule * 1440) Mod 5) / 1440
  Else
    arrondi = (Round(cellule * 1440) + 5 - (cellule * 1440) Mod 5) / 1440
  End If
End Function

merci

 

[pierrejean]

Re : combobox arrondi a 5min

bonjour Defcom60

Voila pour 10 minutes avec commentaires

Function arrondi(cellule As Variant)
  'cellule est exprimé en jours
  'cellule*1440 = nombre de minutes
  'cellule * 1440 Mod 10 = reste du nombre de minutes divisé par 10
  'si <5 (la moitié de 10 et on peut ajuster selon que l'on veut l'arrondi
  ' dès 5 ou un peu apres)
  If cellule * 1440 Mod 10 < 5 Then
  'on enleve le reste de la division pour avoir un nombre multiple de 10
  'puis on divise par 1440 pour se retrouver en jours
    arrondi = (Round(cellule * 1440) - (cellule * 1440) Mod 10) / 1440
  'sinon on enleve toujours le reste mais on ajoute 10
  'pour passer a la dizaine superieure
  Else
    arrondi = (Round(cellule * 1440) + 10 - (cellule * 1440) Mod 10) / 1440
  End If
End Function