常用的Visual Basic 格式化函数
- 格式：doc
- 大小：51.50 KB
- 文档页数：2
Visual Basic 格式化函数“Format”常用的日期和时间格式符
格式符 说明 应用（假定当前系统时间为：2006年8月10日星期四下午13:43:10） 结果
d 显示日期（1－31） Format(Now,”d”) “10”
ddd 用英文缩写显示星期（Sun-Sat） Format(Now,”ddd”) “Thu”
ddddd 显示完整日期 Format(Now,”ddddd”) 2006-8-10
w 显示星期代号（1－7，1是星期日） Format(Now,”w”) 5(星期四)
m 显示月份（1－12） Format(Now,”m”) “8”
mmm 用英文缩写显示月份（Jan-Dec） Format(Now,”mmm”) “Aug”
y 显示一年中第几天
（1－366） Format(Now,”y”) “222”
yyyy 四位数显示年份
（0100－9999） Format(Now,”yyyy”) “2006”
h 显示小时（0－23） Format(Now,”h”) “13”
m 放在h后显示分（0－59） Format(Now,”hm”) “1343”
s 显示秒（0－59） Format(Now,”s”) “10”
A/P或a/p 每日12时前显示A或a，12时后显示P/p Format(Now,”A/P”) “P”
dd 显示日期（01－31），
个位数用0补位 Format(Now,”dd”) “10”
dddd 用英文显示星期全名（Sunday-Saturday） Format(Now,”dddd”) Thursday
dddddd 用汉字显示完整日期 Format(Now,”dddddd”) “2006年8月10日”
ww 显示一年中第几个星期
(1－53） Format(Now,”ww”) “32”
mm 显示月份（01－12），
个位数用0补位 Format(Now,”mm”) “08”
mmmm 用英文月份全名（January-December） Format(Now,”mmmm”) “August”
yy 两位数显示年份（00－99） Format(Now,”yy”) “06”
q 显示季度数（1－4） Format(Now,”q”) “3”
hh 显示小时（00－23），
个位数用0补位 Format(Now,”hh”) “13”
mm 放在h后显示分（00－59），个位数用0补位 Format(Now,”hhmm”) “1343”
ss 显示秒（00－59），
个位数用0补位 Format(Now,”ss”) “10”
AM/PM或am/pm 每日12时前显示AM或am,12时后显示PM或pm Format(Now,”AM/PM”) “PM”
其他用法
1、更换窗体的图标
Private Sub Form_Load()
Me.Icon=LoadPicture(App.Path&”\11.ico”)
End Sub
2、打印窗体上的数据
Private Sub Form_Load()
Form1.PrintForm
End Sub
