Need to "round time"

[NewTeki]

I need to overwrite start and stop times with even hours:
for example, if time entered is >7:53 and <8:07 I need to make it 8:00. Does anyone have a routine to handle this?

Thanks n advance for any aid you can give.

 

[SkipVought]

Hi,
[tt]
NewTime = Int(MyTime*24+.5)/24
[/tt]
rounds time up at 30 minutes



Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[NewTeki]

Thanks Skip.

 

[MichaelRed]

perhaps this is &quot;overkill&quot; for your specific purpose, on the other hand, it provides some additional flexibility:

Public Function basRndTime(dtTimeIn As Date, _
                           Optional rndIntvl As String = "n", _
                           Optional rndIncr As Long = 30, _
                           Optional rndUp As Boolean = True)

    'Michael Red    2/26/04
    'Interval (rndIntvl) corresponds to an arument for DateAdd
    'Increment (rndIncr) corresponds to the # units for DateAdd
    'Direction (rndUp) is a flag to indicate the function should _
     round the value "up" (increase to the interval, whiich is the _
     default) or to round the value "Down" - e.g. Subtract from the value)

    Dim MyDiff As Long
    Dim MyIncr As Long

    MyDiff = (Format(dtTimeIn, rndIntvl) Mod rndIncr)

    If (Sgn(rndUp) <> 0) Then
        basRndTime = DateAdd(rndIntvl, rndIncr - MyDiff, dtTimeIn)
     Else
        basRndTime = DateAdd(rndIntvl, -MyDiff, dtTimeIn)
    End If

End Function

MichaelRed
m.red@att.net

Searching for employment in all the wrong places

 

[NewTeki]

Michael,

Thank you, let me play with this.


Jim