How to Get only first Date of a month in Text box .

[Mohammad Ishaq]

Hello,

I have a user form having one text box and a button.I want that when i click on the button,i get only first date of the current month .

For example today is Jan 9 2019,i want to get only Jan 01 2019 instead of Jan 9 2019.

 

[YasserKhalil]

Try this code

Private Sub CommandButton1_Click()
    TextBox1.Value = Format(DateSerial(Year(Date), Month(Date), 1), "mmm dd yyyy")
End Sub

 

[Mohammad Ishaq]

Try this code

Private Sub CommandButton1_Click()
    TextBox1.Value = Format(DateSerial(Year(Date), Month(Date), 1), "mmm dd yyyy")
End Sub

Thanks

 

[Deepak]

A Native approach.

    TextBox1.Value = Format(1 + Application.EoMonth(Date, -1), "mmm dd yyyy")