[8:00 〜 5:00]は[8:00 〜 29:00]と同値です
終業が日付を跨いで且つ始業時刻を越えている場合､終業時刻の指定
は必ず【 24:00 〜 48:00 】の値で行なって下さい。
『勤務区割』には各勤務時間帯の終了時刻を表形式で渡します。
勤務区割の最終時刻は必ず【２４：００】にして下さい。
ワークシートで利用する場合は､下記の図のようにセル範囲（１行または１列形式）
を指定します。
ＶＢＡから利用する場合は下記のいずれかで指定して下さい。
・ワークシート上に『勤務区割』データを用意して､そのセル範囲を【Range 】で指定する。
Dim vnt結果 As Variant
vnt結果 = ktWorkingTime（始業時刻，終業時刻，Range("B3:B10")，２）
・【Array 関数】を使って指定する。この場合､【２４：００】は『数値の１』で定義します。
Dim vnt結果 As Variant
vnt結果 = ktWorkingTime（始業時刻，終業時刻，_
Array(#7:00:00 AM#, #9:00:00 AM#, #12:00:00 PM# _
, #1:00:00 PM#, #5:30:00 PM#, #6:00:00 PM# _
, #10:00:00 PM#, 1)，２）
もしくは
Dim vnt結果 As Variant
Dim vnt勤務区割 As Variant
vnt勤務区割 = Array(#7:00:00 AM#, #9:00:00 AM#, #12:00:00 PM# _
, #1:00:00 PM#, #5:30:00 PM#, #6:00:00 PM# _
, #10:00:00 PM#, 1)
vnt結果 = ktWorkingTime（始業時刻，終業時刻，vnt勤務区割，２）
・Array 関数を使わないで､Ｄａｔｅ型配列を作成して指定する。
この場合､必ず【０オリジン】として下さい。
Dim vnt結果 As Variant
Dim dtm勤務区割(0 To 7) As Date
dtm勤務区割( 0 ) = #7:00:00 AM#
dtm勤務区割( 1 ) = #9:00:00 AM#
：
dtm勤務区割( 6 ) = #10:00:00 PM#
dtm勤務区割( 7 ) = 1
vnt結果 = ktWorkingTime（始業時刻，終業時刻，dtm勤務区割，２）
上の例で､集計オプションを利用すると下記のように求められます。
通常勤務 = ktWorkingTime(B1, C1, B3:B10, 3, "00101000#00101000")
普通残業 = ktWorkingTime(B1, C1, B3:B10, 3, "01000010#01000010")
深夜残業 = ktWorkingTime(B1, C1, B3:B10, 3, "10000001#10000001")
※ 時刻データの小数誤差について
ktWorkingTime 関数では、始業時刻 / 終業時刻 に 小数誤差 を持った時刻データ を
与えた場合でも正しく算出します。
ktWorkingTime 関数内では､小数誤差が表れないように『分』に変換した上で整数演算で
処理し､結果を返す段階でシリアル値に変換しています。しかし､ktWorkingTime で得られた
日々の結果には小数誤差が無くても､それを集計（月合計や年合計など）すれば､そこには
再び小数誤差が含まれてきます。ktWorkingTime で返す内容も『分』の整数のままにすれば､
集計したとしても､そこには小数誤差など存在しません。
ただ､このままでは､時間データとして利用できませんので､下記のようにしてシリアル値（または
時刻数値）に変換して下さい（ktWorkingTime を使うセル（列）を非表示で隠して､シリアル値に
変換した結果だけ表示させます）。
「Serial=False 」指定により『分』で結果を得た場合､
(1) シリアル値にするには､[1440]で割ります（表示形式を時刻タイプへ）。
(2) 時給計算などを計算する為に時間を【数値（7：45→7.75）】で得たい場合は､
[60]で割ります（表示形式は標準または数値）。
