主题：[求助]求助关于日期判断的问题

表名：扣款表

此主题相关图片如下：1.jpg

确定按钮的功能我已经实现，我现在就是不知道一个验证方法该怎么写。。。。情况是这样的，输入金额和日期后，单击确定，然后扣款表就会为“卡号表”中所有卡进行扣款，同时“状态”会变更为“月扣”。重点来了，我希望每次单击确定按钮的时候就验证一下，凡是相对应卡号在当年当月已经做过“月扣”处理的，

MessageBox.Show“已经在该月为该卡做过扣款处理”。   我完全不知道怎么把“2013-06-04”分解，提取出2013年和   06月来验证。求大神帮帮我。我确定按钮的代码如下，不知道IF 后代码怎么写……

Dim je As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim rq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

If “？？？？？？？？" Then
Messagebox.show("该月已经扣款!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
Else
For Each r As DataRow In DataTables("car").DataRows
    Dim dr As DataRow = DataTables("规费记录").addnew
    dr("卡号")=r("卡号")
    dr("车牌号")=r("车牌号")
    dr("车主")=r("车主")
    dr("扣款日期")=rq.Value
    dr("扣款金额")=je.Text
    dr("状态")="月扣"
Next
End If
Messagebox.show("扣款成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)