1.08.2011

Script for printing system date in Samurize

Samurize 日付表示スクリプト

月と曜日を英語で表示したいが、ロケールが日本であると日本語表記になってしまう。
験にロケールを変えてみたがブラウザ等で細かい不都合が出てきたので元に戻す。
止むを得ず、英語表記を行うためのスクリプトを作成。

FormatDate.vbs

   1: Function GetMonth()

   2:   dtm = Now

   3:   GetMonth = Array( "", "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" )( Month( dtm ) ) & " " & Right( "0" & Day( dtm ), 2 )

   4: End Function

   5:  

   6: Function GetWeekday()

   7:   GetWeekday = Array ( "", "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" )( Weekday( Now ) )

   8: End Function

0 件のコメント:

コメントを投稿