Need Help:-Date Difference

[Aryankn]

My intention is to find the difference between four dates in two different variables. For e.g.: a=154(15 months and 4 days), b=123 (12 months and 3 days). Now, what I want is a division of

a
-- * x
b

It is basically, division of two dates which needs to be multiplied by a value.

another example that I can quote is

Endate- termination date
------------------------------ * 50

endate-start date

I am achieved till finding the differences of dates into the variables mentioned above.
Can some one please help. I am new to coding and VBA.

Regards,
Aryan

[Mal Farrelle]

Aryan, assuming that dt1, dt2, dt3 and dt4 are all date variables that contain date values you can assign values to a and b thus:

a = application.datedifference (dt2, dt1)
b = application.datedifference (dt4, dt3)

You will need to trap div by 0 and ensure that dt1 is later than dt2 and that dt4 is later than dt3.

[Aryankn]

This what I have written
Dim A As Date
Dim B As Date
TXTaftptd.Value = A
TXCPenddt.Value = B
intMonths = Application.datedifference(A, B)

But it throws an error :object does not support property or method.

[Mal Farrelle]

This what I have written
Dim A As Date
Dim B As Date
TXTaftptd.Value = A
TXCPenddt.Value = B
intMonths = Application.datedifference(A, B)

But it throws an error :object does not support property or method.

You need to assign some values to a and b. And note that the date difference function returns minutes.

[SamT]

This what I have written
Dim A As Date
Dim B As Date
TXTaftptd.Value = A
TXCPenddt.Value = B
intMonths = Application.datedifference(A, B)

Dim A As Date
Dim B As Date

A = CDate(TXTaftptd.Value)
B = CDate(TXCPenddt.Value)

intMonths = Application.DateDiff("m", A, B)  ' "m" = Months. "d" = Days. "ww" = Weeks
intWeeks = Application.DateDiff("ww", A, B)
intDays = Application.DateDiff("d", A, B)

[ketonen]

u solved?