📄 qqexp032.html
字号:
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html">
<meta name="Generator" content="千千VB站 VB函数清单">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>千千VB站 VB函数清单</title>
</head>
<body text="#000000" bgcolor="#FFFFFF" link="#2020A0" vlink="#FF0000" alink="#FF0000">
<marquee><b><blink><font color="#000000">变数转换成时间日期</font></blink></b></marquee>
<center>
<hr width="100%" szie="4">
</center>
<p>●DateValue 将字串转换成日期<br>
Dim Tmp As Date<br>
Tmp = DateVal("1999/5/1")→Tmp = 05/01/99<br>
Tmp = DateVal("99/5/1")→Tmp = 05/01/99<br>
Tmp = DateVal("99/05/01")→Tmp = 05/01/99<br>
Tmp = DateVal("05/01/99")→Tmp = 05/01/99<br>
Tmp = DateVal("05-01-99")→Tmp = 05/01/99<br>
Tmp = DateVal("05-01-1999")→Tmp = 05/01/99<br>
Tmp = DateVal("May/01/99")→Tmp = 05/01/99
<p>●DateSerial 将字数值换成日期<br>
Dim Tmp As Date<br>
Tmp = DateSeral(99,5,1)→Tmp = 05/01/99<br>
Tmp = DateSeral(1999,5,1)→Tmp = 05/01/99
<p>●TimeValue 将字串转换成时间<br>
Dim Tmp As Date<br>
Tmp = TimeVal("1:1:5")→Tmp = 01:01:05 AM<br>
Tmp = TimeVal("01:01:05")→Tmp = 01:01:05 AM<br>
Tmp = TimeVal("13:01:05")→Tmp = 01:01:05 PM<br>
Tmp = TimeVal("1:1:5 PM")→Tmp = 01:01:05 PM<br>
Tmp = TimeVal("PM 1:1:5")→Tmp = 01:01:05 PM<br>
Tmp = TimeVal("1:1:5 下午")→Tmp = 01:01:05 PM<br>
Tmp = TimeVal("下午 1:1:5")→Tmp = 01:01:05 PM
<p>●TimeSerial 将字数值换成日期<br>
Dim Tmp As Date<br>
Tmp = TimeSeral(1,1,5)→Tmp = 01:01:05 AM<br>
Tmp = TimeSeral(13,1,5)→Tmp = 01:01:05 PM<br>
<br>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -