Sip.. Thx
2009/5/6, sukarno faza <[email protected]>: > Mungkin seperti ini? > > muridnya murid belajar access > > 2009/5/6 Teguh JAP <[email protected]>: >> >> >> Cara pakainya gmn ya ? >> udah dicoba di attcmnt >> kok ga bisa >> >>> 2009/5/6 Murid Belajar Access <[email protected]> >>> >>>> >>>> >>>> Saya dapat dari internet, lupa dari mana. >>>> katanya udah dipakai untuk billing PLN se jawa timur. >>>> >>>> Taruh di module umum. >>>> >>>> Public Function Money2Str(Mny As Variant) >>>> Dim Satuan As Variant >>>> Dim Ribuan As Variant >>>> Dim tempStr As String, RetVal As String >>>> Dim TempVal As String >>>> Dim i As Integer >>>> Dim ch(2) As Integer >>>> Dim State As Integer >>>> Dim IsRibuan As Boolean >>>> >>>> Satuan = Array("", "Satu ", "Dua ", "Tiga ", "Empat ", "Lima ", "Enam ", >>>> "Tujuh ", "Delapan ", "Sembilan ") >>>> Ribuan = Array("", "Ribu ", "Juta ", "Milyard ", "Trilyun ") >>>> >>>> tempStr = Str(CCur(Mny)) >>>> For i = Len(tempStr) To 1 Step -3 >>>> ch(0) = Val(Mid(tempStr, i, 1)) >>>> If i - 1 <= 0 Then >>>> ch(1) = 0 >>>> ch(2) = 0 >>>> GoTo Start >>>> End If >>>> ch(1) = Val(Mid(tempStr, i - 1, 1)) >>>> If i - 2 <= 0 Then >>>> ch(2) = 0 >>>> GoTo Start >>>> End If >>>> ch(2) = Val(Mid(tempStr, i - 2, 1)) >>>> Start: >>>> TempVal = "" >>>> IsRibuan = False >>>> If ch(0) = 1 And ch(1) = 0 And ch(2) = 0 And State = 1 Then >>>> TempVal = "Seribu " >>>> IsRibuan = True >>>> ElseIf ch(1) = 1 Then >>>> If ch(0) = 1 Then >>>> TempVal = "Sebelas " >>>> ElseIf ch(0) = 0 Then >>>> TempVal = "Sepuluh " >>>> Else >>>> TempVal = Satuan(ch(0)) & "Belas " >>>> End If >>>> ElseIf ch(1) <> 0 Then >>>> TempVal = Satuan(ch(1)) & "Puluh " & Satuan(ch(0)) >>>> ElseIf ch(0) <> 0 Then >>>> TempVal = Satuan(ch(0)) >>>> End If >>>> >>>> If ch(2) = 1 Then >>>> TempVal = "Seratus " & TempVal >>>> ElseIf ch(2) <> 0 Then >>>> TempVal = Satuan(ch(2)) & "Ratus " & TempVal >>>> End If >>>> If Len(TempVal) > 0 Then >>>> If IsRibuan Then >>>> RetVal = TempVal & RetVal >>>> Else >>>> RetVal = TempVal & Ribuan(State) & RetVal >>>> End If >>>> End If >>>> State = State + 1 >>>> Next 'i >>>> RetVal = "# " & RetVal & " Rupiah #" >>>> Money2Str = RetVal >>>> End Function >>>> >>>> >>>> salam, >>>> murid access - NRN CL BEW >>>> ----- Original Message ----- >>>> From: Kurniadi . <[email protected]> >>>> To: [email protected] >>>> Sent: Tuesday, May 05, 2009 18:03 >>>> Subject: [belajar-access] Mengkoversi Angka menjadi terbilang pada Ms. >>>> Access >>>> >>>> Dh, >>>> >>>> Tim Moderator dan anggota millist, Saya anggota baru nih kebetulan saya >>>> baru belajar Ms. Access dalam 1 tahun terakhir. Saya mendapatkan masalah >>>> dalam mengkonversi ANGKA menjadi TERBILANG pada form dan report . Mohon >>>> bantuannya ya bagi2 teman2 yg sudah berpengalaman. >>>> >>>> Atas bantuan dan kerjasamanya saya ucapkan terimakasih. >>>> >>>> >>>> Salam, >>>> >>>> >>>> >>>> Kurniadi >>>> >>>> >>> >>> >>> >>> -- >>> --------------------------------------------- >>> grapyak-semanak-cluthak >>> http://djmumun.wordpress.com >>> --------------------------------------------- >>> >> >> > > > > -- > [email protected] > cc:[email protected] >
