Utregning av periodepremie og logg flere år tilbake.

Jeg har laget et system som regner ut forsikringspremie for biler.

Formlen er at den regner hva du setter som premie feks: 12000,-

<%
strAarspremie = 12000

strSisteDag = year(Date()) & "/12/31"
           
strGetDager = DateDiff("Y", strGjelderFra, strSisteDag)
           
strDagerIaar = DateDiff("Y", year(Date()) & "/01/01", year(Date()) & "/12/31")
           
strPeriodePremie = Cstr(strAarspremie) / strDagerIaar * Cstr(strGetDager)
       
If Int(formatnumber((strPeriodePremie),0)) > Int(strAarsPremie) Then
    strPeriodePremie = strAarsPremie
End if
%>

Dette fungerer fint da datoen alltid er fom 01.01 DETTE ÅRET.
Nå skal skal de ha utregnert periode premie feks fra to datoer, dvs:

FOM 01.01.2004 tom 30.04.2004 var årsprmeien 12000,-
FOM 01.05.2004 tom 31.12.2004 var årsprmeien 16000,-

Dette kan regnes ut med formelen ved å endre den litt men hvordan skal jeg kunne logg føre dette så man kan gå inn å se hva premien har vært på bilen mange år tilbake?

Forslag/ideer til løsning på dette hadde kjekt da jeg står fast litt.