Arsip: numpang tanya coding buat hitung insentif berdasar jam kerja

more 8 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 8 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 8 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 8 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 8 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 8 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
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Pembuatan Nilai Rupiah ? Pliz Bantu dUnKz
by jajang in Tip n Trik Pemrograman more 12 years ago - Mas - Mas tolongin ya....
by wiar in Hal umum tentang Pascal Indonesia more 13 years ago - tampilkan nama alias dalam quickreport
by ricky_seldjatem in MsSQL more 12 years ago - [ASK] Akses Database Lewat Internet
by yoebhe in Tip n Trik Pemrograman more 12 years ago - delphi-id lagi sakit
by ganang in Kritik & Saran more 12 years ago - Pencarian dengan DateTimePicker
by meehelmi in Reporting more 13 years ago - konversi C++ ke delphi
by demarda in Network, Files, I/O & System more 14 years ago - Trigger FIFO di Mysql
by elektra_3328 in MySQL more 9 years ago - make Dbase via EXCEL
by nurez in onLinux more 15 years ago - Operasi aritmatik pada Edit untuk Form Penjualan...
by ii_irwan in Lain-lain more 11 years ago