摘要:
'========月日不足两位补零函数==================function FillZero(str) ttt=str if len(str)=1 then ttt="0" & str end if FillZero=ttt end function function ConvertDate(tDate) ttt=tDate if isdate(tDate) then ttt=FillZero(month(tDate)) & "/" & FillZero(day(tDate)) end if Convert 阅读全文
posted @ 2011-03-24 18:04
moretop
阅读(662)
评论(0)
推荐(0)

浙公网安备 33010602011771号