[belajar-access] Macro tanggal terbilang

 

Assalamu'alaikum

Alhamdulillah

Buat Teman2 yang perlu fungsi tanggal terbilang silahkan copas aza yach…..

Saya juga copas dari milis belajar-access@yahoogroups.com tapi ada yang tak hapus codingnya hehehehheheheh

mongo liat2 codingnya dulu yach.......

Public Function ubah_tanggal(xbil As Double)    Dim nilai, i, j, k, Hasil$, HasilAkhir$, Bilangan#, Digit, Rp$, Bil$      If IsNull(xbil) Then       ubah_tanggal = Null       Exit Function    End If   'pengelompokan     Dim Kel$(1 To 6), Angka$(1 To 9), Sat$(1 To 3)     Kel$(1) = "Biliun "     Kel$(2) = "Triliun "     Kel$(3) = "Miliar "     Kel$(4) = "Juta "     Kel$(5) = "Ribu "     Kel$(6) = ""   'data angka     Angka$(1) = "Satu "     Angka$(2) = "Dua "     Angka$(3) = "Tiga "     Angka$(4) = "Empat "     Angka$(5) = "Lima "     Angka$(6) = "Enam "     Angka$(7) = "Tujuh "     Angka$(8) = "Delapan "     Angka$(9) = "Sembilan "   'satuan     Sat$(1) = "Ratus "     Sat$(2) = "Puluh "     Sat$(3) = ""   'mulai    Bilangan# = Val(xbil)    HasilAkhir$ = ""    GoSub HitungHuruf    If Hasil$ <> "" Then     HasilAkhir$ = Hasil$    End If   'hitung pecahan    Bilangan# = Fix((Bilangan# - Fix(Bilangan#) + 0.005) * 100#)    If Bilangan# > 0 Then       GoSub HitungHuruf       If Hasil$ <> "" Then         HasilAkhir$ = HasilAkhir$ + " " + Hasil$ + "Sen"       End If    End If   ubah_tanggal = HasilAkhir$ Exit Function   HitungHuruf:     Rp$ = Right$(String$(18, "0") + LTrim$(Str$(Fix(Bilangan#))), 18)     Hasil$ = ""       If Val(Rp$) = 0 Then Return   'blg bulat    For i = 1 To 6       Bil$ = Mid$(Rp$, i * 3 - 2, 3)         If Val(Bil$) = 1 And i = 5 Then          Hasil$ = Hasil$ + "Seribu "         ElseIf Val(Bil$) <> 0 Then          For j = 1 To 3             Digit = Val(Mid$(Bil$, j, 1))             If j = 2 And Right$(Bil$, 2) = "10" Then                Hasil$ = Hasil$ + "Sepuluh "                Exit For               ElseIf j = 2 And Right$(Bil$, 2) = "11" Then                Hasil$ = Hasil$ + "Sebelas "                Exit For               ElseIf j = 2 And Mid$(Bil$, 2, 1) = "1" Then                Hasil$ = Hasil$ + Angka$(Val(Right$(Bil$, 1))) + "Belas "                Exit For               ElseIf Digit = 1 And j = 1 Then                Hasil$ = Hasil$ + "Seratus "               ElseIf Digit <> 0 Then                Hasil$ = Hasil$ + Angka$(Digit) + Sat$(j)               End If          Next          Hasil$ = Hasil$ + Kel$(i)       End If    Next    Return End Function

 

Kawan2 tinggal copi coding diatas

Trus buat modul pada ms. Access caranya

1.       Tekan Alt + F11

2.       Click insert

3.       Click modul

4.       Paste Coding (selesai deh)

 

Kemudian anda buat form baru untuk fungsi tanggal terbilang dan isikan pada form tersebut perintah berikut :

 

 

 

 

Wassalamu'alaikum Wr. Wb

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 5

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___