📄 qqexp053.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>
<a name="dateadd">●DateAdd 日期加法得日期<br>
●用法：传回日期 = DateAdd(日期间隔种类, 增加量, 日期)
<dl>
Private Sub Command1_Click()
<dd>Print DateAdd("ww", 6, #2/28/99#)
</dl>
End Sub<br>
●输出结果：#4/11/99# ，1999-2-28六周后是1999-4-11。
<p></a><a name="datediff">●DateDiff 日期相减得数值<br>
●用法：传回值 = DateDiff(日期间隔种类, 增加量, 日期)
<dl>
Private Sub Command1_Click()
<dd>Print DateAdd("ww", #1/1/99#, #12/31/99#)
</dl>
End Sub<br>
●输出结果：52 ，1999-1-1至1999-12-31共有52周。
<p></a><a name="datepart">●DatePart 日期部份资讯<br>
●用法：传回值 = DatePart(日期间隔种类, 增加量, 日期)
<dl>
Private Sub Command1_Click()
<dd>Print DateAdd("q", #4/1/99#)
</dl>
End Sub<br>
●输出结果：2 ，1999-4-1是第2季。
<p>
<table width="100%" border="1">
<caption>日期间隔种类</caption>
<tr>
<td>yyyy
<td>年
<tr>
<td>q
<td>季
<tr>
<td>m
<td>月
<tr>
<td>y
<td>太阳日
<tr>
<td>d
<td>号
<tr>
<td>w
<td>星期
<tr>
<td>ww
<td>周
<tr>
<td>h
<td>时
<tr>
<td>n
<td>分
<tr>
<td>s
<td>秒
</table>
</a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -