Accessフォーラムの過去ログIndexページAccess超初心者対象ForumAccess初級者対象ForumAccess初・中級者対象ForumAccess VBA Tips ForumDAO、ADO、SQL Forumサポートフォーラム

     

No.10516 平均時間の出し方

■10516 /inTopicNo.1)  平均時間の出し方
    □投稿者/ ピザ 一般(1回)-(2004/01/13(Tue) 12:02:22)

      AC Ver:[AC2000] 
      OS Ver:[Win2000] 

      はじめまして、初心者でよくわからなくてなってしまったのでどなたか教えてください。
      下記は、勤務時間の終了時間と1ヶ月の平均終了時間を出しているものです。
      テーブル件数マスタ
      業務終了時間:テキスト型
      これは以前知人から頂いたのをちょっと変更をしたいと思っているのですが
      うまくいきません。
      
      したい事:業務終了時間の入力でいちいち「:」を手で入力しなくてはいけないこと
          :24時間以降入力が出来るようにしたい←これはテキスト型でないと無理
           とわかりました。
      あと、下の方のコードのIIf(Int(w_time * 60 / 100) < 10, "0" ・・・の
      意味がよくわからないので教えてくださる方お願いします。 
      Private Sub グループフッター0_Format(Cancel As Integer, FormatCount As Integer)
      
      If on_cnt <> 0 Then
       [終了時(平均)] = Int(h_sum / on_cnt)
        w_time = ((h_sum / on_cnt) - Int(h_sum / on_cnt)) * 100
        [終了分(平均)] = IIf(Int(w_time * 60 / 100) < 10, "0" & Mid(Str(Int(w_time * 60 / 100)), 2, 1), Int(w_time * 60 / 100))
      End If
      If on_cnt2 <> 0 Then
        [終了時(土曜除)] = Int(h_sum2 / on_cnt2)
         w_time2 = ((h_sum2 / on_cnt2) - Int(h_sum2 / on_cnt2)) * 100
        [終了分(土曜除)] = IIf(Int(w_time2 * 60 / 100) < 10, "0" & Mid(Str(Int(w_time2 * 60 / 100)), 2, 1), Int(w_time2 * 60 / 100))
      End If

このAccessフォーラム過去ログ集は、Microsoft Access Club が運営しています


 

ページの先頭へ 前ページへ戻る