日付入力用 ActiveX コントロール ( DTPicker )

  サンプルコード



  
<PRE>
<%
if Request.QueryString("Date") = "" then
	strDate = Date()
else
	strDate = Request.QueryString("Date")
end if

Response.Write Request.QueryString("Date") & vbCrLf
Response.Write CLng(DateValue(strDate)) & vbCrLf
%>
</PRE>
<FORM>
<OBJECT
	NAME=Date
	CLASSID='CLSID:20DD1B9E-87C4-11D1-8BE3-0000F8754DA1'
	style='width:120;height:26'
>
	<PARAM name="CurrentDate" value="<% = CLng(DateValue(strDate)) %>">
</OBJECT>
<br>
<INPUT type=submit value="送信">
</FORM>
  

  
CLng(DateValue(strDate)) は CLng(CDate(strDate)) でも同じ結果です
  



  他のパラメータ



  
<PARAM NAME="_ExtentX" VALUE="2646">
<PARAM NAME="_ExtentY" VALUE="1323">
<PARAM NAME="_Version" VALUE="393216">
<PARAM NAME="MousePointer" VALUE="0">
<PARAM NAME="Enabled" VALUE="1">
<PARAM NAME="OLEDropMode" VALUE="0">
<PARAM NAME="CalendarBackColor" VALUE="-2147483643">
<PARAM NAME="CalendarForeColor" VALUE="-2147483630">
<PARAM NAME="CalendarTitleBackColor" VALUE="-2147483633">
<PARAM NAME="CalendarTitleForeColor" VALUE="-2147483630">
<PARAM NAME="CalendarTrailingForeColor" VALUE="-2147483631">
<PARAM NAME="CheckBox" VALUE="0">
<PARAM NAME="CustomFormat" VALUE="">
<PARAM NAME="DateIsNull" VALUE="0">
<PARAM NAME="Format" VALUE="662831105">
<PARAM NAME="UpDown" VALUE="0">
<PARAM NAME="MaxDate" VALUE="2958465">
<PARAM NAME="MinDate" VALUE="-109205">
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ