Dim d As Date = #04/21/2015#Dim ics() As String = {"M","F","W","APR","F","S","SE","AP","N","T","J","TW"} '定义12个月对应英文
Dim s As String = Format(#4/21/2015#,"dd@yyyy")
s = s.Replace("@", ics(d.Month-1))
msgbox(s)
加好友 
发短信
Post By：2015/5/3 21:19:00 [显示全部帖子]
