该如何写!我怎么实现不了?
'日期时间
Function FoxCdate(str)
IF len(month(str))<2 THEN
m="0" & month(str)
Else
m=month(str)
End IF
IF len(day(str))<2 THEN
d="0" & day(str)
Else
d=day(str)
End IF
str=year(str) & "-" & m & "-" & d
FoxCdate=str
End Function
Function FoxDay(str)
IF len(month(str))<2 THEN
m="0" & month(str)
Else
m=month(str)
End IF
IF len(day(str))<2 THEN
d="0" & day(str)
Else
d=day(str)
End IF
str= m & "/" & d
FoxDay=str
End Function
Conn.Execute("Update info Set b=b-1 where DateDiff('D',fbsj,now())=1 and yz=1 and b>0")
Conn.Execute("Update info Set fbsj=now() where DateDiff('D',fbsj,now())>=1 and yz=1 and b>0")