Terimakasih banyak atas bantuannya, ini sangat membantu sekali Mudah2an Tuhan membalasnya
Amiin _____ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of H SS Sent: 07 Mei 2008 13:25 To: [email protected] Subject: Re: [Programmer-VB] membulatkan bilangan ke atas dan kebawah Saya Coba Bantu ya..... Coba Gunakan coding dibawah ini Text2.Text = CStr((Round(Val(Text1.Text) / 50, 0) * 50)) Semoga Membantu ^_^ God Bless You ----- Original Message ----- From: Narif <mailto:[EMAIL PROTECTED]> Rahmat Santosa To: Programmer-VB@ <mailto:[email protected]> yahoogroups.com Sent: Tuesday, May 06, 2008 7:31 AM Subject: [Programmer-VB] FW: membulatkan bilangan ke atas dan kebawah Maaf tadi ada kesalah code di code pertama di tulis Text2.Text = Format(Mid(nil, 1, Len(nil) - 2) & (Source + (100 - Source)), "###,###") seharusnya Text2.Text = Format(Mid(nil, 1, Len(nil) - 2) & (Source + (50 - Source)), "###,###") Mohon bantuannya _____ From: Narif Rahmat Santosa [mailto:[EMAIL PROTECTED] Sent: 06 Mei 2008 7:18 To: 'Programmer- <mailto:'[email protected]'> [EMAIL PROTECTED]' Subject: membulatkan bilangan ke atas dan kebawah Selamat pagi semua, Mohon kiranya para master vb bisa membantu saya neh. Saya ada kesulitan mengenai membulatkan bilangan uang kea atas dah kebawah Dim Source As Integer Dim Jmldigits As Integer Dim nil As String Jmldigits = 0 Source = 0 Jmldigits = Len(Text1.Text) Text2.Text = "" If Jmldigits > 1 Then Source = Right(Text1.Text, 2) If Jmldigits = 2 Then If Val(Source) <= 49 Then Text2.Text = 50 Else Text2.Text = 100 End If Else nil = Replace(Text1.Text, ".", "") If Val(Source) <= 99 Then Text2.Text = Format(Mid(nil, 1, Len(nil) - 2) & (Source + (100 - Source)), "###,###") End If End If Else Text2.Text = Text1.Text End If Code ini hanya membulatkan ke bilangan 50, misalnya saya punya Nilai 16.535 maka Hasilnya akan 16.550 ini benar. Tetapi jika saya mempunyai Nilai 16.585 maka hasilnya tidak jadi 16.600, hasilnya tetep 16.550 Saya dah coba muter-muter tapi tetep lom dapet juga neh Mohon bantuannya para master VB. Terimakasih sebelumnya Regards, Narif _____ Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try <http://us.rd.yahoo.com/evt=51733/*http:/mobile.yahoo.com/;_ylt=Ahu06i62sR8H DtDypao8Wcj9tAcJ%20> it now.
