Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


688 / 2272 ツリー ←次へ | 前へ→

【10522】時間の集計 まつ 08/8/21(木) 18:04 質問[未読]
【10524】Re:時間の集計 hatena 08/8/22(金) 1:08 回答[未読]
【10528】Re:時間の集計 まつ 08/8/26(火) 12:59 質問[未読]
【10529】Re:時間の集計 hatena 08/8/26(火) 13:22 回答[未読]
【10530】Re:時間の集計 まつ 08/8/27(水) 23:21 お礼[未読]

【10522】時間の集計
質問  まつ  - 08/8/21(木) 18:04 -

引用なし
パスワード
   はじめまして、アクセス初心者なのですが、教えてください。
現在設備の稼動管理をアクセス2003で作っているのですが。

稼働率を集計するのに、1ロットの生産時間を算出するのに
ロット開始の年月日と時刻を記入し、ロットが終了した年月日
と時刻を記入してもらうとして。

ロットの開始から終了までの時間データを分で取得したいと考えてます。
生産は24時間稼動しているので、日またぎや数日間動くときもあります。
以上よろしくお願いします。

【10524】Re:時間の集計
回答  hatena  - 08/8/22(金) 1:08 -

引用なし
パスワード
   >稼働率を集計するのに、1ロットの生産時間を算出するのに
>ロット開始の年月日と時刻を記入し、ロットが終了した年月日
>と時刻を記入してもらうとして。
>
>ロットの開始から終了までの時間データを分で取得したいと考えてます。
>生産は24時間稼動しているので、日またぎや数日間動くときもあります。

DateDiff関数を使いましょう。

【10528】Re:時間の集計
質問  まつ  - 08/8/26(火) 12:59 -

引用なし
パスワード
   返事が遅れてすみません。
自分なりにDateDiffを使ってやってみたのですが
一つ詰まってしまいました、というのは。
データとしては[開始時刻][開始年月日][終了時刻][終了年月日]
を入力してもらうとして。

DateDiff("n",[開始時刻],[終了時刻])で負の値が出たら+1440して
時刻から[分]を算出。

DateDiff("d"[開始年月日],[終了年月日])で出された数値に-1した
ものを[日数]と換算し。

[日数]*1440+[分]で時間を算出する計算式を入れました。

で、実際に数値を入れた時に算出した時間が合わない時があり
例)開始:2008/08/25 12:00
  終了:2008/08/26 22:00 の場合に
本当の値は2040分ですが、600分の答えが返ってきてしまいます。
かといって、[日数]の出た値に-1をなくしてしまうと。
  開始:2008/08/25 12:00
  終了:2008/08/26 10:00
この場合本当の値は1320分ですが、2760分が返ってきてしまいます。

何かいい解決法があればご教授願います。

【10529】Re:時間の集計
回答  hatena  - 08/8/26(火) 13:22 -

引用なし
パスワード
   >データとしては[開始時刻][開始年月日][終了時刻][終了年月日]
>を入力してもらうとして。

日付 と 時刻 を足せば、日時 になりますので、

DateDiff("n",[開始年月日]+[開始時刻],[終了年月日]+[終了時刻])

【10530】Re:時間の集計
お礼  まつ  - 08/8/27(水) 23:21 -

引用なし
パスワード
   ▼hatena さん:
>>データとしては[開始時刻][開始年月日][終了時刻][終了年月日]
>>を入力してもらうとして。
>
>日付 と 時刻 を足せば、日時 になりますので、
>
>DateDiff("n",[開始年月日]+[開始時刻],[終了年月日]+[終了時刻])

なるほど・・・
それは知りませんでしたので
[日]=DateDiff("d",[開始年月日],[終了年月日])+1
[時刻1]=DateDiff("n","00:00",[開始時刻])
[時刻2]=DateDiff("n",[終了時刻],"23:59")+1
[日]*1440-[時刻1]-[時刻2]
苦肉の策で、こんな計算させてました・・・・

1行でできるのなら、こっちのほうがいいですね(つд・)
ありがとうございました。

688 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078199
(SS)C-BOARD v3.8 is Free