Komputer Bisnis 2
Pembagian SHU
Senin, 06 Mei 2019
manajemen
Pengertian Fungsi dan Tujuan Manajemen Keuangan
Pengertian Manajemen Keuangan
Manajemen Keuangan
adalah segala kegiatan atau aktivitas perusahaan yang berhubungan dengan bagaimana
cara memperoleh pendanaan modal kerja, menggunakan atau mengalokasikan dana,
dan mengelola aset yang dimiliki untuk mencapai tujuan utama perusahaan.
Tujuan Manajemen Keuangan
Tujuan utama Manajemen Keuangan adalah untuk memaksimalkan nilai yang dimiliki perusahaan atau
memberikan nilai tambah terhadap asset yang dimiliki oleh pemegang saham.
Kamis, 25 Oktober 2018
KOMPUTER BISNIS
1. GAJI
Macro terbilang download
Copy Tulisan berikut ini:
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 = 1
Temp = "seratus "
Case Is > 1
Temp = Huruf(Val(ax(1))) + "" + "ratus "
Case Else
Temp = ""
End Select
Select Case ax(2)
Case Is = 0
Temp = Temp + Huruf(Val(ax(3)))
Case Is = 1
Select Case ax(3)
Case Is = 1
Temp = Temp + "sebelas"
Case Is = 0
Temp = Temp + "sepuluh"
Case Else
Temp = Temp + Huruf(Val(ax(3))) + " belas"
End Select
Case Is > 1
Temp = Temp + Huruf(Val(ax(2))) + "puluh"
Temp = Temp + " " + Huruf(Val(ax(3)))
End Select
dgratus = Temp
End Function
Function bojogalak(angka As Double) As String
Dim ratusan(0 To 6) As String
Dim sebut(0 To 4) As String
sebut(1) = " ribu "
sebut(2) = " juta "
sebut(3) = " milyar "
sebut(4) = " trilyun "
panjang = Len(Trim(Str(angka)))
kali = Int(panjang / 3)
If Int(panjang / 3) * 3 <> panjang Then
kali = kali + 1
sisa = panjang - Int(panjang / 3) * 3
nilai = Right("000", 3 - sisa) + Trim(Str(angka))
Else
nilai = Trim(Str(angka))
End If
For x = 0 To kali
ratusan(kali - x) = Mid(nilai, x * 3 + 1, 3)
Next x
For y = kali To 1 Step -1
If y = 2 And Val(ratusan(y)) = 1 Then
Temp = Temp + "seribu "
Else
If Val(ratusan(y)) = 0 Then
Temp = Temp
Else
Temp = Temp + dgratus(Val(ratusan(y)))
Temp = Temp + sebut(y - 1)
End If
End If
Next y
bojogalak = Temp & " rupiah"
End Function
2. Koperasi
a. Simpanan Sukarela download
b. Pembagian SHU download
3. Laporan Keuangan dan Cash Flow:
a. Laporan Keuangan download
b. Cash Flow download
c. Rekening download
d. Latihan download
Macro terbilang download
Copy Tulisan berikut ini:
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 = 1
Temp = "seratus "
Case Is > 1
Temp = Huruf(Val(ax(1))) + "" + "ratus "
Case Else
Temp = ""
End Select
Select Case ax(2)
Case Is = 0
Temp = Temp + Huruf(Val(ax(3)))
Case Is = 1
Select Case ax(3)
Case Is = 1
Temp = Temp + "sebelas"
Case Is = 0
Temp = Temp + "sepuluh"
Case Else
Temp = Temp + Huruf(Val(ax(3))) + " belas"
End Select
Case Is > 1
Temp = Temp + Huruf(Val(ax(2))) + "puluh"
Temp = Temp + " " + Huruf(Val(ax(3)))
End Select
dgratus = Temp
End Function
Function bojogalak(angka As Double) As String
Dim ratusan(0 To 6) As String
Dim sebut(0 To 4) As String
sebut(1) = " ribu "
sebut(2) = " juta "
sebut(3) = " milyar "
sebut(4) = " trilyun "
panjang = Len(Trim(Str(angka)))
kali = Int(panjang / 3)
If Int(panjang / 3) * 3 <> panjang Then
kali = kali + 1
sisa = panjang - Int(panjang / 3) * 3
nilai = Right("000", 3 - sisa) + Trim(Str(angka))
Else
nilai = Trim(Str(angka))
End If
For x = 0 To kali
ratusan(kali - x) = Mid(nilai, x * 3 + 1, 3)
Next x
For y = kali To 1 Step -1
If y = 2 And Val(ratusan(y)) = 1 Then
Temp = Temp + "seribu "
Else
If Val(ratusan(y)) = 0 Then
Temp = Temp
Else
Temp = Temp + dgratus(Val(ratusan(y)))
Temp = Temp + sebut(y - 1)
End If
End If
Next y
bojogalak = Temp & " rupiah"
End Function
2. Koperasi
a. Simpanan Sukarela download
b. Pembagian SHU download
3. Laporan Keuangan dan Cash Flow:
a. Laporan Keuangan download
b. Cash Flow download
c. Rekening download
d. Latihan download
Langganan:
Postingan
(
Atom
)
