Excel VBA質問箱 IV

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

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


42136 / 76732 ←次へ | 前へ→

【39667】Re:時刻の変換
回答  ハト  - 06/6/28(水) 17:05 -

引用なし
パスワード
   こんにちは

▼aaa さん:
>最初の質問とちょっと内容が変わってしまいましたので質問を少し変えます。
>
>B13に30分、B16に120分と入力されています。
>Aには日付と時刻を足したものが入っています。
>これを数値として「30」「120」と認識させ、DateAdd関数を使ってその分を足したいのです。
>
>Dim hd_split As Date
>Dim hn_split As Date
>dim A as Date
>  hd_split = TimeValue(ws.Range("B13").Text)
>  hn_split = TimeValue(ws.Range("B16").Text)
>  A = DateAdd("n", hd_split, A)
>  A = DateAdd("n", hn_split, A)
>
>30分の方はうまくいくのですが、120分の方はうまくいきません。
>どうすればいいのでしょうか?
>質問の内容が変わってしまいましてすいません。
>よろしくお願いします。

そもそも120という値は TimeValue関数 では扱えません
DateAdd関数では

  A = DateAdd("n", 120, A)

のような指定でも処理できますから

>  hn_split = TimeValue(ws.Range("B16").Text)
       ↓
  hn_split = Val(ws.Range("B16").Text)

として試してみてください

1 hits

【39662】時刻の変換 aaa 06/6/28(水) 16:15 質問
【39663】Re:時刻の変換 だるま 06/6/28(水) 16:31 回答
【39665】Re:時刻の変換 aaa 06/6/28(水) 16:47 質問
【39667】Re:時刻の変換 ハト 06/6/28(水) 17:05 回答
【39711】Re:時刻の変換 aaa 06/6/29(木) 14:34 お礼

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