日付チェックorセットモジュール 日付生成モジュール
日付チェックorセットモジュール 使い方
if Date_Moj("2003","8","1","check")
then flag=true
2月30日とかありえない日にちになってないかチェックする。
返り値：boolean
set_date = Date_Moj("2003","8","1","")
日付型にセット
sub_year ： 年
sub_month ： 月
sub_day ： 日
pattern ： "check"=チェックモード それ以外日付型にセット
使うときは
ゼロサプレスモジュール をする必要あり
<%
Function Date_Moj(sub_year,sub_month,sub_day,pattern)
ch_month = Head_Zero(sub_month, 2)
ch_day = Head_Zero(sub_day, 2)
if pattern = "check" then
ori_date = sub_year &"/"& ch_month &"/"& ch_day
new_date = DateSerial(sub_year,sub_month,sub_day)
if ori_date = Trim(new_date) then
Date_Moj = true
else
Date_Moj = false
end if
else
Date_Moj = DateSerial(sub_year,sub_month,sub_day)
end if
End Function
%>
日付生成モジュール 使い方
set_date = Get_Date_Wa("2003-08-01")
返り値： 2003年08月01日
str_date ： 2003-08-01 , 2003/08/01
<%
Function Get_Date_Wa(str_date)
temp = Mid(str_date, 1, 4) & "年" & Mid(str_date, 6, 2) & "月" & Mid(str_date,
9, 2) & "日"
Get_Date_Wa = temp
End Function
%>