1、如何載入
vb預設的控制項欄中是沒有dtpicker日期控制項的,新增過程:工程——部件——「microsoftwindows common controls-2.6.0」
——應用——確定
2、幾個主要屬性:
customformat
獲得或設定用於在控制項中格式化日期和/或時間的自定義格式字串
format決定是否使用標準或自定義格式顯示日期和時間。
取值為:
0 dtplongdate
1 dtpshortdate
2 dtptime
3 dtpcustom
maxdate
獲得或設定能被顯示或者通過控制項接受的最近日期
mindate
獲得或設定能被顯示或者通過控制項接受的最早日期。
value
獲得或設定當前日期
3、在sql中取值語句:
txtsql = "select * fromcancelcard_info where date<='" & 結束日期 & "'" &"and date>='" & 開始日期 & "'"
當然單單這樣很可能取不出來值;最大的因素就是日期的格式不統一。比如,yyyy-mm-dd 、 yyyy/mm/dd
所以,我們還需要轉換日期的格式:
1、format(dtpckstart.value,"yyyy-mm-dd")
2、利用convert函式轉換
示例**
private sub cmdfind_click()
dim startdate as string '用於存放開始時間
dim enddate as string '用於存放結束時間
startdate = format(dtpckstart.value, "yyyy-mm-dd")
enddate = format(dtpckend.value, "yyyy-mm-dd")
txtsql = "select * from cancelcard_info where date<='" & enddate & "'" & "and date>='" & startdate & "'"
'txtsql = "select * from recharge_info where date between '" & startdate & "'and'" & enddate & "'"
set mrc = executesql(txtsql, msgtext)
if dtpckstart.value > dtpckend.value then
msgbox "請選擇正確的時間範圍!", vbokonly + vbexclamation, "提示"
exit sub
else
if mrc.eof then
msgbox "沒有記錄!", vbokonly + vbexclamation, "提示"
myflexgrid.clear '清除myflexgrid 的內容
exit sub
else
with myflexgrid 'myflexgrid新增內容··
·end sub
時間控制控制項 DTPicker
datetimepicker控制項 datetimepicker控制項使您可以提供格式化的日期字段,使得進行日期選擇很容易。另外,使用者還可以從類似於monthview控制項的下拉式日曆介面中選擇日期。語法dtpicker 說明datetimepicker控制項,有兩種操作模式 下拉式日曆模式 預設...
VB中DTpicker日期控制項的用法
dtpicker是乙個vb中的乙個時間選擇控制項,方便好用。新增方法 工程 部件 控制項 microsoft windows common controls 2 6.0 可以通過format屬性設定日期格式,以便與資料庫等保持一致 若選擇自定義格式,則需設定customformat的值 需要注意的是...
VB 中DTpicker日期控制項的運用
1 如何載入 vb預設的控制項欄中是沒有dtpicker日期控制項的,新增過程 工具 部件 控制項 microsoft windows common controls 2.6.0 應用 確定 2 如何與資料庫中的日期格式相符合 dtpicker1.format dtpcustom dtpicker1...