gunakan ini:
(taruh di module umum)
Function fTotal(ByVal strAngka As String) As Double
y = Replace(strAngka, "(", Space(0))
y = Replace(y, ")", Space(0))
y = Replace(y, ",", ".")
x = Split(y, "+")
For i = 0 To UBound(x)
j = j + CDbl(x(i))
Next
fTotal = j
End Function
lihat di immediate window:
?fTotal("(59+40+42,5+32+23,7+12)")
209.2
salam kompak,
MBA
----- Original Message -----
From: "llukevan" <[email protected]>
To: <[email protected]>
Sent: Wednesday, July 01, 2009 13:05
Subject: [belajar-access] rumus atau fungsi apa yg digunakan
> halo pak,
> saya masih pemula nih mo tanya
> saya membuat database surat jalan dan pada detail barang ada field yang
> isinya spt ini:
> field1: (59+40+42,5+32+23,7+12)
> field2: 209,2
> nah pertanyaanya bagaimana rumus ato fungsi yang harus digunakan untuk
> mendapatkan nilai total dari field1 spt pd field2.
> terimakasih
> evan
>
>
>
> ------------------------------------
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
>
