玩转控件DTPicker

 

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