Fungsi ini hanya berlaku kalau format "Bilangan" nya selalu seperti
dibawah ini:
> Contoh
> 20;2;12/1 menjadi 20*2*1=40
> 2;10;1/0.8 menjadi 2*10*0.8=16
kalo formatnya lain, silahkan modifikasi sendiri rumusnya.
mdh2-an membantu,
Edy WIYONO
Function fHitungBilangan(ByVal Bilangan As String) As Double
On Error GoTo err_f
strBasis = Replace(Bilangan, "/", ";")
i = Split(strBasis, ";")
fHitungBilangan = i(0) * i(1) * i(3)
exit_f:
Exit Function
err_f:
Debug.Print Err.Description
Resume exit_f
End Function
--- In [email protected], "Dwi Wuryantadi"
<[EMAIL PROTECTED]> wrote:
>
> Saya memiliki field unik berupa text yang merupakan kumpulan angka
yang
> dipisahkan dengan separator ";" atau "/"
> Bagaimana caranya menjumlahkan atau mengalikan record2 di firld
tersebut.
> Contoh
> 20;2;12/1 menjadi 20*2*1=40
> 2;10;1/0.8 menjadi 2*10*0.8=16
> makasih sebelumnya
>
>
>
> ___________________________________________________________
> The all-new Yahoo! Mail goes wherever you go - free your email
address from your Internet provider.
http://uk.docs.yahoo.com/nowyoucan.html
>
