Könnte ungefähr so funktionieren:
Function PartOfMonth(strDateEnd As String, strDateStart As String)
Dim intDaysCount As Integer
intDaysCount = Day(strDateEnd) - Day(strDateStart) + 1
PartOfMonth = intDaysCount / DaysPerMonth(strDateStart)
End Function
Function DaysPerMonth(strDate As String) As Integer
Dim intMonth As Integer
intMonth = Month(strDate)
Select Case intMonth
Case 1, 3, 5, 7, 8, 10, 12
DaysPerMonth = 31
Case 2
DaysPerMonth = 28
Case 4, 6, 9, 11
DaysPerMonth = 30
End Select
End Function
mfg
WB
|