Need help with VBA code in datediff

[relphelp]

Hi Guys -

I am currently working on a small project , currently using two dates to be entered by user and wants the date difference to in "months".
However i am getting the output in "days" not able to figure out the VBA code to handle output in months.

My VBA Code -

Sub test()
Dim DateStr1 As String
Dim DateStr2 As String
Dim DateDiffStr As String
Dim Date1 As Date
Dim Date2 As Date
Dim DateDiff As Integer
Dim NumberDays As Integer


DateStr1 = InputBox("Enter First Date : ")
Date1 = DateValue(DateStr1)
DateStr2 = InputBox("Enter Second Date : ")
Date2 = DateValue(DateStr2)


temp = Date2 - Date1


NumberDays = Int(temp)


MsgBox ("Number of Days : " & temp)


End Sub

Please correct my VBA code.
Thanks in advance

Warm Regards
Relphelp

 

[Norie]

Why don't you use DateDiff?

NumberOfMonths = DateDiff("m", Date1, Date2)

 

[wigi]

Hello

You say that you have an issue with Datediff, but where do you use Datediff in your code?

For explanations, see: MS Excel: DATEDIFF Function (VBA)

 

[relphelp]

Why don't you use DateDiff?

Sub test()
Dim DateStr1 As String
Dim DateStr2 As String
Dim DateDiffStr As String
Dim Date1 As Date
Dim Date2 As Date
Dim datediff As Date
Dim numberofmonths As Integer




DateStr1 = InputBox("Enter First Date : ")
Date1 = DateValue(DateStr1)
DateStr2 = InputBox("Enter Second Date : ")
Date2 = DateValue(DateStr2)


numberofmonths = datediff("m", Date1, Date2)


MsgBox ("Number of Days : " & numberofmonths)


End Sub

If I use Code

[COLOR=#333333]NumberOfMonths = DateDiff("m", Date1, Date2)[/COLOR]

It shows me an error "expected array". Can you please help?

 

[wigi]

Hello

For me, a simple test in VBA like this, works:

DateDiff("m", Date, Date + 200)

The result is 7 (months between today and 200 days from today)

Can you try again?

 

[Norie]

You've declared datediff as a variable.

 

[relphelp]

Thank you guys .. I was able to figure the code issue