from the immediate window:

numSeconds = 1021
? format(numSeconds/86400,"hh:mm:ss")
00:17:01

so dividing the number of seconds by 86400 and then using the format command
should work

MsgBox format( timecalc/86400,"hh:mm:ss")

--
Regards,
Tom Ogilvy


"cdb" <cdb@discussions.microsoft.com> wrote in message
news:554C4047-014E-4D82-9300-675AC2A80BBD@microsoft.com...
> Cheers Tom, works a treat. Is there any way in displaying this in mm:ss
> format (as the real code I will use will take several minutes to run)
>
> "Tom Ogilvy" wrote:
>
> > Sub test2()
> >
> > i = 1
> >
> > starttime = Timer
> >
> > While i < 100000000
> > i = i + 1
> > Wend
> >
> > endtime = Timer
> > timecalc = EndTime - StartTime
> >
> > MsgBox (starttime & endtime & timecalc)
> >
> > End Sub
> >
> > Measures the number of seconds.
> >
> > (subtracting the endtime from starttime would give a negative number).
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> > "cdb" <cdb@discussions.microsoft.com> wrote in message
> > news:E7E1FD6E-D931-4087-B68E-4E8D6BC13B4F@microsoft.com...
> > > I am trying to add into my macro a bit of code that times how long it
> > takes
> > > to execute, but I can't seem to get it right.
> > >
> > > As a test I have been using the following code:
> > >
> > > Sub test2()
> > >
> > > i = 1
> > >
> > > starttime = TimeValue(Time)
> > >
> > > While i < 100000000
> > > i = i + 1
> > > Wend
> > >
> > > endtime = TimeValue(Time)
> > > timecalc = TimeValue(starttime) - TimeValue(endtime)
> > >
> > > MsgBox (starttime & endtime & timecalc)
> > >
> > > End Sub
> > >
> > > But when I output the result (timecalc) it gives a really wierd number
> > > (-1.85185185185233E-04). I have tried it without the TimeValue
statement
> > too
> > > and get the same sort of result.
> > >
> > > Is there an easy way of substracting the start time from the end
time??
> >
> >
> >