Morning list,

I'm trying to convert a large number of seconds to a TTime.

To my surprise - without a Delphi background ;) - EncodeTime only takes up to 59 seconds... ;)
Same for EncodeTimeInterval

So I ended up with something like:

IncSecond(EncodeTime(0,0,0,0), HugeNumberOfSecondsInteger);

is this the best way to do this or is there some smarter way I've missed?

Thanks,
Reinier

Considering that TTime is a float where the fractional part is the part of a day, I would do it like this:

MyTTime := HugeNumberOfSecondsInteger / (24 * 60 * 60);

There might even be a constant somewhere called SecondsPerDay that would save you the writing of the denominator.

Try
MyTTime := HugeNumberOfSecondsInteger / (3600 * 24);

Reinier Olislagers wrote

Morning list, I'm trying to

convert a large number of seconds to a TTime.

To my surprise -

without a Delphi background ;) - EncodeTime only takes

up to 59

seconds... ;)

Same for EncodeTimeInterval So I ended up with

something like:

IncSecond(EncodeTime(0,0,0,0),

HugeNumberOfSecondsInteger);

is this the best way to do this or is

there some smarter way I've missed?

Thanks, Reinier

Bedankt, Darius.

That's indeed shorter and fairly clear... but the advantage of the other way is that I don't need to remember what units TTime uses internally... ;)

Regards,
Reinier

You could rely on constants provided by the "dateutils" unit (I'm rather sure that we'd provide approbiate replacements if we'd change the TDateTime type somewhen ;) ):

MyTTime := HugeNumberOfSecondsInteger * OneSecond;

Regards,
Sven

2012/6/20 :

MyTTime := HugeNumberOfSecondsInteger / SecsPerDay;

The predefined constants from SysUtils look nicer.

Good point ;)

MyTTime := HugeNumberOfSecondsInteger * OneSecond;

Thanks.