Convert Time to Number

[gavjb]

I am trying to convert a Time to a Decimal Value, but I am after rounding it by 5 minutes (so for example if I had 01:31:00, it would give me 1.5). So far I have managed to convert to a number with:

format$(CDbl(#01:47:00#) * 24,"0.00")

But not to clear on the easiest way to finish this off.

Thanks,


Gavin,

 

[Golom]

Suprisingly tricky. Here's a starting point

Dim t                           As Date
Dim n                           As Integer
Dim t1                          As Date
Dim s                           As Long
Dim s1                          As Long
t = TimeValue(#3:00:27 AM#)
For n = 0 To 60
    t1 = DateAdd("n", n, t)
    s = Minute(t1) * 60 + Second(t1)
    s1 = (s + IIf(s Mod 300 >= 150, 300, 0)) \ 60
    s1 = s1 - s1 Mod 5
    Debug.Print t1, TimeSerial(Hour(t1), s1, 0), _
                Format(CSng(Hour(t1)) + (CSng(s1) / 60), "0.00")
Next

[small]No! No! You're not thinking ... you're only being logical.
- Neils Bohr[/small]