How to insert the last day of the month in a textbox.

[PAPutzback]

txtToDate.Text = (Now.Date.AddDays(-(Now.Day)).AddMonths(1))

[Ken Tucker [MVP]]

Hi,
Dim intMonth As Integer = Now.Month

Dim intYear As Integer = Now.Year

Dim intDays As Integer = Now.DaysInMonth(intYear, intMonth)

Dim dtEnd As DateTime = New DateTime(intYear, intMonth, intDays)

TextBox1.Text = dtEnd.ToShortDateString

Ken

--------------------------------

"PAPutzback" <ph**************@insightbb.com> wrote in message
news:11**********************@g43g2000cwa.googlegr oups.com...
txtToDate.Text = (Now.Date.AddDays(-(Now.Day)).AddMonths(1))

[PAPutzback]

I am not sure if there is a benefit to creating four variables as
opposed to the one line approach. Or maybe I am missing something that
won't show up until a leap year or something.
txtToDate.Text = (Now.Date.AddDays(-(Now.Day)).*AddMonths(1))

[Cor Ligthert [MVP]]

Paputzback,

Ken thought probably that it was a question. However with option strict on
the code will give an error. You need for that to add.

txtToDate.Text = (Now.Date.AddDays(-(Now.Day)).*AddMonths(1)).ToString

I hope this helps,

Cor

[PAPutzback]

Thanks. I thought option strict was on by default.

[Jay B. Harlow [MVP - Outlook]]

PAPutzback,
In addition to the other comments, I would recommend:

Private Shared Function LastDayOfMonth(ByVal theDate As DateTime) As
DateTime
Dim day As Integer = DateTime.DaysInMonth(theDate.Year,
theDate.Month)
Return New DateTime(theDate.Year, theDate.Month, day)
End Function

Public Shared Sub Main()

Debug.WriteLine(LastDayOfMonth(DateTime.Now))

End Sub

Of course if you want to inline the day variable you could:

Return New DateTime(theDate.Year, theDate.Month, _
DateTime.DaysInMonth(theDate.Year, theDate.Month))

The *major* reason to use a function as above or at least use DateTime.Now
indirectly by assigning it to a variable is that DateTime.Now may change
during the equation, you could get very sporadic results at midnight on the
last day of the month, as DateTime.Now may change over from "this month" to
"next month" midway thru yours or Ken's algorithm. By assigning DateTime.Now
to a variable (or a parameter as above) you avoid any potential problems
with "now" changing.

Hope this helps
Jay

"PAPutzback" <ph**************@insightbb.com> wrote in message
news:11**********************@g43g2000cwa.googlegr oups.com...
| txtToDate.Text = (Now.Date.AddDays(-(Now.Day)).AddMonths(1))
|