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: '[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
