kalau buat ncari dua digit desimal dari hasil pembagian nilai x dg sejuta, coba pake ini
Function BULAT(x As Double)
BULAT = Val(Mid(CStr(x / 1000000), InStr(CStr(x / 1000000), ".") + 1, 2))
End Function
best regards
[wawan]
On 1/19/06, caringinblk <[EMAIL PROTECTED]> wrote:
BULAT = Val(Mid(CStr(x / 1000000), InStr(CStr(x / 1000000), ".") + 1, 2))
End Function
best regards
[wawan]
On 1/19/06, caringinblk <[EMAIL PROTECTED]> wrote:
KEPADA REKAN2 MILIS, KEBETULAN SAYA SEDANG MEMBUAT FUNGSI PADA VBA
EXCEL..PROSEDUR TERSEBUT SBB:
Function BULAT(x As Double)
QW = x / 1000000
QX = Mid(QW, WorksheetFunction.Find(".", QW, 1) + 1, 2)
BULAT = Val(QX)
End Function
TAPI NILAINYA MENJADI ERROR #VALUE! KETIKA NILAI X=1000000, 2JT
DSTNYA, APAKAH ADA SARAN MERUBAH ERROR TSB..SAYA PERNAH MENCOBA FUNGSI
ISERROR PADA FUNGSI TSB...TAPI HASILNYA TETAP ERROR...
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
