time of day to seconds

[james]

I am working with a very old database system (building an import/export routine) that stores the time in seconds. I have been
able to convert the seconds to correct time (thanks to a lot of help in this group).
But, I need to be able to write back the time of day to the db in seconds.
Example:
01:00:00 PM should be 46800 seconds.

I can get it to work in an odd sort of way like this:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim dt As Integer

dt = New Date().Subtract(TextBox2.Text).TotalSeconds.ToStri ng

TextBox1.Text = dt.ToString

End Sub

But, if you run this and have the above time in Textbox2 ( 01:00:00 PM) it will show -46800 seconds in Textbox1.

I have tried several variations of the Date function, but, it appears that only the .Subtract function has the .TotalSeconds
function.

And as noted, it gives a negitive number instead of a postive number.

Any suggestions ? ( besides running as far away from the DOS based Dataflex database as I can :-)

james

[james]

I knew it, as soon as I posted this, I would find the answer (not always that way though).

Here is what I came up with, not too complicated, and works:

Dim dt As Date

dt = TextBox2.Text

TextBox1.Text = (dt.Ticks / 10000000).ToString
Tested and so far, works good. I'm sure I will find a way to kill it ( if my users don't first!)
james

"james" <jjames700ReMoVeMe at earthlink dot net> wrote in message news:eZ*************@TK2MSFTNGP14.phx.gbl...

I am working with a very old database system (building an import/export routine) that stores the time in seconds. I have been
able to convert the seconds to correct time (thanks to a lot of help in this group).
But, I need to be able to write back the time of day to the db in seconds.
Example:
01:00:00 PM should be 46800 seconds.

I can get it to work in an odd sort of way like this:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim dt As Integer

dt = New Date().Subtract(TextBox2.Text).TotalSeconds.ToStri ng

TextBox1.Text = dt.ToString

End Sub

But, if you run this and have the above time in Textbox2 ( 01:00:00 PM) it will show -46800 seconds in Textbox1.

I have tried several variations of the Date function, but, it appears that only the .Subtract function has the .TotalSeconds
function.

And as noted, it gives a negitive number instead of a postive number.

Any suggestions ? ( besides running as far away from the DOS based Dataflex database as I can :-)

james

[Herfried K. Wagner [MVP]]

"james" <jjames700ReMoVeMe at earthlink dot net> schrieb:

I am working with a very old database system (building an import/export
routine) that stores the time in seconds. I have been able to convert the
seconds to correct time (thanks to a lot of help in this group).
But, I need to be able to write back the time of day to the db in seconds.
Example:
01:00:00 PM should be 46800 seconds.

\\\
Dim d As Date = #01:00:00 PM#
MsgBox(CStr(d.TimeOfDay.TotalSeconds))
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[james]

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message news:uo**************@TK2MSFTNGP12.phx.gbl...

\\\
Dim d As Date = #01:00:00 PM#
MsgBox(CStr(d.TimeOfDay.TotalSeconds))
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

Thanks Herfried, an even better (and shorter) way to do it.
james