Seconds as hh:mm:ss

[Able]

Dear friends

I need to format seconds as hh:mm:ss. I see a lot of coding transforming
seconds to hh:mm:ss. Somebody know a short way?

Regards Able

[Trev Hunter]

Try the following:

-----------------
Dim objTime As New TimeSpan(0, 0, 1234)
Debug.WriteLine (objTime.Hours & ":" & objTime.Minutes & ":" &
objTime.Seconds )
-----------------

There's probably better and shorter ways to do this, but I can't think of
any at the minute.

Note, you'll need to handle cases where the duration goes over one day
(86400 seconds)

HTH,

Trev.

"Able" <ab**@epost.n o> wrote in message
news:NM******** **********@news 2.e.nsc.no...

Dear friends

I need to format seconds as hh:mm:ss. I see a lot of coding transforming
seconds to hh:mm:ss. Somebody know a short way?

Regards Able

[Able]

Thanks Trev

Able

"Trev Hunter" <hu*********@ho tmail.com> skrev i melding
news:uP******** ******@TK2MSFTN GP10.phx.gbl...

Try the following:

-----------------
Dim objTime As New TimeSpan(0, 0, 1234)
Debug.WriteLine (objTime.Hours & ":" & objTime.Minutes & ":" &
objTime.Seconds )
-----------------

There's probably better and shorter ways to do this, but I can't think of
any at the minute.

Note, you'll need to handle cases where the duration goes over one day
(86400 seconds)

HTH,

Trev.

"Able" <ab**@epost.n o> wrote in message
news:NM******** **********@news 2.e.nsc.no...

Dear friends

I need to format seconds as hh:mm:ss. I see a lot of coding transforming
seconds to hh:mm:ss. Somebody know a short way?

Regards Able

[Herfried K. Wagner [MVP]]

* "Able" <ab**@epost.n o> scripsit:

I need to format seconds as hh:mm:ss. I see a lot of coding transforming
seconds to hh:mm:ss. Somebody know a short way?

\\\
Dim ts As TimeSpan = TimeSpan.FromSe conds(23423423)
MsgBox(ts.Hours .ToString() & ":" & ts.Minutes.ToSt ring() & ":" & ts.Seconds.ToSt ring())
///

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Tom Leylan]

I believe you get the same answer if you initialize your timespan to 9023
which indicates that the answer for 23423423 isn't correct.

At least one would notice the extra hours with:
MsgBox(((ts.Day s * 24) + ts.Hours).ToStr ing & ":" &
ts.Minutes.ToSt ring() & ":" & ts.Seconds.ToSt ring())
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:%2******** ********@TK2MSF TNGP11.phx.gbl. ..

* "Able" <ab**@epost.n o> scripsit:

I need to format seconds as hh:mm:ss. I see a lot of coding transforming
seconds to hh:mm:ss. Somebody know a short way?
\\\
Dim ts As TimeSpan = TimeSpan.FromSe conds(23423423)
MsgBox(ts.Hours .ToString() & ":" & ts.Minutes.ToSt ring() & ":" &

ts.Seconds.ToSt ring()) ///

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Dominique Vandensteen]

or...

Dim secs As Long = 123456
Dim dt As New DateTime(secs * 10000D)
MsgBox(dt.ToStr ing("HH:mm:ss") )

dominique
"Able" <ab**@epost.n o> wrote in message
news:NM******** **********@news 2.e.nsc.no...

Dear friends

I need to format seconds as hh:mm:ss. I see a lot of coding transforming
seconds to hh:mm:ss. Somebody know a short way?

Regards Able

[Dominique Vandensteen]

little correction

*10000000D and not *10000D

dominique

"Dominique Vandensteen" <domi.vds_inser t@tralala_tenfo rce.com> wrote in
message news:%2******** ********@tk2msf tngp13.phx.gbl. ..

or...

Dim secs As Long = 123456
Dim dt As New DateTime(secs * 10000D)
MsgBox(dt.ToStr ing("HH:mm:ss") )

dominique
"Able" <ab**@epost.n o> wrote in message
news:NM******** **********@news 2.e.nsc.no...

Dear friends

I need to format seconds as hh:mm:ss. I see a lot of coding transforming
seconds to hh:mm:ss. Somebody know a short way?

Regards Able