机房收费系统之日历控件

二过程：

1日历控件

①这里首先要加上一个日历控件，以便于用户能够方便选择时间：

这里小编有一个非常低级的错误，那就是如下图：

错误的放置方式：

   

正确的放置方式：

②对日历控件的属性设置：format

format有四个属性：效果分别为下图

①

②

③

④

2：下面要对日期进行判断：

①起始日期不能大于终止日期---这里用到了DATe diff函数

 Dim date1, date2
    
    '不需要对两个日期进行判空，但要比较大小，开始不能大于结束日期
    
        date1 = DTPicker1.Value
        date2 = DTPicker2.Value
        If DateDiff("n", CDate(date1), CDate(date2)) < 0 Then
            MsgBox "起始日期不能大于终止日期，请重新选择日期！", vbOKOnly + vbExclamation, "提示"
            Exit Sub
        Else

②不能选择比当前更大的日期--

'日期不能超过now
        
            If DTPicker1.Value And DTPicker2.Value > Date Then
                MsgBox "小主，日子还没到呢", 48, "提示"
                DTPicker1.Value = Date
                DTPicker2.Value = Date
                Exit Sub
            Else

3确定好日期的选择，然后查询数据库，看选择的时间段内是否有数据：

txtSQL = "select * from recharge_info where date>= '" & DTPicker1.Value & "'and date<= '" & DTPicker2.Value & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
               
                If mrc.EOF Then
                    MsgBox "该时间段内没有数据！", vbOKOnly + vbExclamation, "警告"
                    Exit Sub
                Else

4若数据存在，则显示到MSHFlexGrid中：

 With MSHFlexGrid1
                        .Rows = 1
                        .CellAlignment = 4 '居中
                        .TextMatrix(0, 0) = "学号"
                        .TextMatrix(0, 1) = "卡号"
                        .TextMatrix(0, 2) = "充值金额"
                        .TextMatrix(0, 3) = "充值日期"
                        .TextMatrix(0, 4) = "充值时间"
                        .TextMatrix(0, 5) = "充值教师"

                    Do While Not mrc.EOF
                        .Rows = .Rows + 1
                        .CellAlignment = 4
                        .TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
                        .TextMatrix(.Rows - 1, 1) = mrc.Fields(2)
                        .TextMatrix(.Rows - 1, 2) = mrc.Fields(3)
                        .TextMatrix(.Rows - 1, 3) = mrc.Fields(4)
                        .TextMatrix(.Rows - 1, 4) = mrc.Fields(5)
                        .TextMatrix(.Rows - 1, 5) = mrc.Fields(6)
                        
                        mrc.MoveNext
                    Loop
                    End With
                mrc.Close

日期段分享到此~~

欢迎指出不足