| 関数名 |
WKD_RestKindNum |
| 概要 |
【機能】：「担当者一覧」シートの休出区別数取得 |
| 処理 |
休出状態を取得する
|
| 形式 |
Public Function WKD_RestKindNum() As Integer |
| 可視性 |
パブリック |
| 引数 |
なし |
| 戻り値 |
| Integer |
[0]なし、[1]1のみ、[2]1,2あり |
|
| 関数名 |
WKD_RestNumSet |
| 概要 |
【機能】：「設定」シートの休日設定数セット |
| 処理 |
休設定数をセットする
|
| 形式 |
Public Function WKD_RestNumSet(no As Integer, num As Long) As Long |
| 可視性 |
パブリック |
| 引数 |
| no |
Integer |
担当番号 |
| num |
Long |
設定数 |
|
| 戻り値 |
|
| 関数名 |
WKD_WorkNumSet |
| 概要 |
【機能】：「設定」シートの出勤設定数セット |
| 処理 |
出設定数をセットする
|
| 形式 |
Public Function WKD_WorkNumSet(no As Integer, num As Long) As Long |
| 可視性 |
パブリック |
| 引数 |
| no |
Integer |
担当番号 |
| num |
Long |
設定数 |
|
| 戻り値 |
|
| 関数名 |
WKD_RestDaySet |
| 概要 |
【機能】：「設定」シートの個別休日変更処理 |
| 処理 |
配列「作業日_休設定」に日付dayをセットする
|
| 形式 |
Public Sub WKD_RestDaySet(no As Integer, idx As Integer, day As String) |
| 可視性 |
パブリック |
| 引数 |
| no |
Integer |
|
| idx |
Integer |
インデックス番号 |
| day |
String |
日付 |
|
| 関数名 |
WKD_WorkDaySet |
| 概要 |
【機能】：「設定」シートの個別出勤変更処理 |
| 処理 |
配列「作業日_出設定」に日付dayをセットする
|
| 形式 |
Public Sub WKD_WorkDaySet(no As Integer, idx As Integer, day As String) |
| 可視性 |
パブリック |
| 引数 |
| no |
Integer |
|
| idx |
Integer |
インデックス番号 |
| day |
String |
日付 |
|
| 関数名 |
WKD_WorkDayInit |
| 概要 |
【機能】：個別休日設定の初期化 |
| 処理 |
配列「作業日_休設定」「作業日_出設定」をクリアする
|
| 形式 |
Public Sub WKD_WorkDayInit() |
| 可視性 |
パブリック |
| 引数 |
なし |
| 関数名 |
WKD_RestDayCheck |
| 概要 |
【機能】：個別休日をチェック |
| 処理 |
配列「作業日_休設定」に日付(vntDate)が存在すれば[1]を返す
|
| 形式 |
Public Function WKD_RestDayCheck(no As Integer, vntDate As Variant) As Integer |
| 可視性 |
パブリック |
| 引数 |
| no |
Integer |
担当番号 |
| vntDate |
Variant |
日付 |
|
| 戻り値 |
|
| 関数名 |
WKD_WorkDayCheck |
| 概要 |
【機能】：個別出勤をチェック |
| 処理 |
配列「作業日_出設定」に日付(vntDate)が存在すれば[1]を返す
|
| 形式 |
Public Function WKD_WorkDayCheck(no As Integer, vntDate As Variant) As Integer |
| 可視性 |
パブリック |
| 引数 |
| no |
Integer |
担当番号 |
| vntDate |
Variant |
日付 |
|
| 戻り値 |
|
| 関数名 |
WKD_Init |
| 概要 |
【機能】：営業日情報の初期化処理 |
| 処理 |
作業日_(曜日)の「日/土/祝」を"休"、それ以外を"出"にセット
|
| 形式 |
Public Sub WKD_Init() |
| 可視性 |
パブリック |
| 引数 |
なし |
| 関数名 |
WKD_Work1_Rest0 |
| 概要 |
【機能】：営業日判定処理 |
| 処理 |
作業日_(曜日)、個別休日、個別出勤をチェックして営業日かどうか判定する
※当該日付が日付でない場合はゼロを返す
|
| 形式 |
Public Function WKD_Work1_Rest0(no As Integer, vntDate As Variant) As Integer |
| 可視性 |
パブリック |
| 引数 |
| no |
Integer |
担当番号 |
| vntDate |
Variant |
当該日付(Date) |
|
| 戻り値 |
| Integer |
その日が営業日かの値(Integer) ※営業日=1, 休日=0 |
|
| 関数名 |
WKD_KeikaDate |
| 概要 |
【機能】：経過営業日取得処理 |
| 処理 |
１日ごとに営業日かどうか判別し、経過日を計算する
|
| 形式 |
Public Function WKD_KeikaDate(no As Integer, dteDate1 As Date, intKeika As Integer, Optional AddStartDay As Boolean = True) As Date |
| 可視性 |
パブリック |
| 引数 |
| no |
Integer |
担当番号 |
| dteDate1 |
Date |
@起算日(Date) |
| intKeika |
Integer |
A経過日数(Integer) ※±あり |
| AddStartDay |
Boolean |
|
|
| 戻り値 |
|
| 関数名 |
WKD_WorkDays |
| 概要 |
【機能】：営業日数算出処理 |
| 処理 |
休みを除いた営業日数を取得する
※期間開始日≦期間終了日のこと
|
| 形式 |
Public Function WKD_WorkDays(no As Integer, dteDate1 As Date, dteDate2 As Date, Optional intCNT As Integer) As Integer |
| 可視性 |
パブリック |
| 引数 |
| no |
Integer |
担当番号 |
| dteDate1 |
Date |
@期間開始日(Date) |
| dteDate2 |
Date |
A期間終了日(Date) |
| intCNT |
Integer |
B歴日数(Integer) ※開始/終了が同日の場合は1となる(Option) |
|
| 戻り値 |
| Integer |
営業日数(Integer) ※算出不可の場合はゼロ |
|
| 関数名 |
fncGetHoliDay1 |
| 概要 |
【機能】：当該年月の祝日(振替休日補正後)を配列で返す |
| 処理 |
当該年月の祝日(振替休日補正後)を配列で返す
|
| 形式 |
Private Function fncGetHoliDay1(intSTR_Y As Integer, intSTR_M As Integer, intCNT As Integer) As Variant |
| 可視性 |
プライベート |
| 引数 |
| intSTR_Y |
Integer |
開始年(Integer) |
| intSTR_M |
Integer |
開始月(Integer) |
| intCNT |
Integer |
取得月数(Integer) |
|
| 戻り値 |
| Variant |
祝日の配列(当該月に祝日がない場合はブランク) |
|
| 関数名 |
GP_GetHoliday_Sub |
| 概要 |
【機能】：当該年月の祝日(振替休日補正後)を配列で返す(サブ処理) |
| 処理 |
当該年月の祝日(振替休日補正後)を配列で返す(サブ処理)
|
| 形式 |
Private Sub GP_GetHoliday_Sub(intY As Integer, intM As Integer, tblDate() As Date, IX As Integer) |
| 可視性 |
プライベート |
| 引数 |
| intY |
Integer |
年(Integer) |
| intM |
Integer |
月(Integer) |
| tblDate() |
Date |
祝日日付(Array) |
| IX |
Integer |
テーブル格納件数(Integer) |
|
| 関数名 |
FP_GetHoliday2 |
| 概要 |
【機能】：当該祝日が日曜なら翌日を返す |
| 処理 |
当該祝日が日曜なら翌日を返す
|
| 形式 |
Private Function FP_GetHoliday2(dteHoliday As Date) As Date |
| 可視性 |
プライベート |
| 引数 |
|
| 戻り値 |
|
| 関数名 |
FP_GetHoliday3 |
| 概要 |
【機能】：年月第n週のm曜日を算出 |
| 処理 |
年月第n週のm曜日を算出
|
| 形式 |
Private Function FP_GetHoliday3(intY As Integer, intM As Integer, intW As Integer, intG As Integer) As Date |
| 可視性 |
プライベート |
| 引数 |
| intY |
Integer |
年 |
| intM |
Integer |
月 |
| intW |
Integer |
週 |
| intG |
Integer |
|
|
| 戻り値 |
|
| 関数名 |
FP_GetSyunbun |
| 概要 |
【機能】：春分の日の算出 |
| 処理 |
春分の日を返す
|
| 形式 |
Private Function FP_GetSyunbun(intY As Integer) As Date |
| 可視性 |
プライベート |
| 引数 |
|
| 戻り値 |
|
| 関数名 |
FP_GetSyuubun |
| 概要 |
【機能】：秋分の日の算出 |
| 処理 |
秋分の日を返す
|
| 形式 |
Private Function FP_GetSyuubun(intY As Integer) As Date |
| 可視性 |
プライベート |
| 引数 |
|
| 戻り値 |
|
|
モジュール名：M34_WKD_WorkDayCheckProc