[今日の曜日を取得する]

現在のシステム日付を元に、曜日を表示します。

【ソースコード】

[tips0048.vbs]
Option Explicit

Dim strWeek     ' 曜日文字列

' 曜日の文字列をプログラムで定義
strWeek = Array("Sun", "Mon", "Tues", "Wednes", "Thurs", "Fri", "Satur")
WScript.Echo "今日は" & strWeek(WeekDay(Date()) - 1) & "day"

' ロケール情報を元に表示
WScript.Echo "短い形式では " & WeekdayName(WeekDay(Date()), True)
WScript.Echo "長い形式では " & WeekdayName(WeekDay(Date()), False)

【実行結果】

C:\> cscript //NoLogo tips0048.vbs
今日はWednesday
短い形式では 水
長い形式では 水曜日