performans hesaplama

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

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

gerçekleşen süre gibi bir alanınız var diye farzederek yaptım bunu. örneği görmediğimiz için umarım bu şekildedir.
yalnız bu kodu anladığım kadarı ile Gerçekleşen_Süre ve ProsesSüresi alanlarının güncelleştirme sonrası olayına yazmalısın diye düşünüyorum.

Maalesef yine eşleşme hatası veriyor. Örneğim if then yapısı ile ilgili soru kısmında gönderdim. Yardımcı olabilirseniz sevinirim

Dim gersur As Integer 'Toplam Gerçekleştirme Süresi Saniye Cinsinden
Dim prossur As String ''Toplam Proses Süresi Saniye Cinsinden

prossur = (Int((Format([ProsesSüresi], "hh")) * 3600) + (Int(Format([ProsesSüresi], "nn")) * 60) + Int((Format([ProsesSüresi], "ss"))))
gersur = (Int((Format([Gerçekleşen_Süre], "hh")) * 3600) + (Int(Format([Gerçekleşen_Süre], "nn")) * 60) + Int((Format([Gerçekleşen_Süre], "ss"))))

gerçekleşen süre ile proses süresini saniye olarak hepasladıktan sonra istediğin işlemi yapabilirsin diye düşünüyorum.

Çok teşekkür ederim. Problemim çözüldü.