' 呼叫 日期 eg 2月 14日 ==> 0214
' 11:56 2005/3/9
' CC.HSIEH
'dim
dim strm,strd,strToday,stry
call datt
msgbox strToday
'sub program
sub datt
stry = DatePart("yyyy",Date())
stry = mid(stry,3,2)
strm = DatePart("m",Date())
If len(trim(strm)) = 1 Then
strm = "0" & strm
end if
strd = DatePart("d",Date())
If len(trim(strd)) = 1 Then
strd = "0" & strd
end if
strToday = stry & strm & strd
end sub
沒有留言:
張貼留言