- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 日期的比较？谢谢 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4097)
-- 发布时间：2009/8/28 8:20:00
-- 日期的比较？谢谢
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
-- 发布时间：2009/8/28 8:20:00
--
这段代码出现错误！！！版主帮帮！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:doc1.rar |
-- 发布时间：2009/8/28 9:01:00
--
版主帮忙看看，谢谢
-- 发布时间：2009/8/28 9:44:00
--
Dim timeF As Date = TimeC.AddDays(7) \'加上7天
-- 发布时间：2009/8/28 9:51:00
--
Dim timeF As Data = TimeC.AddDays(7) \'加上7天
这句的目的是在当前日期上加上7天！！！
-- 发布时间：2009/8/28 9:52:00
--
如何实现？提示错误
-- 发布时间：2009/8/28 9:52:00
--
仔细看看应该是Data还是应该Date？
-- 发布时间：2009/8/28 9:54:00
--
我对楼主的敬仰,由于滔滔江水,连绵不绝.
-- 发布时间：2009/8/28 9:54:00
--
Dim timeF As Data = TimeC.AddDays(7) \'加上7天
红字应该是:Date
-- 发布时间：2009/8/28 10:13:00
--
If timeAA.Days > 7 then
MessageBox.Show("上报时间过于延后!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return \'终止代码的执行