IsDate を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはIsDate です。
<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>IsDate関数で変換可能か調べ、CDate関数で変換、DateAddで遊ぶ</title>
</head>
<body>
<h2>IsDate関数で変換可能か調べ、CDate関数で変換、DateAddで遊ぶ</h2>
受取ったパラメータは<br>[<%=Request.QueryString("DATA")%>]<br>
<%
'IsDateで変数をチェックする
If IsDate(Request.QueryString("DATA")) = True Then '変換可能な時
DATA = CDate(Request.QueryString("DATA"))
Response.Write "CDateの結果は" & DATA & "です<br>"
Response.Write "３日後は、" & DateAdd("d", 3, DATA) & "です<br>"
Response.Write "１ヶ月前は、" & DateAdd("m", -1, DATA) & "です<br>"
D = Request.QueryString("DATA") 'パラメータをそのまま
Else '変換不可の時
Response.Write "を日付に変換することはできません"
D=Date() '現在日付を代入
End If
%>
<HR>
<FORM ACTION="test048-2.asp" METHOD="GET">
変換したい日付文字列
<INPUT TYPE="text" SIZE="30" NAME="DATA" VALUE="<%=D%>">
<INPUT TYPE="submit" VALUE="変換テスト"><br>
↑いろいろと遊んでみてください↑
</FORM>
<br>
</body>
</html>
| 最近発売の雑誌を紹介する
女性誌を紹介します。数少ない女性プログラマー向けの広告でした(笑)
- 月刊 EXILE (エグザイル) 2008年 10月号
- 25ans (ヴァンサンカン) 2008年 10月号
- CLASSY. (クラッシィ) 2008年 10月号
- ELLE JAPON (エル・ジャポン) 2008年 10月号
- FEMALE (フィーメイル) 2008年 10月号
- GISELe (ジゼル) 2008年 10月号
- HARPER'S BAZAAR (ハーパース バザー) 日本版 2008年 10月号
- high fashion (ハイファッション) 2008年 10月号
- LUIRE(ルイール) 2008年 10月号 : LUIRE編集部
|