Arkadaşlar Merhaba

Accesste 2 zaman değerini kullanarak 100 üzerinden bir performans hesaplamak istiyorum. Fakat aşağıdaki koddaki koyu yazılı satırda yanlış eşleşme tipi diye hata veriyor. Oysa eşitliğin sağ tarafı da sol tarafına integer . Acaba programın başında yazan "Private Sub Performans_Exit(Cancel As Integer)" ifadesi olabilir mi ?

Yardımlarıız için şimdiden teşekkür ederim.

Private Sub Performans_Exit(Cancel As Integer)
Dim zaman As Date
zaman = CDate(Gerçekleşen_Süre)
Me.Performans = CInt(Me.ProsesSüresi / zaman) * 100
End Sub