摘要:
'========月日不足两位补零函数==================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 阅读全文