Dim timeC As Date =Date.Today( )
Dim timeD As Date = e.Form.Controls("报送时间").Value
Dim timeE As Date = e.Form.Controls("审核时间").Value
Dim timeF As Date = TimeC.AddDays(7) '加上7天
Dim timeAA As TimeSpan = timeF – timeD
Dim timeBB As TimeSpan = timeE – timeD
IF timeD < timeC then
MessageBox.Show("上报时间不能小于当前时间!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
If timeAA.Days > 7 then
MessageBox.Show("上报时间过于延后!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
If timeE < timeD then
MessageBox.Show("审核时间不能小于上报时间!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
If timeBB.Days > 18 then
MessageBox.Show("审核时间与上报时间间隔过长!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
End if
End if
End if
End if
加好友 
发短信
Post By：2009/8/28 10:13:00 [只看该作者]
