Matur suwun atas koreksi berharganya, Mas Aksan....,
Simulasi saya memang masih di office 2003 dan windows XP.
-------------------------------------------- On Thu, 11/9/14, Aksan Kurdin aksan.kurdin@gmail.com [belajar-access] <belajar-access@yahoogroups.com> wrote: Subject: Re: [belajar-access] Menghitung selisih hari kerja To: belajar-access@yahoogroups.com Date: Thursday, 11 September, 2014, 11:48 AM Dear cak hariyanto Mohon ijin nyoba solusinya.... tapi terkendala di fungsi for_date(). mohon maaf, cak, karena respon bang scan smg belum datang, for_date mungkin CInt nya ditunda sampai baris ketiga: Function for_date() Dim xx As Variant 'xx = CInt(Left(CStr(DateSerial(2012, 1, 2)), 2)) '<< CInt menyebabkan error type missmatch xx = Left(CStr(DateSerial(2012, 1, 2)), 2) xx = Replace(xx, "/", "") If CInt(xx) <= 2 Then for_date = "yyyy/mm/dd" Else for_date = "mm/dd/yyyy" End If End Function sepurane cak. Regards, Aksan Kurdin On 9/9/2014 10:02 PM, hari yanto har_i20002000@yahoo.com [belajar-access] wrote: Untuk menghitung hari kerja, selain hari Sabtu Minggu yang sudah kita putuskan sebagai hari libur, kita juga harus memiliki tabel yang berisi hari-hari libur nasional. Hari-hari libur nasional ini lantas kita jadikan patokan, apakah hari yang kita umpankan masuk ke dalamnya ataukah tidak. Terlampir adalah perbaikan data. Semoga sesuai harapan Sampeyan. Hariyanto (Surabaya) -------------------------------------------- On Sat, 6/9/14, scan smg scan_smg@yahoo.com [belajar-access] <belajar-access@yahoogroups.com> wrote: Subject: [belajar-access] Menghitung selisih hari kerja [1 Attachment] To: belajar-access@yahoogroups.com Date: Saturday, 6 September, 2014, 2:10 PM [Attachment(s) from scan smg scan_smg@yahoo.com [belajar-access] included below] Dear Para Pakar, Mohon solusinya, cara menghitung total selisih hari kerja (tidak termasuk hari minggu dan hari libur nasional). Terlampir database cuti. Terima kasih banyak. Salam,
Posted by: hari yanto <har_i20002000@yahoo.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (3) |
Tidak ada komentar:
Posting Komentar