- Function FormateDate()
- datestr = Split (Date,"/")
- If Len(datestr(1)) = 1 Then
- months = "0"&datestr(1)
- End If
-
- If Len(datestr(2)) = 1 Then
- dates = "0" &datestr(2)
- End If
- FormateDate = datestr(0) & months & dates
- End Function
复制代码 输出当前年四位数、月日各两位数格式的数字,如“20120920”
现在问题是在1-9日可以正常输出,在10-31日,只输出年、月数字,上例的话,它只输出“201209”。
请行家帮忙修正一下。 |