📄 qqexp046.html
字号:
<html>
<head>
<title>千千VB站 VB函数清单</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body>
<marquee><blink><b>资料格式化输出</b></blink></marquee>
<hr>
●有网友问：为什么用Format("A:")，VB却告诉我错误，也无法对软碟机格式化？<br>
Ans：VB所提供的Format函数并不像DOS的Format有相同的功能，VB的Format函数是把资料包裹成指订的样式输出。<br>
●用法：传回数组 = Format(资料, 格式)<br>
●简单范例。
<dl>
Private Sub Command1_Click()
<dd>Print Format(1234, "0#####")
</dl>
End Sub<br>
●结果Prt打出："001234"
<p>
<dl>
Private Sub Command1_Click()
<dd>Print Format(1234, "(0#####)")
</dl>
End Sub<br>
●结果Prt打出："(001234)"
<p>
<dl>
Private Sub Command1_Click()
<dd>Dim TlPrice As Long
<dd>TlPrice = TtPrice + 430
<dd>TlPrice = TtPrice + 120
<dd>TlPrice = TtPrice + 230
<dd>Print Format(TtPrice, "总价是0#####元")
</dl>
End Sub<br>
●结果Prt打出："总价是000780元"
<p>
<dl>
Private Sub Command1_Click()
<dd>Dim TlPrice As Long
<dd>TlPrice = TtPrice + 430
<dd>TlPrice = TtPrice + 120
<dd>TlPrice = TtPrice + 230
<dd>Print Format(TtPrice, "总价是#####0000元")
</dl>
End Sub<br>
●结果Prt打出："总价是0780元"
<p>
<dl>
Private Sub Command1_Click()
<dd>Dim MyTime As String
<dd>MyTime ="12:5:6"
<dd>Print Format(MyTime, "hh:mm:ss")
</dl>
End Sub<br>
●结果Prt打出："12:05:06"
<p>
<dl>
Private Sub Command1_Click()
<dd>Dim MyTime As String
<dd>MyTime ="12:5:6"
<dd>Print Format(MyTime, "AMPM hh:mm:ss")
</dl>
End Sub<br>
●结果Prt打出："PM 12:05:06"
<p>
<dl>
Private Sub Command1_Click()
<dd>Dim MyTime As String
<dd>MyTime ="77/10/18"
<dd>Print Format(MyTime, "倩倩的生日 yyyy/mm/dd")
</dl>
End Sub<br>
●结果Prt打出："倩倩的生日 1977/10/18"
<p>
<table>
<caption>格式说明</caption>
<tr>
<td>#
<td>显示数字
<tr>
<td>0
<td>在#前未满#的位数都补0、在#后未满0位数都补0
<tr>
<td>y
<td>显示年
<tr>
<td>m
<td>显示月或分
<tr>
<td>d
<td>显示日
<tr>
<td>h
<td>显示时
<tr>
<td>s
<td>显示秒
<tr>
<td>:
<td>时间分隔
<tr>
<td>/
<td>日期分隔
<tr>
<td>AMPM
<td>显示是上午或下午
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -