Private Sub DININ_AfterUpdate()
Berekenen
End Sub

Private Sub PRIO_AfterUpdate()
Berekenen
End Sub

Private Sub Berekenen()
 Select Case Me.PRIO
  Case 0
   Me.DPFIN = Me.DININ + 10
  Case 1
   Me.DPFIN = Me.DININ + 10
  Case 2
   Me.DPFIN = Me.DININ + 20
  Case 3
   Me.DPFIN = Me.DININ + 30
  Case Else
   Me.DPFIN = Me.DININ + 10
End Select

End Sub

Het probleem stelt zich in het gebruik van de Juliaanse kalender
Voorbeeld: 26 december 2004 = 04360

DININ = 04360
PRIO = 3

Wanneer nu wordt berekend dan zou de datum DPFIN = 04390 worden.
Aangezien een jaar maar 365 dagen heeft, klopt dit niet volledig.
De oplossing zou DPFIN = 05025 moeten zijn.
Kan iemand de oplossing schrijven zodoende het werkt voor alle jaren.

Wanneer DININ =04200 en PRIO = 2 , dan is DPFIN = 04220