User Input date - Only Month and Year

[jocker_boy]

Hello,

I have this code, but i would like the user to only input date in this format: "mm/yy" and ignore entering the day. But i need to assume always day 01.
For example:

User insert: 10/22
And the date will appear: 01/10/22 (dd/mm/yy).

Thanks,
Gonçalo

'Project Dates
    Dim strDate As String
    Dim LastMonth As Long
 
'Insert First Date
    strDate = InputBox("Insert start of the project (mm/dd/yy)", "Enter Date", Format(Date, "dd/mm/yy"))
 
    If IsDate(strDate) Then
        strDate = Format(CDate(strDate), "dd/mm/yy")
    Else
        MsgBox "Wrong date format"
    End If

 

[Snakehips]

@jocker_boy Does this help?

'Project Dates
    Dim strDate As String
    Dim LastMonth As Long
 
'Insert First Date
    strDate = InputBox("Insert start of the project (mm/yy)", "Enter Date", Format(Date, "mm/yy"))
  
    
    strDate = "01/" & strDate
        If IsDate(strDate) Then
        'do whatever......
        MsgBox strDate & "  is good"
       
    Else
        MsgBox "Wrong date format"
    End If

 

[jocker_boy]

@jocker_boy Does this help?

'Project Dates
    Dim strDate As String
    Dim LastMonth As Long
 
'Insert First Date
    strDate = InputBox("Insert start of the project (mm/yy)", "Enter Date", Format(Date, "mm/yy"))
 
   
    strDate = "01/" & strDate
        If IsDate(strDate) Then
        'do whatever......
        MsgBox strDate & "  is good"
      
    Else
        MsgBox "Wrong date format"
    End If

It's almost perfect.
But it's changing the day with month.

I enter "10/22" <- October/2022
But strDate appears: 10/01/22 (day ten of January of 2022) and i would like to appear 01/10/22 (day one of October of 2022).

Thanks,
Gonçalo

 

[jocker_boy]

I solve my issue:

'Project Dates
    Dim strDate As String
    Dim LastMonth As Long
 
'Insert First Date
    strDate = InputBox("Insert start of the project (mm/yy)", "Enter Date", Format(Date, "mm/yy"))
 
    strDate = Format(CDate("01/" & strDate), "mm/dd/yy")

And i delete the if statement.
thanks for your help.