Date Subtraction/Formatting Issues

[David Doing]

This worked in VB6, but does not in VB.Net

Format(MyDate - DateSerial(Year(MyDate) - 1, 12, 31), "000")

Where:
MyDate is type Date and = #11/16/2003#

It should return the Julian Day # --> 321

But I get an error "Specified cast is not allowed"

Any help here??

Thanks,
David

[Armin Zingler]

"David Doing" <do***@cny-golf.com> schrieb

This worked in VB6, but does not in VB.Net

Format(MyDate - DateSerial(Year(MyDate) - 1, 12, 31), "000")

Where:
MyDate is type Date and = #11/16/2003#

It should return the Julian Day # --> 321

But I get an error "Specified cast is not allowed"

Any help here??

(MyDate.Subtract(New Date(MyDate.Year, 12, 31))).ToString("000")
Maybe you like the shorter version: ;-)

MyDate.DayOfYear.ToString("000")
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[David Doing]

See, its so much easier in .NET!!

Thanks Armin

"Armin Zingler" <az*******@freenet.de> wrote in message
news:%2****************@TK2MSFTNGP10.phx.gbl...

"David Doing" <do***@cny-golf.com> schrieb

This worked in VB6, but does not in VB.Net

Format(MyDate - DateSerial(Year(MyDate) - 1, 12, 31), "000")

Where:
MyDate is type Date and = #11/16/2003#

It should return the Julian Day # --> 321

But I get an error "Specified cast is not allowed"

Any help here??

(MyDate.Subtract(New Date(MyDate.Year, 12, 31))).ToString("000")
Maybe you like the shorter version: ;-)

MyDate.DayOfYear.ToString("000")
--
Armin

http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Peter Huang]

Hi David,

You may try to use the code below.
[VB.NET]
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal
eventArgs As System.EventArgs) Handles Command1.Click
Dim ss As String
Dim MyDate As Date
MyDate = #11/16/2003#
ss = Format(DateTime.FromOADate(MyDate.ToOADate -
DateSerial(Year(MyDate) - 1, 12, 31).ToOADate), "000")
MsgBox(ss)
End Sub

[VB6]
Private Sub Command1_Click()
Dim MyDate As Date
MyDate = #11/16/2003#
ss = Format(MyDate - DateSerial(Year(MyDate) - 1, 12, 31), "000")
MsgBox ss
End Sub

FYI
All the two sample will return 320, NOT 321.

Regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.

[David Doing]

Worked like a charm, thank you.
David
"Peter Huang" <v-******@online.microsoft.com> wrote in message
news:sA**************@cpmsftngxa06.phx.gbl...

Hi David,

You may try to use the code below.
[VB.NET]
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal
eventArgs As System.EventArgs) Handles Command1.Click
Dim ss As String
Dim MyDate As Date
MyDate = #11/16/2003#
ss = Format(DateTime.FromOADate(MyDate.ToOADate -
DateSerial(Year(MyDate) - 1, 12, 31).ToOADate), "000")
MsgBox(ss)
End Sub

[VB6]
Private Sub Command1_Click()
Dim MyDate As Date
MyDate = #11/16/2003#
ss = Format(MyDate - DateSerial(Year(MyDate) - 1, 12, 31), "000")
MsgBox ss
End Sub

FYI
All the two sample will return 320, NOT 321.

Regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.