Date converison

[id10t error]

I am working with a tps file where the date they use is something like
75736. This number is the number of days since December 28,1800. I
know how to get this number with the code below

Dim d As DateTime = New DateTime(1800, 12, 28)
MsgBox(DateTime.Today.Subtract(d).Days()) 'returns 75736 on
5/7/08.
However, how can i convert the 75736 to 5/6/2008? Thank you for your
help

[Lloyd Sheen]

"id10t error" <tu******@gmail.comwrote in message
news:58**********************************@2g2000hs n.googlegroups.com...

>I am working with a tps file where the date they use is something like
75736. This number is the number of days since December 28,1800. I
know how to get this number with the code below

Dim d As DateTime = New DateTime(1800, 12, 28)
MsgBox(DateTime.Today.Subtract(d).Days()) 'returns 75736 on
5/7/08.
However, how can i convert the 75736 to 5/6/2008? Thank you for your
help

d.AddDays(75736) will give you todays date.

LS

[Armin Zingler]

"id10t error" <tu******@gmail.comschrieb

I am working with a tps file where the date they use is something
like 75736. This number is the number of days since December
28,1800. I know how to get this number with the code below

Dim d As DateTime = New DateTime(1800, 12, 28)
MsgBox(DateTime.Today.Subtract(d).Days()) 'returns 75736 on
5/7/08.
However, how can i convert the 75736 to 5/6/2008? Thank you for your
help

I guess "convert" means "calculate":

Dim d As Date
d = #12/28/1800#.AddDays(75736)

If needed, you can pass a format string to d.ToString
Armin

[=?Utf-8?B?QU1lcmNlcg==?=]

Dim dt0 As New DateTime(1800, 12, 28)
Dim dt1 As DateTime = dt0.AddDays(75736)

dt1 is 5/7/2008. I assume your '5/6/2008' is a typo.
"id10t error" wrote:

I am working with a tps file where the date they use is something like
75736. This number is the number of days since December 28,1800. I
know how to get this number with the code below

Dim d As DateTime = New DateTime(1800, 12, 28)
MsgBox(DateTime.Today.Subtract(d).Days()) 'returns 75736 on
5/7/08.
However, how can i convert the 75736 to 5/6/2008? Thank you for your
help

[id10t error]

On May 7, 10:40*am, AMercer <[e-mail]:

* * * Dim dt0 As New DateTime(1800, 12, 28)
* * * Dim dt1 As DateTime = dt0.AddDays(75736)

dt1 is 5/7/2008. *I assume your '5/6/2008' is a typo.

"id10t error" wrote:

I am working with a tps file where the date they use is something like
75736. This number is the number of days since December 28,1800. *I
know how to get this number with the code below

* * * * * Dim d As DateTime = New DateTime(1800, 12, 28)
* * * * MsgBox(DateTime.Today.Subtract(d).Days()) 'returns 75736on
5/7/08.

However, how can i convert the 75736 to 5/6/2008? Thank you for your
help- Hide quoted text -

- Show quoted text -

Yes it was a typo. Thank you for your help it worked great.