Arrondir au supérieur

Version imprimable

07/04/2008, 15h18
Thesum

Arrondir au supérieur

Bonjour,

J'aimerais savoir comment faire pour arrondir une date (type Date) récupérée au supérieur mais de "15 Min"
Exemple :

Citation:

8h01 -> 8h15
8h45->9h
11h23 -> 11h30

Etc.

en réfléchissant on obtient ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
            Dim add As Integer
            Select Case madate.Minute
                Case Is < 15
                    add = 15 - madate.Minute
                Case Is < 30
                    add = 30 - madate.Minute
                Case Is < 45
                    add = 45 - madate.Minute
                Case Else ' donc entre 45 et 60
                    add = 60 - madate.Minute
            End Select
 
            madate = madate.AddMinutes(add)

avec un peu de chances un truc dans le genre doit aussi marcher :

Code:

1
2
 
madate = mdate.AddMinutes(15 - madate.Minute mod 15)

qui a l'avantage d'être plus court

07/04/2008, 15h40
pacmann

TaDate.AddMinutes(15 - TaDate.Minutes Mod 15)

( Mod 15 te donne le reste de la division par 15, ce qui te permet de compléter)

[EDIT]
Mon post a croisé l'EDIT de sperot...