Eh, bisa nggak ya dipakai di Ms word ?
Gimana caranya yo ?
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
---------------------------------------------
