指定日付の週を表示する

サンプルソース

' 現在日時を変数にセット
strNow = Now()

' 週を表示
Cells(1,1) = Weekday(strNow)

' 週(漢字)を表示
Cells(1,1) = WeekDayName(Weekday(strNow))

解説

Weekday()は指定日付の週を数字(1:日曜、2:月曜、・・・、7:土曜)で、
WeekDayName()は週を漢字(日曜など)で取得します。




日付操作



Excel VBA講座
VBScriptサンプル集

データ型操作
Copyright (C) ExcelVBA@Workshop All rights reserved.