|
こんにちは
▼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)
として試してみてください
|
|