Arsip: numpang tanya coding buat hitung insentif berdasar jam kerja

more 10 years ago
angel_tears
procedure TForm3.DateTimePicker2Change(Sender: TObject);
var jamdtg, jamplg : string;
incdtg, incplg : Real;
begin
jamdtg:=StrToDate(DateTimePicker2.Time) ;
if jamdtg between '06.00.00 AM' and '08.00.00 AM' then
begin
incdtg:=3000;
end
else
begin
incdtg:=0;
end;
Edit3.Text:=FloatToStr(incdtg);
end;
kira2 apa yang salah/kurang dr coding diatas ya???
ceritanya gini,saia mo buat aplikasi penghitungan insentif berdasarkan jam kerja,jd misal kalo dateng dibawah jam 8 pagi dpt 3000,pulang di atas jam 17.30 dpt 2000 dst...trus perhitungannya itu pas datetimepickernya berubah nilainya,jumlah insentif itu langsung tampil di Tedit...maap kebanyakan nanya...ane masih newbie.....mohon bantuannya kk2 master delphi yg terhormat....
more 10 years ago
mas_kofa
@angel_tears:kode diatas maksud nya apa?? bukankah jamdtg itu string? dan StrToDate() itu TDate.... dan lagian ngapain juga di convert ke string??procedure TForm3.DateTimePicker2Change(Sender: TObject); var jamdtg, jamplg : string; incdtg, incplg : Real; begin jamdtg:=StrToDate(DateTimePicker2.Time) ; end;

more 10 years ago
mas_kofa
jamdtg:=HourOf(DateTimePicker2.Time) ; //jamdtg ganti integer (int);
if jamdtg in then
begin
incdtg:=3000;
end
else
begin
incdtg:=0;
end;
Edit3.Text:=FloatToStr(incdtg);
end;
NB : tambah kan unit DateUtils di uses.....
more 10 years ago
angel_tears
makasi kk
udah jalan...
tp masih ada 1 yg aq bingung,knp pas di datetimepicker nya di plh jam 8.42,dy masih keluar insentif datang
itu kira2 jam nya bs di batasin lebih spesifik ngga ya??
sekali lagi mohon bantuannya kk...

more 10 years ago
mas_kofa
menit nya diikutsertakan juga.......
jamdtg :=HourOf(DateTimePicker2.Time) ; //jamdtg ganti integer (int);
mendtg := MinuteOf(DateTimePicker2.Time);
jamdtg := jamdtg * 100 + mendtg;
if (jamdtg >= 600) and (jamdtg <= 800) then
begin
incdtg:=3000;
end
else
begin
incdtg:=0;
end;
Edit3.Text:=FloatToStr(incdtg);
end;
kalo lebih presisi lagi...ikut sertakan juga detik nya....
more 10 years ago
angel_tears
utk jam plg nya spt ini ya kk???
procedure TForm3.DateTimePicker3Change(Sender: TObject);
var jamplg,menplg : integer;
incplg : real;
begin
jamplg:=HourOf(DateTimePicker3.Time) ;
menplg:=MinuteOf(DateTimePicker3.Time) ;
jamplg:=jamplg * 100+ menplg;
if (jamplg >=500) and (jamplg<=550) then
begin
incplg:=2000;
end
else if (jamplg >=550) and (jamplg<=600) then
begin
incplg:=2500;
end
else if (jamplg >=600) and (jamplg<=700) then
begin
incplg:=3500;
end
else if (jamplg >=700) and (jamplg<=800) then
begin
incplg:=5000;
end
else
begin
incplg:=0;
end;
Edit4.Text:=FloatToStr(incplg);
end;
tp kok ngga keluar nilainya... :(more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 1 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 2 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 9 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 9 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 9 years ago
Random Topic
- Perintah download darii Dos
by umarbakri in Hal umum tentang Pascal Indonesia more 15 years ago - error waktu mau menampilkan image
by shindo in Hal umum tentang Pascal Indonesia more 15 years ago - Connection Ke server dengan menggunakan indy
by canoey in Network, Files, I/O & System more 16 years ago - Gimana caranya distribusiin aplikasi delphi pakai database ?
by putu_niki in Tip n Trik Pemrograman more 15 years ago - proteksi agar file jlan 1x
by Cip_rud in Lain-lain more 13 years ago - table in richedit
by muktaf in Tip n Trik Pemrograman more 14 years ago - DICARI: produsen kaos delphi-id
by simba in OOT more 15 years ago - Menampilkan 16000 Record lambat?
by myluqman in MsSQL more 15 years ago - MyIsam VS InnoDB
by reza_onclick in MySQL more 14 years ago - Komponen SMS lagi.......
by fissas in Hal umum tentang Pascal Indonesia more 14 years ago