Date calculation on 360 day basis

[Numbers1]

Excel has a function Days360 which is used to calculate the number of days between 2 dates as if each month had 30 days. It appears VBA does not have that function. DateDiff uses a 365 day calendar.
Does anyone know how to calculate on the basis of a 360 day calendar when finding the number of days between 2 dates?
I am using this in a formula in my code as follows:
PrincipalAmt x CouponRate x (Date1 - Date2) / 360 = AccruedInterest in the period

 

[mharroff]

For the dates I tested this seemed to work


StartYear = Year(StartDate)
EndYear = Year(EndDate)
StartMonth = Month(StartDate)
EndMonth = Month(EndDate)
If Day(StartDate) > 30 Then
Startday = 30
Else
Startday = Day(StartDate)
End If
If Day(EndDate) > 30 Then
EndDay = 30
Else
EndDay = Day(EndDate)
End If

DayCount = ((EndYear - StartYear) * 360) + ((EndMonth - StartMonth) * 30) + (EndDay - Startday)

 

[PHV]

And what about this ?
Application.WorksheetFunction.Days360(Date1, Date2)

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Numbers1]

PHV seems to be on the right track. Date1 and Date2 populate but no result occurs. I used the following:
DayCount = Application.WorksheetFunction.Days360(Date1,Date2)
What is missing to get a the resulting # of days?