Guys... Trims yo... Koding dan logika dari Bung Franky telah memecahkan masalah... Trims juga buat yang lainnya yang udah mbantuin njawab... Sukses buat semua terutama Bung Franky...
Regards Gege Nugroho --- On Mon, 8/25/08, Frangky <[EMAIL PROTECTED]> wrote: From: Frangky <[EMAIL PROTECTED]> Subject: RE: [Programmer-VB] Pembulatan To: [email protected] Date: Monday, August 25, 2008, 11:08 AM Coba seperti dibawah ini, semoga tidak salah Private Sub Command1_Click( ) Dim x As String If Len(Text1) > 3 Then x = Len(Text1) - 3 Select Case Right(Text1, 3) Case Is < 500 Text1 = Left(Text1, x) & "000" Case Is <= 800 Text1 = Left(Text1, x) & "500" Case Is >= 800 Text1 = Left(Text1, x - 1) & "1000" End Select End If End Sub From: Programmer-VB@ yahoogroups. com [mailto:Programmer- [EMAIL PROTECTED] com] On Behalf Of Gege Nugroho Sent: 25 Agustus 2008 11:01 To: programmer-vb@ yahoogroups. com; programmer-kristen@ yahoogroups. com Subject: [Programmer- VB] Pembulatan Guys... Minta tolong lagih nih tentang VB gwe punya kasusu pembulatan gaji begini : <500=0 500-800=500 >800=1000 kasus ; gaji : Rp. 1.009.480 yang dicetak : Rp. 1.009.000 gaji : Rp. 1.010.780 yang dicetak : Rp. 10.010.500 gaji : Rp. 1.000.955 yang dicetak : 1.001.000 Yang ditanyakan : Gimana sih logikanya? trims yo guys... Regards Gege Nugroho No virus found in this incoming message. Checked by AVG - http://www.avg. com Version: 8.0.138 / Virus Database: 270.6.7/1631 - Release Date: 8/24/2008 12:15 PM
