> Kalo terbilang untuk curency bagaimana ?
> misal : 1.750.000 jadi Terbilang : Satu Juta Tujuh Ratus Lima Puluh
Ribu
Untuk fungsi terbilang currency bisa search di arsip milis yang
lalu-lalu ( pasti ketemu....)
> Terus misal hasil penghitungan di bulatkan, misal :
> US $ mau di kurs ke Rupiah > $ 23 X 9500 = 218.500
> Hasilnya ingin di bulatkan menjadi 220.000
> Aau untuk kasus lain 212.500 pengen jadi 210.000
Function BulatKan(Bilangan As Double, Digit)
If Bilangan <= 0 Then
BulatKan = 0
Exit Function
End If
If Digit > 10 Then Digit = 10
If Digit <= 0 Then
BulatKan = Bilangan
Else
cBil = Str(Int(Bilangan))
ckanan = Right(Trim(cBil), Digit)
If Val(ckanan) = 0 Then
BulatKan = Bilangan
Exit Function
End If
cAtas = "1" & Left("0000000000", Digit)
nTengah = Val(cAtas) / 2
If Val(ckanan) > nTengah Then
nTambah = Val(cAtas) - Val(ckanan)
Else
nTambah = nTengah - Val(ckanan)
End If
BulatKan = Bilangan + nTambah
'Debug.Print cBil, cKanan, cAtas, nTambah, Bilangan
End If
End Function
