1. bagi GP pokok karyawan dengan jumlah max kerja per bulan dari depnaker
(173 jam kalo ga salah)
2. buat tabel master yang menampung item-item lembur tadi (1 jam 2x dsb)
contoh yah:
lama lembur: 3 jam 21 menit
tabel_lembur:
policy lembur pengali
1 1.5
7 2
unlimited 5
tabel_lembur.record pertama
for i = 1 to tabel_lembur.jumlah_record
jika lama lembur >= policy lembur maka
lama lembur = lama lembur - policy lembur
bayaran lembur = bayaran lembur + (pengali *policy lembur*gp
perjam)
jika tidak
jam_sisa = jam(lama lembur)
menit_sisa = menit(lama lembur)/60
bayaran lembur = (jam_sisa+menit_sisa)*pengali*gp perjam
selesai
majukan record tabel_lembur ke record selanjutnya
next i
http://newbieprogrammer.blogspot.com
On 9/14/07, .:: SHiFeRa KanDou ::. <[EMAIL PROTECTED]> wrote:
>
> Ehm.. masukan aja…
>
>
>
> Masukin di if els aja bias nggak?
>
> If jam lembur >1
>
> Hitung1 =1 * 1,5
>
> Hitung2 =(jamlembur-1)*2
>
> If jam lembur >8
>
> Hitung3 = (jamlembur-8)*5
>
>
>
> Bias gak kalo gitu?
>
>
>
>
>
>
>
> *From:* [email protected] [mailto:Programmer-
> [EMAIL PROTECTED] *On Behalf Of *Eldi Munggaran
> *Sent:* 14 September 2007 13:01
> *To:* [email protected]
> *Subject:* Re: [Programmer-VB] [ASK] VB - Ambil jam Lembur
>
>
>
> aduh kang, kalo itu engga ada logikanya.., tapi rule-rule nya ditampung di
> table aja semua..., nanti pada saat executing merujuk ke situ.
>
>
>
> Eldi Munggaran S.KOM
> Padumukan Software - Application Developer
>
>
>
> ----- Original Message ----
> From: Gege Nugroho <[EMAIL PROTECTED]>
> To: [EMAIL PROTECTED]
> Sent: Friday, September 14, 2007 11:22:22 AM
> Subject: [Programmer-VB] [ASK] VB - Ambil jam Lembur
>
> Guys...........
>
> Sori lagih nih gwe punya masalah mengenai jam lembur di program gwe.
>
> Kondisinya gini :
>
> Apabila gwe dah mendapatkan data nilai jam lembur setiap karyawan, namun
> ada perhitungan mengenai jam pertama kali sekian, jam kedua dan seterusnya
> kali sekian, kayak gini :
>
>
>
> Jika gwe dapet 3 jam lembur, trus diperhitungkan :
>
> 1 jam pertama dikali 1,5
>
> jam berikutnya dikali 2
>
> diatas 8 jam dikali 5
>
>
>
> Logikanya begimane?
>
>
>
> Trims ye........
>
>
>
> Dari yang lagi bingung ngitung lemburan
>
> Gege
>
>
>
> Regards
> Gege Nugroho
> ------------------------------
>
> Luggage? GPS? Comic books?
> Check out fitting gifts for
> grads<http://us.rd.yahoo.com/evt=48249/*http:/search.yahoo.com/search?fr=oni_on_mail&p=graduation+gifts&cs=bz>at
> Yahoo! Search.
>
>
>
>
> ------------------------------
>
> Moody friends. Drama queens. Your life? Nope! - their life, your story.
> Play Sims Stories at Yahoo! Games.
> <http://us.rd.yahoo.com/evt=48224/*http:/sims.yahoo.com/>
>
>
>
> __________ NOD32 2511 (20070907) Information __________
>
> This message was checked by NOD32 antivirus system.
> http://www.eset.com
>
>
>
