EXCELVBAで週の計算

質問

ある日から今日まで何週目かを出したいのですが
Sub shuCal()
x = Date - 39862'2009/02/18から今日まで何日
x = Format(x, "##")
Range("a1")= x & "日です。"
End Sub
日数は計算ができるのですが、この間何週間かを知りたいのですが出す方法はどうすればいいですか？
よろしくお願いします。

回答No.2

hana-hana3 · ベストアンサー

DateDiff() 関数

http://www.intersystems.co.jp/support/cache_50/csp/rbas/rbas_fdatediff.html
http://www.moug.net/tech/exvba/0130001.htm

お礼

ありがとうございました。
良く分かる解説でした。

回答No.1

fujillin

日数まで求められているのなら、それを1週間の日数（=7）で割り算すれば、商：周の数、剰余：あまりの日数　になるだけだけど？

お礼

意外な所に気が付きませんでした。
ありがとうございました。