Aplikasi Komputer Bisnis

  download

Rekening download

 Neraca Saldo download

 Neraca dan RL download

  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 =...