Sudah ketemu Bang....
ada Sample yang bisa diDownload....
btw, thanks atas partisipasinya...
Regards
Harry Siswanto
From: jkssbma <jkssbma@live.com>
To: belajar-access@yahoogroups.com
Sent: Wednesday, November 16, 2011 2:27 PM
Subject: [belajar-access] Re: Bagaimana menggunakan Fungsi Workdays di MsAccess ??
varWeekendDays = DateDiff(Interval:="ww", _
date1:=Startdate, _
date2:=EndDate)
jika startdate = #10/1/2011# ' 1 oktober 2011
dan EndDate = # 11/30/2011# ' 30 November 2011
hari libur tgl 6 Nove 2011 dan 27 November 2011 adalah hari minggu jadi
diabaikan
jumlah hari minggu dari 1 Oktober 2011 s/d 30 Nove 2011 adalah 9 ,
jadi hasil WorkDays adalah 61- 0- 9 = 52 hari
--- In belajar-access@yahoogroups.com, harry siswanto hsiswanto@
wrote:
Dear Senior,
saya baru mau coba tentang Fungsi Workdays di MsAccess2003,
timbul Error.
terlampir file Mdb.
Table yang digunakan : Table2 & Holidays
Query yang digunakan: Q-Workingday
Module: Working days
Mohon dapat dibantu,
Mungkin ada yang punya beberapa Fungsi excel yang bisa digunakan di
MsAccess: spt: Weekdays dll. tolong diHaring.
terima kasih atas perhatian dan kerjasamanya
Regards
Harry Siswanto
To: belajar-access@yahoogroups.com
Sent: Wednesday, November 16, 2011 2:27 PM
Subject: [belajar-access] Re: Bagaimana menggunakan Fungsi Workdays di MsAccess ??
ada yg kurang jadi di perbaikilah postingan sebelumnya
' strWhere = "[Holiday] >= #" & Startdate _
& "# AND [Holiday] <= #" & EndDate & "#"
' Count the number of holidays.
' nHolidays = DCount(Expr:="[Holiday]", _
Domain:=strHolidays, _
Criteria:=strWhere)
' Yg diganti dgn
' strWhere = "[Tanggal] >= #" & Startdate _
& "# AND [Tanggal] <= #" & EndDate & "#"
' karena hari minggu libur tak di hitung
' ganti dgn
& "# AND [Holiday] <= #" & EndDate & "#"
' Count the number of holidays.
' nHolidays = DCount(Expr:="[Holiday]", _
Domain:=strHolidays, _
Criteria:=strWhere)
' Yg diganti dgn
' strWhere = "[Tanggal] >= #" & Startdate _
& "# AND [Tanggal] <= #" & EndDate & "#"
' karena hari minggu libur tak di hitung
' ganti dgn
strWhere = "[Tanggal] >= #" & Startdate _
& "# AND [Tanggal] <= #" & EndDate & "#" _
& " and Weekday(Tanggal)<>" & vbSunday
nHolidays = DCount(Expr:="[Tanggal]", _
Domain:=strHolidays, _
Criteria:=strWhere)
Pada fungsi Weekdays :
' Calculate the number of weekend days.
' varWeekendDays = (DateDiff(Interval:="ww", _
date1:=Startdate, _
date2:=EndDate) _
* ncNumberOfWeekendDays) _
+ IIf(DatePart(Interval:="w", _
Date:=Startdate) = vbSunday, 1, 0) _
+ IIf(DatePart(Interval:="w", _
Date:=EndDate) = vbSaturday, 1, 0)
'diganti dgn
& "# AND [Tanggal] <= #" & EndDate & "#" _
& " and Weekday(Tanggal)<>" & vbSunday
nHolidays = DCount(Expr:="[Tanggal]", _
Domain:=strHolidays, _
Criteria:=strWhere)
Pada fungsi Weekdays :
' Calculate the number of weekend days.
' varWeekendDays = (DateDiff(Interval:="ww", _
date1:=Startdate, _
date2:=EndDate) _
* ncNumberOfWeekendDays) _
+ IIf(DatePart(Interval:="w", _
Date:=Startdate) = vbSunday, 1, 0) _
+ IIf(DatePart(Interval:="w", _
Date:=EndDate) = vbSaturday, 1, 0)
'diganti dgn
varWeekendDays = DateDiff(Interval:="ww", _
date1:=Startdate, _
date2:=EndDate)
jika startdate = #10/1/2011# ' 1 oktober 2011
dan EndDate = # 11/30/2011# ' 30 November 2011
hari libur tgl 6 Nove 2011 dan 27 November 2011 adalah hari minggu jadi
diabaikan
jumlah hari minggu dari 1 Oktober 2011 s/d 30 Nove 2011 adalah 9 ,
jadi hasil WorkDays adalah 61- 0- 9 = 52 hari
--- In belajar-access@yahoogroups.com, harry siswanto hsiswanto@
wrote:
Dear Senior,
saya baru mau coba tentang Fungsi Workdays di MsAccess2003,
timbul Error.
terlampir file Mdb.
Table yang digunakan : Table2 & Holidays
Query yang digunakan: Q-Workingday
Module: Working days
Mohon dapat dibantu,
Mungkin ada yang punya beberapa Fungsi excel yang bisa digunakan di
MsAccess: spt: Weekdays dll. tolong diHaring.
terima kasih atas perhatian dan kerjasamanya
Regards
Harry Siswanto
__._,_.___
SPAM IS PROHIBITED
MARKETPLACE
.
__,_._,___
No comments:
Post a Comment