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.no> wrote in message
news:NM******************@news2.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*********@hotmail.com> skrev i melding
news:uP**************@TK2MSFTNGP10.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.no> wrote in message
news:NM******************@news2.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.no> 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.FromSeconds(23423423)
MsgBox(ts.Hours.ToString() & ":" & ts.Minutes.ToString() & ":" & ts.Seconds.ToString())
///

--
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.Days * 24) + ts.Hours).ToString & ":" &
ts.Minutes.ToString() & ":" & ts.Seconds.ToString())
"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:%2****************@TK2MSFTNGP11.phx.gbl...

* "Able" <ab**@epost.no> 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.FromSeconds(23423423)
MsgBox(ts.Hours.ToString() & ":" & ts.Minutes.ToString() & ":" &

ts.Seconds.ToString()) ///

--
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.ToString("HH:mm:ss"))

dominique
"Able" <ab**@epost.no> wrote in message
news:NM******************@news2.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_insert@tralala_tenforce.com> wrote in
message news:%2****************@tk2msftngp13.phx.gbl...

or...

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

dominique
"Able" <ab**@epost.no> wrote in message
news:NM******************@news2.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