fillzero 関数: 月と日の 2 つの日付が奇数の場合、先頭に 0 を追加します。たとえば、2011 年 3 月 3 日の一般的な形式は、2011-3-3 を関数によって 2011-03-03 のような形式に変換します。次のようにコードをコピーします。
パブリック関数 fillzero(l1)
len(l1)=1の場合
フィルゼロ=0&l1
それ以外
フィルゼロ=l1
終了する場合
終了関数
使用例:
次のようにコードをコピーします。
応答年(現在)&月(現在)&日(現在) 結果:201116
応答年(現在)&fillzero(月(現在))&fillzero(日(現在)) 表示結果：20110106
長い日付形式と短い日付形式の表示を制御する方法:
短い日付:FORMATDATETIME(DATE,vbShortDate)
長い日付:FORMATDATETIME(DATE,vbLongDate)
英国 (米国) ロケールに基づいて日付を表示する場合、日付は次の形式で表示されます。
短い日付:97/7/9
長い日付:1997 年 7 月 9 日水曜日
注: 短い日付形式は、書式設定を行わない場合とまったく同じように表示されます。デフォルトでは、日付は短い日付形式で表示されます。
FORMATDATETIME() 関数を使用して時間を操作する方法:
ショートタイム:FORMATDATETIME(TIME,vbShortTime)
長い時間:FORMATDATETIME(TIME,vbLongTime)
英国 (米国) ロケールで時刻を表示する場合、時刻は次のようにフォーマットされます。
ショートタイム:03:20
ロングタイム:3:20:08 AM
次のようにコードをコピーします。
<%
関数 FillZero(str)
ttt=str
len(str)=1 の場合
ttt=0&str
終了する場合
フィルゼロ=ttt
終了関数
'変換日、0 から 1 桁を追加 2003-1-2 --> 2003-01-02
関数 ConvertDate(tDate)
ttt=t日付
if isdate(tDate) then
ttt=年(tDate) & - & FillZero(month(tDate)) & - & FillZero(day(tDate))
終了する場合
変換日=ttt
終了関数
'日付と時刻の文字列を入力し、それを大人用の 4 桁の数字に変換し、残りの 2 桁を新しい日付と時刻の文字列に変換します
関数 ConvertDateTime(tDateTime)
ttt=t日付時刻
if isdate(tDateTime) then
ttt=年(tDateTime) & - & FillZero(month(tDateTime)) & - & FillZero(day(tDateTime)) & & FillZero(cstr(hour(tDateTime))) & : & FillZero(cstr(分(tDateTime)) ) & : & FillZero(cstr(秒(tDateTime)))
終了する場合
ConvertDateTime=ttt
終了関数
%>