投稿日	： 2003/02/10(Mon) 16:18
投稿者	： Lantern
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^7: フレキシブルグリッドでの計算

'シフトの人数を格納する２次元配列
Private bShift() As Integer

'グリッドの行列は前の書き込みを見る限り可変とは思えないので
'グリッドの初期化なりで配列を初期化したらいいと思います
'時間,曜日で２２×７の２次元配列
Private Sub InitGrid()
    ReDim bShift(21, 6) As Integer
End Sub

'bCol:曜日
'bBgn:開始時間
'bEnd:終了時間
Private Sub test1(ByVal bCol As Integer, ByVal bBgn As Integer, ByVal bEnd As Integer)
    Dim i As Integer
    
    '開始〜終了の人数をカウントアップ
    '合計人数を計算
    For i% = bBgn% To bEnd%
        bShift(i%, bCol%) = bShift(i%, bCol%) + 1
        bShift(21, bCol%) = bShift(21, bCol%) + 1
    Next i%
End Sub

#こんな感じだと思いますが
#もしこのコードでコメントで説明がなければ
#見ても何やってるかわかんないでしょ＾＾；
#質問も同じだと思いますよ

★ - フレキシブルグリッドでの計算 - ハイライト 02/08-15:40No.2662
• Re: フレキシブルグリッドでの計算 - 花ちゃん 02/08-16:08 No.2664
  • Re^2: フレキシブルグリッドでの計算 - ハイライト 02/10-11:54 No.2675
    • Re^3: フレキシブルグリッドでの計算 - 花ちゃん 02/10-13:01 No.2676
      • Re^4: フレキシブルグリッドでの計算 - ハイライト 02/10-14:27 No.2677
        • Re^5: フレキシブルグリッドでの計算 - A221 02/10-15:18 No.2678
          • Re^6: フレキシブルグリッドでの計算 - ハイライト 02/10-15:37 No.2680
            • Re^7: フレキシブルグリッドでの計算 - Lantern 02/10-16:18 No.2684
              • Re^8: フレキシブルグリッドでの計算 - Lantern 02/10-16:51 No.2685