那么 ymd2 与 ymd3 将计算错误.
ymd1 = yyy &"年" &mmm &"月" &ddd &"日"
ymd2 = yyy &"年" &mmm &"月" &ddd - 1 &"日"
ymd3 = yyy &"年" &mmm &"月" &ddd - 2 &"日"
s1 = 0
s2 = 0
s3 = 0
strConnAcc = "select * from 黄色高温预警 where 年月日= '" &ymd1 &"'and 站点='" &righ(ii) &" '"
RsAcc.Open strConnAcc, ConnAcc, 1, 1
If RsAcc.RecordCount >0 Then ' 第一天,如果记录存在
s1 = 1
End If
RsAcc.Close
strConnAcc = "select * from 黄色高温预警 where 年月日= '" &ymd2 &"'and 站点='" &righ(ii) &" '"
RsAcc.Open strConnAcc, ConnAcc, 1, 1
If RsAcc.RecordCount >0 Then '第二天,如果记录存在
s2 = 1
End If
RsAcc.Close
strConnAcc = "select * from 黄色高温预警 where 年月日= '" &ymd3 &"'and 站点='" &righ(ii) &" '"
RsAcc.Open strConnAcc, ConnAcc, 1, 1
If RsAcc.RecordCount >0 Then '第三天,如果记录存在
s3 = 1
End If
RsAcc.Close
这里 通过 s1 s2 s3 来 判断 ss 最后的结果.
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)