玩轉控制項DTPicker

2021-06-18 15:24:46 字數 1691 閱讀 4163

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...