- Dim m1, m2, y1, y2, n As Integer
- Dim debd1, debd2 As Date
-
- Function datediff360(d1 As Date, d2 As Date) As Integer
-
- m1 = Month(d1)
- m2 = Month(d2)
- y1 = Year(d1)
- y2 = Year(d2)
- n = m2 - m1
- If n = 0 Then
- datediff360 = DateDiff("d", d1, d2)
- Else
- debd1 = "01/" & m1 & "/" & y1
- debd2 = "01/" & m2 & "/" & y2
- diff1 = 30 - DateDiff("d", debd1, d1)
- diff2 = (n - 1) * 30 + DateDiff("d", debd2, d2)
- datediff360 = diff1 + diff2
- End If
- End Function
-
Dim m1, m2, y1, y2, n As Integer
Dim debd1, debd2 As Date
Function datediff360(d1 As Date, d2 As Date) As Integer
m1 = Month(d1)
m2 = Month(d2)
y1 = Year(d1)
y2 = Year(d2)
n = m2 - m1
If n = 0 Then
datediff360 = DateDiff("d", d1, d2)
Else
debd1 = "01/" & m1 & "/" & y1
debd2 = "01/" & m2 & "/" & y2
diff1 = 30 - DateDiff("d", debd1, d1)
diff2 = (n - 1) * 30 + DateDiff("d", debd2, d2)
datediff360 = diff1 + diff2
End If
End Function