Neraca Saldo PO Pratama
Neraca Saldo download
Postingan populer dari blog ini
Terbilang
Dim Huruf(0 To 9) As String Dim ax(0 To 3) As Double Function INIT_angka() Huruf(0) = "" Huruf(1) = "satu " Huruf(2) = "dua " Huruf(3) = "tiga " Huruf(4) = "empat " Huruf(5) = "lima " Huruf(6) = "enam " Huruf(7) = "tujuh " Huruf(8) = "delapan " Huruf(9) = "sembilan " End Function Function dgratus(angka As Double) As String Temp = "" INIT_angka panjang = Len(Trim(Str(angka))) nilai = Right("000", 3 - panjang) + Trim(Str(angka)) For y = 3 To 1 Step -1 ax(y) = Mid(nilai, y, 1) Next y Select Case ax(1) Case Is =...
Komentar
Posting Komentar