Para accounting di perusahaan pasti punya tugas untuk mengatur gaji karyawan. Disaat mengatur pembayaran untuk tiap-tiap karyawan kita sering menemukan kasus mengurusi slip gaji yang berjibun. Slip gaji sangat penting, sebagai transparansi perusahaan saat membayarkan kewajibannya untuk para pekerjanya. Bersyukurlah untuk para accounting yang perusahaannya sudah menerapkan sistem teknologi yang canggih, sehingga tidak perlu pusing-pusing untuk membuat slip gaji. Pengalaman saya sebagai accounting perusahaan baru yang masih menggunakan sistem manual, hal ini dikarenakan perusahaan baru buka sekitar 3 bulan-an tetapi sudah memiliki karyawan 1000 orang membuat saya kewalahan untuk membuat slip gaji. Awalnya saya masuk saya diberikan tugas membuat slip gaji tetapi diajarkan menggunakan excel yang pakai dilink dari sheet lain. Jujur saya kewalahan, selain itu jika sheet itu dirumah sedikit maka hasil link-nya akan error alias bertuliskan #REFF. Saya banyak belajar dari profesi accounting maklum saya bukanlah berasal dari pendidikan akuntansi atau ekonomi. Sedikit pengetahuan tentang dunia komputasi fisika memberikan ide untuk membuat program memecahkan kasus mengenahi penyelesaian slip gaji karyawan yang berjibun. berikut programnya.
Contoh keluaran runningnya adalah
clear all
clc
disp(' ')
clear all
clc
disp(' SELAMAT DATANG DIPEROGRAM INI ');
disp(' MOHON PATUHI
ATURANNYA ^_^ ');
disp(' ')
disp(' ')
disp(' terima
kasih ');
disp(' ')
disp(' ')
h=input(' Bulan ke berapa ');
j=input(' Tahun berapa ');
r1=input(' periode awal ');
r2=input(' periode akhir ');
disp(' Tgl_Mas Bulan_Mas NIK
TOTALHARIKER GAJI/HARI TUNJ H_LEMBUR TOT_LEM ')
B1=[
16 5 0
2 15000 0
0 0 1
16 5 0
2 15000 0
0 0 2
16 5 0
2 15000 0
0 0 3
16 5 0
2 15000 0
0 0 4
16 5 0
2 15000 0
0 0 5
16 5 0
2 15000 0
0 0 6
16 5 0 2 15000
0 0 0 7
16 5 0
2 15000 0
0 0 8]
r3=input(' total periode ');
disp(' tekan 1 untuk bagian dept sewing')
disp(' tekan 2 untuk bagian dept iron
')
disp(' tekan 3 untuk bagian dept quality control')
disp(' tekan 4 untuk bagian dept cutting ')
disp(' tekan 5 untuk bagian dept mekanik ')
disp(' tekan 6 untuk bagian dept packing ')
disp(' tekan 7 untuk bagian dept acessories')
n=input (' mau merunning bagian
apa ?? ');
switch h
case 1
h1='Januari';
case 2
h1='Februari';
case 3
h1='Maret';
case 4
h1='April';
case 5
h1='Mei';
case 6
h1='Juni';
case 7
h1='Juli';
case 8
h1='Agustus';
case 9
h1='September';
case 10
h1='Oktober';
case 11
h1='November';
case 12
h1='Desember';
otherwise
h1=num2str(h);
end;
a=input(' Jumlah Pekerja yang akan di running ');
for i=1:a;
X=1:a;
y=X';
disp(' ')
disp(' ')
disp(['no_' num2str(i)])
disp('=============================================')
disp(' PT ABADI ')
disp('=============================================')
disp('NAMA : ')
if n==1;
disp('DEPT : SEWING');
elseif n==2;
disp('DEPT : IRON ');
elseif n==3;
disp('DEPT : QUALITY CONTROL');
elseif n==4;
disp('DEPT : CUTTING');
elseif n==5;
disp('DEPT : MEKANIK');
elseif n==6;
disp('DEPT : PACKING');
elseif n==7;
disp('DEPT : ACESSORIES');
elseif n==8;
disp('DEPT : WASHING');
else
disp(' error');
end
switch B1(i,2);
case 1
h11='Januari';
case 2
h11='Februari';
case 3
h11='Maret';
case 4
h11='April';
case 5
h11='Mei';
case 6
h11='Juni';
case 7
h11='Juli';
case 8
h11='Agustus';
case 9
h11='September';
case 10
h11='Oktober';
case 11
h11='November';
case 12
h11='Desember';
otherwise
h11=num2str(B1(i,2));
end;
disp(['TANGGAL
MASUK : ' num2str(B1(i,1))
'
'
num2str(h11)])
disp(['NIK : BO_' num2str(B1(i,3))])
disp(['PERIODE : ' num2str(r1) ' ' num2str(h1) ' - ' num2str(r2) ' ' num2str(h1) ' ' num2str(j)])
disp(['TOTAL
PERIODE : ' num2str(r3)]);
disp(['TOTAL
KERJA : '
num2str(B1(i,4))])
w=r3-B1(i,4);
disp(['ABSEN : ' num2str(w)])
format bank
disp(['GAJI POKOK PER
HARI : Rp. ' num2str(B1(i,5))
',00'])
disp(['TUNJANGAN : Rp. ' num2str(B1(i,6))
',00'])
disp(['LEMBUR ' num2str(B1(i,7))
' : Rp. ' num2str(B1(i,8))
',00'])
K=B1(i,5)*B1(i,4)+B1(i,6)+B1(i,8);
disp(['TOTAL
GAJI : Rp. ' num2str(K) ',00'])
disp(' ')
disp('## komplain
gaji maks. 3 hari ')
disp('## mohon
langsung dihitung setelah diterima')
disp('
.................terima kasih..................')
tt(i)=K;
end
disp(' ')
disp(' ')
uu=tt';
disp(uu)
disp(' total')
p=sum(uu);
disp(p)
Catatan B1 adalah sebuah matriks yang isinya adalah
Tgl_Masuk Bulan_Masuk NIK TOTALHARIKERJA GAJI/HARI TUNJANGAN HARI LEMBUR TOTAL LEMBUR
Tgl_Masuk Bulan_Masuk NIK TOTALHARIKERJA GAJI/HARI TUNJANGAN HARI LEMBUR TOTAL LEMBUR
=============================================
PT ABADI
=============================================
NAMA :
DEPT :
CUTTING
TANGGAL MASUK :
21 April
NIK :
BON_620
PERIODE :
5 Mei - 17 Mei 2014
TOTAL PERIODE :
12
TOTAL KERJA :
11
ABSEN :
1
GAJI POKOK PER HARI :
Rp. 15000,00
TUNJANGAN :
Rp. 0,00
LEMBUR 0 :
Rp. 0,00
TOTAL GAJI :
Rp. 165000,00
## komplain gaji maks. 3 hari
## mohon langsung dihitung setelah diterima
.................terima
kasih..................
mbak program e pakek apa???
BalasHapusitu pakai program matlab.
Hapus