Removing old VB code

[pachjo]

Hi, I have removed the dll reference to ensure I am using only .NET code and am suprised at how much of the old stuff litters my app!!

I have successfully removed all refereces to vbcrlf to system.environment.newline but am stuffed slightly on the date issues.

I have found I have used the old Today and DateAdd etc functions and now get compile errors showing me where I need to make changes.

I am stuck on trying to subtract 3 months from the current date!

Can someone point me in the right direction on how to do this please?

Thanks

 

[JohnH]

Dim ThreeMonthsAgo As Date = Date.Now.AddMonths(-3)

 

[pachjo]

kool thanks

 

[pachjo]

Is there a replacement for monthname?

I have trawled the forum and the online help and am drawing a blank!

I found this but cannot get it to work?

DateTimeFormatInfo.MonthNames

 

[pachjo]

aha

got it

[SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] dtfDateTimeInfo [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] [/SIZE][SIZE=2][COLOR=#0000ff]New[/COLOR][/SIZE][SIZE=2] DateTimeFormatInfo
[/SIZE][SIZE=2][COLOR=#0000ff][/COLOR][/SIZE] 
[SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] strMonthNames [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] [/SIZE][SIZE=2][COLOR=#0000ff]String[/COLOR][/SIZE][SIZE=2]()
[/SIZE][SIZE=2][COLOR=#008000][/COLOR][/SIZE] 
[SIZE=2][COLOR=#008000]' get an array of the month names
[/COLOR][/SIZE][SIZE=2] 
strMonthNames.Equals(dtfDateTimeInfo.MonthNames)

[/SIZE]

 

[JohnH]

Equals is a comparison function. Do this instead:

Dim names() As String = Globalization.DateTimeFormatInfo.CurrentInfo.MonthNames
MsgBox(names(Date.Now.Month - 1))

 

[pachjo]

ta muchly