Zinkonvention actual/actual
17.09.2003 15:11:31
Sebastian
Welchen Code kann man zur KORREKTEN Ermittlung des Teiljahres für die Zinskonvention actual/actual verwenden?
________________________________________
Dim leapYear As Boolean
If DateSerial(Year(Start) + 1, 1, 1) - DateSerial(Year(Start), 1, 1) = 366 Then 'weitere Bedingungen fehlen Year(Ende) / 4 - Round(Year(Ende) / 4) = 0
leapYear = True
End If
If Year(Start) = Year(Ende) And leapYear = True Then 'Prüfung, ob Schaltjahr fehlt---> Funktion zur Ermittlung eines Schaltjahres schreiben
Teiljahr = (Ende - Start) / 366
ElseIf Year(Start) = Year(Ende) And Not Year(Start) = leapYear Then
Teiljahr = (Ende - Start) / 365
Else
Teiljahr = (Ende - Start) / 365.25
End If
___________________________________________
Dieser Code ist noch nicht ausreichend...
Gruß
Sebastian