Kuruş Sorunu

[ahmed_ummu]

Merhaba arkadaşlar

Eklediğim resimde iki bordro var. birisi KBS sisteminden alınan birisi de benim hazırladığım. Üstteki yani KBS den alınan bordro doğru. Benim hazırladığım ise

çerçeve içine aldığım tutarlarda KBS deki tutarlardan 1 kuruş eksik. sadece iki kalemde. Bunu nasıl düzeltebilirim.

Aşağıda kod resimde çerçeve içine aldığım soldaki tutarın kodu.

özel_hizmet_tazminat_tutarı = Format(TextBox30.Value * katsayi * sab.Range("l8").Value / 100, "#,##0.00")
ActiveCell.Offset(-2, 4).value=özel_hizmet_tazminat_tutarı
ActiveCell.Offset(-2, 4).NumberFormat = "#,##0.00"

Textbox30'ün değeri 55
katsayi değeri 0,433684
sab.Range("l8").Value değeri 9500

Aşağıda kod resimde çerçeve içine aldığım sağdaki tutarın kodu.

ActiveCell.Offset(-2, 5).Value = WorksheetFunction.Round(TextBox33.Value * katsayi * katsayi_carpani / 100, 2)
ActiveCell.Offset(-2, 5).HorizontalAlignment = xlRight
ActiveCell.Offset(-2, 5).NumberFormat = "#,##0.00"

Textbox33'ün değeri 110
katsayi değeri 0,433684
katsayi_carpani değeri 9500

Yardımcı olursanız sevinirim.