Dim d As Date = Date.nowDim s As StringIf d.Hour >= 12 Then s = "下午"Else s = "上午"End Ifs = Format(d,"yyyy年MM月dd日") & " " & soutput.show(s)
加好友 
发短信
Post By：2011/12/27 22:05:00 [显示全部帖子]
