Pakai perhitungan progresif ?, untuk menghitung jumlah uang lembur ya ?
if njam >= 8 then
let njumlah = ((njam - 2) * 5) + (1 * 2) + (1 * 1,5)
goto lanjut
endif
if njam >= 2
let njumlah = ((njam - 1) * 2) + (1*1,5)
goto lanjut
endif
if njam = 1
njumlah = njam * 1,5
endif
lanjut:
mungkin bs membantu
Best Regards,
Irwan Wahyu W
System Analyst Of Tekyan Dept.
PDAM JAYA
SCADA, 3th Floor
Jln. Penjernihan 2, Pejompongan
Jakarta 10210, Indonesia
Phone : +62 (21) 570 4250 ext 3507, 4208
Facsimile : +62 (21) 571 1796
Mobile : +62 (81) 2936 62 63
Email : [EMAIL PROTECTED]
: [EMAIL PROTECTED]
Homepage : http://www.pamjaya.co.id/
----- Original Message -----
From: Gege Nugroho
To: [EMAIL PROTECTED]
Sent: Friday, September 14, 2007 11: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 at Yahoo! Search.
__________ NOD32 2529 (20070913) Information __________
This message was checked by NOD32 antivirus system.
http://www.eset.com
