First day and last day of the month values in respective textboxes

[SamDsouza]

Hello
How can i get 1st day of the month and last day of the month in respective textboxes
with the below code

Option Explicit
Public gDate As Date, ldate As Date, lastDay As Long

Private Sub cmdGetFirstLastDay_Click()

Dim yearNo As Integer, monthNo As Integer, dayNo As Integer

yearNo = "2018"
monthNo = "6"
dayNo = "24"

gDate = DateSerial(yearNo, monthNo, dayNo) 
End Sub

txtFirstDay.Text should display as "01-06-2018"
txtlastDay.Text should display as "30-06-2018"

Thanks
SamDsouza

 

[sadboy309]

You used Function EoMonth():

Option ExplicitPublic gDate As Date, ldate As Date, lastDay As Long


Private Sub cmdGetFirstLastDay_Click()


Dim yearNo As Integer, monthNo As Integer, dayNo As Integer


yearNo = "2018"
monthNo = "6"
dayNo = "24"


gDate = DateSerial(yearNo, monthNo, dayNo) 

Debug.Print "txtFirstDay.Text : " & Format(WorksheetFunction.EoMonth(gDate, -1) + 1, "dd-mm-yyyy")
Debug.Print "txtlastDay.Text : " & Format(WorksheetFunction.EoMonth(gDate, 0), "dd-mm-yyyy")


End Sub

 

[Rick Rothstein]

You used Function EoMonth():

Option ExplicitPublic gDate As Date, ldate As Date, lastDay As Long


Private Sub cmdGetFirstLastDay_Click()


Dim yearNo As Integer, monthNo As Integer, dayNo As Integer


yearNo = "2018"
monthNo = "6"
dayNo = "24"


[B][COLOR="#FF0000"]gDate = DateSerial(yearNo, monthNo, dayNo) [/COLOR][/B]

Debug.Print "txtFirstDay.Text : " & Format(WorksheetFunction.EoMonth(gDate, -1) + 1, "dd-mm-yyyy")
Debug.Print "txtlastDay.Text : " & Format(WorksheetFunction.EoMonth(gDate, 0), "dd-mm-yyyy")


End Sub

Instead of forming the actual date from the date parts, why not form the date for the first day directly... that way the two format expressions can be somewhat simpler...

gDate = DateSerial(yearNo, monthNo, 1)

Debug.Print "txtFirstDay.Text : " & Format(gDate, "dd-mm-yyyy")
Debug.Print "txtlastDay.Text : " & Format(DateAdd("m", 1, gDate) - 1, "dd-mm-yyyy")

 

[SamDsouza]

Thanks sadBoy309 and Rick

Rick yours was practically good suggestion and a perfect answer. Works Great

gDate = DateSerial(yearNo, monthNo, 1)

Debug.Print "txtFirstDay.Text : " & Format(gDate, "dd-mm-yyyy")
Debug.Print "txtlastDay.Text : " & Format(DateAdd("m", 1, gDate) - 1, "dd-mm-yyyy")

i tried yours with purposely typing manually in txtFirst day as 5th-Jan-2019 then last day text shown as 4th-Feb-2019
But 1 question for eg even if i type 5th-jan 2019 in first day but can it show in the LastDay textbox as 31st-jan-2019 instead of 4th-Feb-2019

SamDsouza