标题：日期的比较？谢谢

 

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 Data = 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

 

这段代码出现错误！！！版主帮帮！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:doc1.rar

版主帮忙看看，谢谢

Dim timeF As Date = TimeC.AddDays(7)   '加上7天

Dim timeF As Data = TimeC.AddDays(7)   '加上7天
这句的目的是在当前日期上加上7天！！！

如何实现？提示错误

仔细看看应该是Data还是应该Date？

我对楼主的敬仰,由于滔滔江水,连绵不绝.

Dim timeF As Data = TimeC.AddDays(7)   '加上7天
红字应该是:Date

 

If  timeAA.Days  > 7  then

MessageBox.Show("上报时间过于延后!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行