Arsip: sintax hari untuk pengurangan waktu
more 16 years ago
wary
Halo mas2 delphi, saya mau bertanya 2 hal dalam setting tanggal dan waktu.
saya sekarang membuat aplikasi absensi sidik jari, aplikasi tersebut udah 90% jadi, namun masalah yang saya hadapi mengenai kehadirannya mas,
1. kehadiran masuk pagi hari senin-sabtu 07.30-08.00 WIB
2. kehadiran pulang senin-kamis 14.00-14.30 WIB
3. kehadiran pulang jumat 11.30-12.00
4. kehadiran pulang sabtu 13.00-13.30
apabila lewat dari absen pagi 08.00 dikatakan terlambat dan apabila lewat dari jam pulang 14.30,12.00,13.30 dikatakan lembur, nah pertanyaan saya:
1.bagaimana menset tanggal, berdasarkan hari. untuk mendapatkan jam terlambat dan jam lembur apabila lewat dari batas waktu diatas?
setting jam masuk dan pulang berdasarkan waktu fingerprint mas2?
terima kasih..
tolong bantuannya mas...
more 16 years ago
ichan29
xixixi.. harus ngetik ulang, gara2 pas submit putus
pd dasarnya dikau hrs tau dulu konsepnya, jd spy dikau lebih enak utk meng-implementasikannya..
sedikit ilustrasi dan contoh sederhana mungkin,
1. pertama dikau harus buat yg namanya jam kerja, ini spy bisa memasukkan item uraian yg dikau tulis diatas itu, dan klo bisa utk tidak terbatas dg jam kerja tertentu aja.
2. buat kelompok kerja, utk mendefinisikan dari masing2 konfigurasi jam kerja yg ada
3. buat time schedule, merupakan rangkuman dari item 2 sebelumnya itu, ini yg mendefinisikan jam kerja tersebut dlm 1 tahun ato 2 tahun terserah si pengguna program
4. buat antisipasi klo2 nanti ada karyawannya yg menyimpan dr kelompoknya dia tp bersifat sementara, yaitu time schedule personal
nah itu sedikit gambaran, jd dg kondisi apapun tdk akan masalah, dan klo itu udah pahan sy yakin dikau akan mudah melakukan tehnical implementasinya.
misal: masukawal, masuk akhir... masuk akhir utk membatasi keterlabatan sdh mulai hitung, masuk awal berfungsi sbg batas akhir dr lembur biar tdk kebentur dg kondisi hr berikutnya, dan seterusnya...
more 16 years ago
wary
makasih sarannya mas ichan, namun batas waktunya udah saya buat databasenye, pengurangannya juga sudah dapat, namun yang saya kurang paham mengenai sintax untuk menyesuaikan harinya mas. karena batasan waktu pulang aja yang berbeda.
nah itukan secara otomatis, gimana untuk menyesuaikan hari menurut tanggal absennya mas. itu aja seh yang kurang dalam program saya..
terima kasih
more 16 years ago
wary
makasih sarannya mas ichan, namun batas waktunya udah saya buat databasenye, pengurangannya juga sudah dapat, namun yang saya kurang paham mengenai sintax untuk menyesuaikan harinya mas. karena batasan waktu pulang aja yang berbeda.
nah itukan secara otomatis, gimana untuk menyesuaikan hari menurut tanggal absennya mas. itu aja seh yang kurang dalam program saya..
terima kasih
more 16 years ago
mas_kofa
oooooo...yang sampean maksud......ngambil harinya hari apa....??? gitu???????
pake dayOf();
uses DateUtils;
x := DayOf(Now);
//1 = minggu 7 = sabtu...
tinggal cari batas waktunya di database berdasarkan nilai x......
apa itu maksudmu....????
more 16 years ago
wary
iya mas, program tersebut menyesuaikan dengan hari mas, kemudian pengurangan waktunya untuk mendapatkan waktu terlambat dan waktu lembur pegawai setiap harinya berdasarkan hari.
berarti dikembangkan dengan if then else yah untuk harinya menggunakan day of week.
kalo logika saya mas, jika hari senin masuk 07.30-08.00 pulang 14.30-15.00
jika hari selasa masuk 07.30-08.00 pulang 14.30-15.00
jika hari rabu masuk 07.30-08.00 pulang 14.30-15.00
jika hari kamis masuk 07.30-08.00 pulang 14.30-15.00
jika hari jumta masuk 07.30-08.00 pulang 11.30-12.00
jika hari kamis masuk 07.30-08.00 pulang 12.30-13.00
nah itu logikanya mas, pa bila dah bisa menyesuaikan harinya terus pengurangan waktu untuk mendapatkan jam terlambat absen pagi dan jam lembur absen pulang.
sebelumnya terima kasih solusinya mas kofa.
more 16 years ago
mas_kofa
Jika emang jadwal jam kerja udah disimpan ...ya tinggal difilter aja.......datanya......misal
table1.Filter := 'hari_id=' + IntToStr(x); //tapi saran saya pake query aja.....
table1.Filtered := true;
terlambat := time - table1['jadwal_masuk'];
lembur := time - table1['jadwal_pulang'];
S'moga bermanfaat....
ato kalo pengin pake if else......mending pake case x of aja....
x := dafofweek(now);
case x of
2..5 : begin //hari senin s/d Kamis
....................
end;
6 : begin //hari jumat
...............
end;
7 : begin //sabtu
...............
end;
more 16 years ago
juan81
untuk waktunya gampang aja mas..
pake fungsi time aja jadi...
Awal:=Time(q1.fieldbyname('JamMasuk').asdatetime);
Akhir:=Time(q1.fieldbyname('Jamkeluar').asdatetime);
seperti maskofa bilang... pake fungsi Dayofweek Untuk menentukan Harinya..
X:=DayOfWeek(Awal);
If (X=2) and (awal>=strtotime('07:30')) and (awal<=strtotime('08:00')) and (akhir>=strtotime('14:30')) and (akhir<=strtotime('15:00')) then
begin
end;
more 16 years ago
wary
makasih mas2 atas sarannya, saya akan coba sintax dari mas kofa dan mas juan.
terima kasih.
more ...
- Pages:
- 1
- 2
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 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- gimana cara akses IO USB
by jancky in Network, Files, I/O & System more 17 years ago - Tabel1.Post; muncul error, kalo Table1.Filtered = True; knp?
by sikuper85 in Lain-lain more 15 years ago - tanya TLabel
by tAtA in Tip n Trik Pemrograman more 14 years ago - Error Message...
by pikachu in Enginering more 17 years ago - cannot modify read only dataset
by arjuna_1982 in Hal umum tentang Pascal Indonesia more 15 years ago - ad yg bisa kasih solusi buat bkin LABEL
by Iansx in Hal umum tentang Pascal Indonesia more 17 years ago - Tutorial delphi yang lengkap full source code only in here
by videl_87 in Delphi.NET more 16 years ago - Dua database di satu aplikasi dgn satu komponen dbexpress
by derry.othman in Hal umum tentang Pascal Indonesia more 17 years ago - Posisi Alligment Center di TEDIT
by DeulleDo-X in Hal umum tentang Pascal Indonesia more 17 years ago - ada yang tau cara ada berapa minggu dalam bulan
by alvonz in OOT more 16 years ago