机房----四

上期机房：http://blog.csdn.net/wzcyamadie/article/details/52473784
十五：时间日期函数怎么计算差值？    
Text12.Text = DateDiff("n", CDate(2016-09-05), CDate(2016-10-20))   
关于cdate()里面要不要引号，如果有引号，则是后面时间减前面时间。如果没有引号是前面时间减后面时间，结果正负问题。
这个是日期计算，时间计算一样，把日期换成时间就好了。

前面的参数“n”   

n        意义

yyyy    年
q    季
m    月
y    一年的日数
d    日
w    一周的日数
ww     周
h    时
n    分钟
s    秒

详见http://blog.csdn.net/xujiaolf/article/details/8205569

十六：msgbox中怎么调用字符串       
 Dim kahao As String       

 kahao = Trim(mrc1.Fields(0))  

 If Not z > Val(mrcB.Fields(5)) Then       
         MsgBox "余额不足，" & kahao & "卡号强制下机。", vbOKOnly, "警告"       

         Text1.Text = Trim(mrc1.Fields(0))  '给text1一个卡号才能调用下机过程       

         Call Command2_Click    

  End If

这个看的懂吧，用&符号链接起来就行啦。不用多解释了。

十七：dtpicker控件的使用日期时间函数的使用。这个控件很方便，至于怎么添加我就不写了，自行百度吧。
首先说第一个常用功能，使用其“日期”直接添加控件，属性不必设置也能正常使用，这个简单，

对于dtpicker控件里的内容应该这么表示：dtpicker1.value     

 最想提到的是使用其“时间”功能，其实并不难，只是有些人不知道这个控件也可用来写时间。（时间和日期不一样哦）
想使用时间在代码里写：Dtpicker1.format = dtpTime这时候你发现此控件就可以些时间了，不再是选择日期的了。
关于format的属性："http://blog.csdn.net/wzcyamadie/article/details/52716869" 

十八：怎么清除combo中当前选中的值。而不是清除combo中所有值。
  If Combo1.Text <> "" Then
        Combo1.RemoveItem Combo1.ListIndex
    End If
    If Combo2.Text <> "" Then
        Combo2.RemoveItem Combo2.ListIndex
    End If
    If Combo3.Text <> "" Then
        Combo3.RemoveItem Combo3.ListIndex
    End If
    If Combo4.Text <> "" Then
        Combo4.RemoveItem Combo4.ListIndex
    End If


    这里之所以加if条件语句是因为combo控件中如果没有值运行Combo1.RemoveItem Combo1.ListIndex会报错。      
    而清除combo中所有值时用      Combo1.clear


在combo中添加内容两种方法
第一：combo1.additem“需要添加的内容”
第二：在属性框中的list中直接写，ctrl+回车 换行。


设置combo属性框只能选择不能编辑的属性是style   设置为 2-dropdown