プロが教える店舗&オフィスのセキュリティ対策術

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

A 回答 (2件)

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

    • good
    • 0
この回答へのお礼

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

お礼日時:2009/05/28 21:46
    • good
    • 0
この回答へのお礼

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

お礼日時:2009/05/28 21:44

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!