- 浏览: 1526290 次
- 性别:
- 来自: 上海
文章分类
- 全部博客 (532)
- 软件设计师 (7)
- PSP (5)
- NET MD (9)
- Hibernate (8)
- DIY (51)
- Work (43)
- GAME (24)
- 未分类 (44)
- iPod (6)
- MySQL (39)
- JSP (7)
- 日语能力考试 (36)
- 小说 (4)
- 豆包网 (23)
- 家用电脑 (7)
- DB2 (36)
- C/C++ (18)
- baby (9)
- Linux (13)
- thinkpad (23)
- OA (1)
- UML (6)
- oracle (24)
- 系统集成 (27)
- 脑梗塞 (6)
- 车 (8)
- MainFrame (8)
- Windows 7 (13)
- 手机 (8)
- git (12)
- AHK (2)
- COBOL (2)
- Java (9)
最新评论
-
安静听歌:
... ...
UUID做主键,好还是不好?这是个问题。 -
lehehe:
http://www.haoservice.com/docs/ ...
天气预报 -
lehehe:
[url http://www.haoservice.com/ ...
天气预报 -
liubang201010:
监控TUXEDO 的软件推荐用这个,专业,权威.并能提供报警和 ...
(转载)Tuxedo中间件简介 -
tinkame:
Next[j] =-1 当j=0时;=Max{k|0<k ...
KMP字符串模式匹配详解
编程中常常会与时间打交道,VB编程自然也不例外。以下就谈谈我在这方面的一点经验。
VB中提供了很多变量类型,DATE型就是专门用了存储时间的。
1、DATE型变量及其相关函数。
在内部,一个Date占8个字节的内存,你可以方便地用它来存储日期和时间。给Date变量赋值是很容易的。但请保证输入顺序与系统默认的时间表示顺序相同。例如:
Dim d As Date
d = #5/23/99 11:45:34 AM#
DateSerial函数可以把年、月、日的数字组合成一个Date值。TimeSerial函数可把小时、分、秒的数字组合成一个Date值。且两函数可以叠加。
d = DateSerial(1999, 5, 23) + TimeSerial(11, 45, 34)
而DateValue 和TimeValue 函数则可将代表日期和时间的字符串转化为Date型,并且也可以叠加。
d = DateValue(“1999/ 5/ 23”) + TimeValue(“11: 45: 34”)
Format函数可按预定的格式显示或打印一个Date变量。如:
Print Format(d, “general date”) `99-5-23 11:45:34
Print Format(d, “long date”) `1999年5月23日
Print Format(d, “medium date”) `99-05-23
Print Format(d, “short date”) `99-5-23
Print Format(d, “long time”) `11:45:34
Print Format(d, “medium time”) `11:45 AM
Print Format(d,“short time”) `11:45
Format函数也允许你自己规定显示格式。如:
Print Format(d, “mmmm”) `may 产生日期中月份的英文
以以上日期为例,如想显示其中的一部分信息可使用以下函数:
Print Month(d) `5
Print Day(d) `23
Print Year(d) `1999
Print Hour(d) `11
Print Minute(d) `45
Print Second(d) `34
Print WeekDay(d)`1
Weekday 提供了一组内部常量,vbSunday代表1,直到 vbSaturday代表7。
Now 函数可返回今天的日期及时间。如:
Private Sub Form_Click()
Dim d As Date
d = Now
Print d
End Sub
灵活地应用以上的函数,可以大大地简化你的程序。例如想计算10000秒等于几小时几分几秒可写为:
Private Sub Form_Click()
Dim d As Date
d = TimeSerial(0, 0, 10000)
Print d
End Sub
结果为2:46:40。
2、与时间相关的常用控件。
Timer控件是一个奇特的控件。Timer 控件会在固定时间间隔中运行Timer事件。此间隔是由Interval属性决定的,其单位为千分之一秒。但不要以为将其值设为0事件就可不间断地运行了。结果恰恰相反,事件将一次也不运行。同时还要注意变量的声明。如:
Private Sub Timer1_Timer()
Dim a As Integer
a = a + 1
Print a
End Sub
Dim a As Integer
Private Sub Timer1_Timer()
a = a + 1
Print a
End Sub
试试看,其结果是完全不同的。
当需要用户输入时间时,为避免出现错误的时间,可以使用日历控件。它只允许用户在日历表中选择日期,避免了错误的发生。
3、记录时间的API函数。
GetTickCount Windows API函数可返回 Windows 启动以来消失的毫秒数。其精度高于VB的Timer 函数。且Timer 函数会在午夜清零,而GetTickCount 函数只有当机器连续使用49.7天后才返回零。这为我们编程提供了很大的方便。例如想知道你的电脑连续工作多久了,可新建一工程,然后添加以下代码:
Private Declare Function GetTickCount Lib “kernel32" () As Long
Private Sub Form_Load()
Dim d As Date
Dim t As Integer
Form1.Show
t = GetTickCount \ 1000
d = TimeSerial(0, 0, t)
Print d
End Sub
发表评论
-
(转)iPod classic 技术规格
2011-05-28 23:52 1067 -
(转)你所不知道的音频一分二转接口用途
2011-05-15 21:17 2651http://wenjiang2312.blo ... -
(转)Character Sets
2011-02-12 11:26 1012http://a4esl.org/c/charset.h ... -
(转)LinuxでWindowsのフォントを使用する
2011-02-12 11:25 978http://www.nurs.or.jp/~sugi/ ... -
(转)DVD转换RMVB格式的方法
2010-12-31 00:21 1551http://zhidao.baidu.com/ques ... -
(转)谨慎对待邮件中的附件和网页链接
2010-11-09 22:38 1427http://lihlii.posterous.com ... -
(转)医学界的一个惊天阴谋—近视手术
2010-09-27 12:54 1130http://woshao.com/article/6d1b7 ... -
MCAFEE杀毒软件无法完全卸载的解决方案
2010-04-22 09:25 1691http://think.lenovo.com.cn/ ... -
(转)SQL Server 與 Oracle 的各種版本功能、特性比較表
2010-03-29 17:01 1745http://blog.miniasp.com/post/ ... -
temp
2010-03-15 13:58 0笔记本的话看了一下,轻薄和高性能就是一对矛 ... -
(转)推荐几个常用的RapidShare搜索引擎
2010-03-08 17:23 167415 原文链接http://www.porta ... -
(转)Android来电通-AndroidCall 1.0
2010-03-04 16:09 0Android来电通-AndroidCall 1.0 作 ... -
(转)艾宾浩斯遗忘曲线——记忆与复习
2010-03-03 16:36 2285http://www.ebook99.com/blog ... -
(转)艾宾浩斯遗忘曲线复习计划表
2010-03-03 16:34 3215http://bbs.jiyifa.cn/read.ph ... -
dropbox invite
2010-02-05 17:08 0https://www.dropbox.com/referra ... -
(转)魔兽世界里所有钥匙的搜集或制作方法
2010-01-05 21:59 1353http://zhidao.baidu. ... -
如何分辨下載來的影片格式資訊
2009-12-12 12:03 832补课:如何分辨下載來的影片格式資訊1).CAM是用數碼攝 ... -
卡普家居 只与经典有染淘宝胡公子胡为
2009-11-12 12:44 834http://rate.taobao.com/user ... -
【淘色新闻】淘宝最牛掌柜,骂人骂出几万信用
2009-11-12 09:39 2557http://bangpai.taobao.com/group ... -
男性结扎十年性能力会丧失?
2009-09-04 00:56 0男性结扎十年性能力 ...
相关推荐
VB中常用的基本数据类型 数据类型 说明 字节数 取值范围 Integer Long Single Double String Boolean Date 整数型 单精度实数型 长整数型 双精度实数型 字符串型 逻辑型 日期型 2 4 4 8 2 8 看字符个数 -32768~...
VB包含2种函数:系统自定义的函数和用户自定义的函数、系统定义的函数称为内部函数或标准库函数,用户可以再程序中随时调用,常见的函数有数学函数、字符串函数、转换函数、日期和时间函数、随机函数及格式输出函数...
5.vb.net的Date数据类型 6.vb.net的Object数据类型 7.vb.net的用户自定义类型 8.vb.net的数组定义 9.vb.net的数组列表 10.vb.net的多维数组 11.vb.net类型转换函数 第三部分 visual basic.net的运算 程序设计时经常...
5.vb.net的Date数据类型 6.vb.net的Object数据类型 7.vb.net的用户自定义类型 8.vb.net的数组定义 9.vb.net的数组列表 10.vb.net的多维数组 11.vb.net类型转换函数 第三部分 visual basic.net的运算 程序设计时经常...
ScriptEngineBuildVersion 函数 返回使用中的脚本引擎的编译版本号。 ScriptEngineMajorVersion 函数 返回使用中的脚本引擎的主版本号。 ScriptEngineMinorVersion 函数 返回使用中的脚本引擎的次版本号。 Second...
long 长整型 & double 双精度 # string 串 $ boolean 逻辑型 date 日期型 类型符号 计算机程序设计-VB语言基础全文共30页,当前为第8页。 格式 变量声明 格式1 Dim 变量名 as 类型名 例: dim a as integer 又...
ScriptEngineBuildVersion 函数 返回使用中的脚本引擎的编译版本号。 ScriptEngineMajorVersion 函数 返回使用中的脚本引擎的主版本号。 ScriptEngineMinorVersion 函数 返回使用中的脚本引擎的次版本号。 Second...
5.4.2 Date和Time型数值的建立和提取158 5.4.3日期的运算160 5.4.4日期和时间值的格式选项161 5.5文件的处理161 5.5.1文件的管理162 5.5.2目录的管理163 5.5.3遍历目录中的文件163 5.5.4文本文件的处理166 5.5.5 ...
这些函数和对象都是VBA中非常重要的部分,我们需要了解它们的使用方法和功能。 在这个例子中,我们还使用了Error Handling机制,以便在程序出错时能够正确地处理错误。在这个程序中,我们使用了`On Error GoTo EH`...
日期或字符串的表达式 ) IsEmpty ( 变数 ) IsNull ( 变数 ) IsNumeric ( 表达式 ) LCase ( 字符串表达式 ) top Left( 字符串表达式 ,length) Len( 字符串表达式 变量 ) VBScript常用函数汇总:...
12.4.2 使用基本的字符串函数 211 12.5 使用日期和时间 214 12.5.1 理解Date数据类型 214 12.5.2 增加或减少日期或时间 215 12.5.3 确定两个日期或时间之间的间隔 216 12.5.4 获取日期的组成部份 216 12.5.5 ...
5.4.2 Date和Time型数值的建立和提取158 5.4.3日期的运算160 5.4.4日期和时间值的格式选项161 5.5文件的处理161 5.5.1文件的管理162 5.5.2目录的管理163 5.5.3遍历目录中的文件163 5.5.4文本文件的处理166 5.5.5 ...
4. C# 中没有全局变量或全局函数,取而代之的是通过静态函数和静态变量完成的。 数据类型 所有 C# 的类型都是从 object 类继承的。有两种数据类型: 1. 基本/内建类型 2. 用户定义类型 以下是 C# 内建类型的...
12.10. 与GROUP BY子句同时使用的函数和修改程序 12.10.1. GROUP BY(聚合)函数 12.10.2. GROUP BY修改程序 12.10.3. 具有隐含字段的GROUP BY 13. SQL语句语法 13.1. 数据定义语句 13.1.1. ALTER DATABASE语法 ...
12.10. 与GROUP BY子句同时使用的函数和修改程序 12.10.1. GROUP BY(聚合)函数 12.10.2. GROUP BY修改程序 12.10.3. 具有隐含字段的GROUP BY 13. SQL语句语法 13.1. 数据定义语句 13.1.1. ALTER DATABASE语法 ...
12.10. 与GROUP BY子句同时使用的函数和修改程序 12.10.1. GROUP BY(聚合)函数 12.10.2. GROUP BY修改程序 12.10.3. 具有隐含字段的GROUP BY 13. SQL语句语法 13.1. 数据定义语句 13.1.1. ALTER DATABASE语法 ...
也许有很多人还没有接触过SAFEARRAY类型的变量,SAFEARRAY实际上也是一个结构,大家可以参考MSDN,我也将在后面介绍它的具体使用方法。 用同样的方法创建DisConnect()接口 创建两个事件,FireCloseWinsock()响应...
errorCompoundVariable.java 错误使用局部变量示例 factorial.java 求阶乘 Fibonacci.java 求Fiblnacci数列 GcdAndGcm.java 求最大公约数和最小公倍数 errorInit.java 演示变量初始化错误的程序 integer...
12.10. 与GROUP BY子句同时使用的函数和修改程序 12.10.1. GROUP BY(聚合)函数 12.10.2. GROUP BY修改程序 12.10.3. 具有隐含字段的GROUP BY 13. SQL语句语法 13.1. 数据定义语句 13.1.1. ALTER DATABASE语法 ...
12.10. 与GROUP BY子句同时使用的函数和修改程序 12.10.1. GROUP BY(聚合)函数 12.10.2. GROUP BY修改程序 12.10.3. 具有隐含字段的GROUP BY 13. SQL语句语法 13.1. 数据定义语句 13.1.1. ALTER DATABASE语法 ...