Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61994 / 76732

←次へ　｜　前へ→


	【19348】Re:ここまでは考えたのですが・・・.

Hirofumi - 04/10/28(木) 20:15 -


	引用なし

	パスワード

>>　　　　'先頭日付に指定週分の日数+1を加算して週の先頭日付を返す
>>　　　　GetWeekDay = DateAdd("ww", lngWeek - 1, dtmTop) + 1
>　　　　　　　　　　　　　　　　↑　　　　
>　　　　　　　　　　　　　　　"WW"　これは、何でしょう？DateAddのヘルプを見ると、「追加する時間間隔を表す文字列式を指定します」となっていたのですが、意味がわかりません。確か本で「ちらっ」と見たような覚えがあるのですが・・・

本音を言うと私も、滅多にDateDiff、DateAddは使いません
今回は気が向いたので使っています
此れは、以下の様に書きなおしても、結果は同じだと思います

　　　　'先頭日付に指定週分の日数+1を加算して週の先頭日付を返す
　　　　GetWeekDay = (dtmTop + 7 * (lngWeek - 1)) + 1

日付（シリアル値）は、本来、日付部分だけならLong値、時刻を含めてDouble値なので
通常の計算で大抵済ましてしまいます

因みに、前のコードでは、WeekDay関数を使っていませんが

　　(日付の変数 - 1) Mod 7 + 1

でも、WeekDay関数と同じ結果が得られます

0 hits

▼

【19171】シートの値をtextboxへ取り込みたいので... ponpon 04/10/24(日) 15:33