Excel VBA質問箱 IV

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

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


43245 / 76732 ←次へ | 前へ→

【38537】Re:料金計算マクロ
回答  ハト  - 06/6/6(火) 10:32 -

引用なし
パスワード
   ▼ハト さん:
>ちょっとベタなやり方ですが考えてみました
>※24時間以上のケースがない前提です
>参考にしてカスタマイズして下さい
>
DateAdd関数を使った方が処理がすっきりしました(^^;

Sub Test_Time()

Dim ws As Worksheet
Dim STime As Date
Dim ETime As Date
Dim NTime As Date
Dim TTime As Date

Dim TVal As Long
Dim NVal As Long

  TVal = 0
  NVal = 0

  Set ws = ThisWorkbook.Worksheets("Sheet1")
  
  STime = TimeValue(ws.Range("A1").Text)
  ETime = TimeValue(ws.Range("B1").Text)

  
  If STime > ETime Then
    NTime = DateAdd("d", 2, ETime)
  Else
    NTime = DateAdd("d", 1, ETime)
  End If
  
  STime = DateAdd("d", 1, STime)
  
  TTime = STime
  
  Do
    Select Case TimeValue(TTime)
      Case Is >= TimeValue("20:00")
        TTime = DateAdd("n", 30, TTime)
        NVal = NVal + 300
      Case Is >= TimeValue("6:00")
        TTime = DateAdd("n", 20, TTime)
        TVal = TVal + 400
      Case Else
        TTime = DateAdd("h", 1, TTime)
        NVal = NVal + 200
    End Select
      
    If TTime >= NTime Then Exit Do
  Loop

  If NVal > 1500 Then NVal = 1500
  TVal = TVal + NVal

  ws.Range("C1").Value = TVal

End Sub
2 hits

【38516】料金計算マクロ mai 06/6/5(月) 16:16 質問
【38524】Re:料金計算マクロ ハト 06/6/5(月) 18:11 回答
【38526】Re:料金計算マクロ ハト 06/6/5(月) 18:34 発言
【38579】Re:料金計算マクロ sin 06/6/6(火) 16:13 発言
【38606】Re:料金計算マクロ ハト 06/6/7(水) 10:31 発言
【38618】Re:料金計算マクロ ハト 06/6/7(水) 13:52 発言
【38623】Re:料金計算マクロ sin 06/6/7(水) 15:53 発言
【38629】Re:料金計算マクロ ハト 06/6/7(水) 16:29 発言
【38537】Re:料金計算マクロ ハト 06/6/6(火) 10:32 回答
【38602】Re:料金計算マクロ roxy 06/6/7(水) 9:29 お礼
【38608】Re:料金計算マクロ roxy 06/6/7(水) 10:40 質問
【38612】Re:料金計算マクロ ハト 06/6/7(水) 11:06 発言
【38532】Re:料金計算マクロ ichinose 06/6/6(火) 8:57 発言
【38533】Re:料金計算マクロ 訂正 ichinose 06/6/6(火) 9:10 発言
【38601】Re:料金計算マクロ 訂正 roxy 06/6/7(水) 9:27 お礼
【38624】Re:料金計算マクロ 訂正 ichinose 06/6/7(水) 16:02 発言
【38627】Re:料金計算マクロ 訂正 ハト 06/6/7(水) 16:23 発言
【38645】Re:料金計算マクロ 訂正 roxy 06/6/7(水) 17:58 発言
【38690】Re:料金計算マクロ 訂正 sin 06/6/8(木) 15:54 発言

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