date()-dateserial(2002,12,0)
或者
dim DteX as date
dim Strdate as string
dim LngDate as Long
strdate=left("20021209",4) & "-" & mid("20021209",3,2) & "-" & right("20021209",2)
DteX=strdate
LngDate=date()-DteX
或者
dim DteX as date
dim Strdate as string
dim LngDate as Long
strdate=left("20021209",4) & "-" & mid("20021209",3,2) & "-" & right("20021209",2)
DteX=strdate
LngDate=date()-DteX
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货