Excel VBA質問箱 IV

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

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


59866 / 76732 ←次へ | 前へ→

【21532】Re:経過時間の計算
回答  りすりす  - 05/1/22(土) 21:13 -

引用なし
パスワード
   ▼みゆき さん:
>受付時間から退出時間(現在時間)までを算出したいのですが、その計算式は出来ました。
>さらにそこから、退出時間が3時間以内の人までは30分ごとに管理し、それ以降は1時間毎に管理したいのですが、表示を00:30→0.5h(02:30分なら→2.5h、05:00は5h)と表示させたいのです。
>「24」をかけると書いてあった記事を見てまねてみましたが上手く表示してくれません・・・。
>
>ようは駐車場の管理なのです。
>30分まで無料、以降30分ごとに課金して、さらに3時間を超えるものは1時間毎に課金と言った具合です。(なので30分未満は00:16→0hと表示)
>
>IF文で分岐させればよいのでしょうが、時間の変換が分からず苦労しています。
>何度もすみません。


はーい りすりすのWindows講座のお時間です


小数部はその日の経過時間(24 時間制)です。

=(NOW()-TODAY())*24
は、0時からの経過時間
整数部分が 時間となります。
用途的にはそのまま使った方がいいので時間は切り取りません。

さらに、60をかけると 分になります。
=(NOW()-TODAY())*24*60
もうおわかりだと思います
退出時間- 受付時間
におきかえると
(退出時間- 受付時間 )*24*60
が経過した分です。
その数字にたいして、
条件文をつければいいわけです。


i=(退出時間- 受付時間)*24*60


ですから、
下記のように 分で条件文を分岐すればいいことがわかると思います。

おもしろそうだから
つくちゃった(^_^;)


Private Sub CommandButton1_Click()
 Dim i, h As Date
 Dim s As String

i = (Now - Int(Now)) * 24 * 60
' TODAY数値がおかしいのでデバッグするとTODAY がEmpty値になる  内部バグか
' Int(Now)で代用
' i = 181 ' ここの数字変えて試すといいです、

If (i < 30) Then
  s = "0h"
ElseIf (30 <= i) And (i < 3 * 60) Then
  h = Int(i / 30) * 30 ' 30で割り 0か30になるように調整
  If (h Mod 60) < 30 Then ' あまりがないので30分未満
    s = Format(h / 60, "0h")
   Else         ' あまりがあるので30分〜59分
    s = Format(h / 60, "0.0h")
  End If
ElseIf (i >= 3 * 60) Then
  h = Int(i / 60) ' 時間に直す
  s = Format(h, "#h")
End If

' Cells(1, 1) = s
End Sub
1 hits

【21490】条件を満たすセルの検索 みゆき 05/1/21(金) 22:09 質問
【21492】Re:条件を満たすセルの検索 かみちゃん 05/1/21(金) 22:21 回答
【21499】Re:条件を満たすセルの検索 みゆき 05/1/21(金) 23:25 質問
【21501】Re:条件を満たすセルの検索 かみちゃん 05/1/22(土) 0:07 回答
【21502】Re:条件を満たすセルの検索 りすりす 05/1/22(土) 0:08 発言
【21504】Re:条件を満たすセルの検索 みゆき 05/1/22(土) 0:21 お礼
【21505】Re:条件を満たすセルの検索 りすりす 05/1/22(土) 0:22 発言
【21506】Re:条件を満たすセルの検索 みゆき 05/1/22(土) 1:12 質問
【21510】Re:条件を満たすセルの検索 りすりす 05/1/22(土) 2:07 回答
【21519】Re:条件を満たすセルの検索 みゆき 05/1/22(土) 12:54 お礼
【21514】Re:条件を満たすセルの検索 かみちゃん 05/1/22(土) 10:46 回答
【21525】経過時間の計算 みゆき 05/1/22(土) 17:48 質問
【21529】Re:経過時間の計算 G-Luck 05/1/22(土) 19:24 発言
【21532】Re:経過時間の計算 りすりす 05/1/22(土) 21:13 回答
【21533】日数および時間計算に関するワークシート関... りすりす 05/1/22(土) 22:39 発言
【21537】Re:日数および時間計算に関するワークシー... みゆき 05/1/23(日) 0:16 お礼
【21493】Re:条件を満たすセルの検索 ponpon 05/1/21(金) 22:24 発言
【21497】Re:条件を満たすセルの検索 りすりす 05/1/21(金) 23:11 回答
【21500】Re:条件を満たすセルの検索 りすりす 05/1/21(金) 23:47 発言

59866 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free