Mohon pencerahan dari para suhu disini
Saya buat report untuk merekap gaji karyawan dengan CR 8.5
di reportnya saya buat 2 group 1 berdasarkan NIP karyawan,yang ke 2
berdasarkan Bagiannya
lalu saya buat formula untuk membulatkan total gajinya
mis gaji 835.254,24 => 835.500
867.835 => 868.000
formulanya seperti ini
##################
dim lbltotal as currency
dim total1 as string
lbltotal=CCur (Sum ({...@totupah}, {GAbsen.nip}))
if lbltotal=0 then
lbltotal=0
else
If Right(cstr(lbltotal), 3) = "0" Then
lbltotal = lbltotal
ElseIf Right(cstr(lbltotal), 3) <= "500" Then
total1= Right(cstr(lbltotal), 3)
lbltotal = (lbltotal - ccur(total1) + 500)
Else
'Right(cstr(lbltotal), 3) < "1000" Then
total1= Right(cstr(lbltotal), 3)
lbltotal = (lbltotal - ccur(total1) + 1000)
End If
end if
formula = lbltotal
untuk total gaji per nip tidak ada masalah formula pembulatannya benar ,
tapi pas saya mau total gaji karyawan perbagian nilainya salah karna nilainya
nilai sebelum pembulatan
miss
gaji tanpa pembulatan | gaji dgn pembulatan
783.050 783.500
854.850 855.000
------------- ----------------
1.637.900 1.638.500
mohon pencerahannya para master thx B4
