说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB中的时间处理问题

HTML文档下载 WORD文档下载 PDF文档下载
VB中的时间处理问题
作者:罗程
编程中常常会与时间打交道,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
《移动App测试实战》作者邱鹏:我在测试过程中遇到的那些坑 Rust一周精彩回顾:《高级Rust编程语言》、新增13名贡献者 来自Sony Morpheus的开发灵感: 如何打造逼真的VR游戏? 如何像巫师那样隔空操作——聊聊迷你雷达的原理和应用 等你来战——IBM Cloudant数据库开发大赛火热开启! 《近匠》360加固保,应用安全攻防的核心实现 DEFCON黑客大会抢鲜看:你所不知道的黑客大对决 MDCC2015中国移动开发者大会启动 七场专题技术论坛公布 【CTO讲堂】如何构建高性能网络服务平台及生态系统? mysql备份数据库批处理 《近匠》Remix周哲,让Android运行在“电脑”上! TIOBE 2015年8月编程语言排行榜:Java第一,Objective-C跌出前五 Oculus PC SDK 0.7版即将发布,含新Direct Driver Mode 【CTO讲堂】NoSQL对未来大数据发展的意义何在? 从Java转向Go——AeroFS的一段奇妙之旅 谷歌重组建母公司Alphabet,新来的CEO Sandar Pichai是什么来头? 《近匠》专访AllSeen联盟主席薛国栋:从通讯层为物联网去中心化 Android性能优化典范(三) 杭州兆合陈洋:微气象大民生,气象微信平台研发探索 【探秘ES6】系列专栏(十):更深入了解生成器 【探秘ES6】系列专栏(十一):类语法 《近匠》专访Depth VR:浅析VR交互技术选型中的瓶颈与机遇 【CTO讲堂】将“简单快速”渗透到移动开发测试每个环节,从fir.im团队说起 全球开发者报告:Windows Phone已死,Windows 10长存 苹果官方博客:从SDK详说Swift代码的改变 Espresso实战:快速的Android UI自动化测试 《Java并发编程的艺术》作者方腾飞:感谢Java,带我一路前行! Crystal:一个类似于Ruby语法的编程语言 谁将是传统密码的终结者 专访民生银行:CPOS平台如何从线下布局移动支付 MathWorks程邺:机器人时代未来已来 程序员难到都感情不顺???? IE WebControls 哪里下载? 高分求书--1000 请问谁有The Design Patterns (Java Company)的程序代码? 请问有关于uml建模实例分析的好书吗? 我想下载一个好用的Webform TreeView 控件怎么办? 请帮帮忙吧! 处理字符串以修改数据库 我在恢复备份的时候怎么会这样? 关于SQL*Plus——请大虾指点,//bow 用Hashtable class怎么定义表上限? 如何在不想安装MSSQL的仅连接或客户端连接来连连接数服务器?? 问一下连接paradox数据库的问题 闷郁..散分100. 菜鸟请教!!急 今天因为一个已结帖的帖子结识一个好友rocksoft,为了表示庆祝特地散分!请斑竹放行! 闷郁~散分 c++中的friend关键字在c#中有没有什么替代的 请问IMG中的ALT属性的意义和作用 float型的问题(在线等待) 关于AnsiString类别字符串传送至PB8 ☆☆内存泄漏的检测问题★★ i installed an english system, but it doesn't surport chinese input, and many words are displayed incorrectly,how to do with it 有兴趣的可以看看,测一下自己的水平,我公司的Oracle试题一? 代理服务器XP上安装了两块网卡,上网如何设置? 请教使用CFile类的一个小问题? 编辑框简单问题 请问那里有RFC下? 查看隐藏文件的选项不见了怎么办? 怎样检查硬盘坏道? 有兴趣的可以看看,测一下自己的水平,我公司的Oracle试题二? 关于数据库访问的问题 资源文件的问题,MYBMP1 IS NOT FOUND 有关WINAMP 的问题? 处理字符串以修改数据库 开机显示the secondry IDE channel no 80 cable …… <input type=file name=pic>如何取值,如何设置初始值???? 么样判断一个客户机是否能够连上服务器上数据库,在线等待 在RAVE中如何加上总页数和当前页数? 有缺邮箱用的吗>?现在有了哦,穷人快来啊。。哈哈,我也是其中一个。 请问一个 应用程序登陆SQl Server 时密码的问题? 菜鸟提问! Outlook Express邮件丢失 非典嚣张的日子里的北京(希望惊起大家对SARS的关注)!!! 问一个简单的概念性问题,分却很多.......还可加哦 一个数据映射错误 关于进程通讯的问题 问一个简单的概念性问题,分却很多.......还可加哦 哪里可以找到关于OA方面的资料?越多越好,100分送上 高手请进,怎么监测到一个文件将被覆盖 请问如何屏蔽F1查看帮助的功能? 高手请进,怎么监测到一个文件将被覆盖 1摩尔1/2的浓硫酸的基本单元怎样表示 仙客来怎样繁殖 什么物质用来检验物质中是否含有水? 光纤是不是晶体? 如何利用猪粪 碱性锌锰电池中负极锌怎么失电子,是因为跟氢氧化钾反应吗? 为什么火柴头竖直向上火柴梗不易燃着而火柴头向下火柴梗容易燃着 龙之谷物理剑圣刷图的话主武器用什么最好?我是物理剑圣,想请问下龙之谷里的大哥.同样加10的狮子剑和破坏剑,哪个加的攻击最多,我现在拿的是加10的暗剑,附魔垃圾,是用消亡洗掉再附啊,还 锌银电池的组成是 A.锌充当负极 B.KOH是电解质 C.Ag2O是正极 D.以上都对 为什么火柴点着后火柴头向上就不容易燃烧? 猪粪如何二次利用 解释一下大豆油的机械压榨 也就是所谓的物理压榨的问题 喜欢天然绿色食品的看看今天看见一则百度提问 回答者说物理压榨出来的也是毛油 浑浊不能吃还要经过精炼?你见过物理压榨的油 求深奥的一句话. 自体活细胞是怎么抗衰老的? more香烟杀精吗?我男的,有害处吗.详细点 为什么火柴划燃后将火柴头向下竖直更容易继续燃烧? 英语翻译 More是什么烟呢?.More是什么烟?. 中文是说的什么呢?.价钱多少?. 有图么?多介绍下吧.. 可以把时间比做什么(写一句话)要深奥一点的! 龙之谷剑圣物理剑圣加点.求最新最实用的物理剑圣~着重于PK 求高手指教.麻烦哪些经常混PK场的指教下. 在自己土地上的养猪场政府拆迁如何赔偿 纸上谈兵历史详情 龙之谷剑圣转转器系剑圣好还是转物理剑圣好?还是双修好?全面一点 癌细胞细胞膜两侧镶嵌的糖蛋白数量比正常的体细胞大量减少,这句话对吗? at 培养细胞的类型有几类?有什么特点? 芒果用斯瓦希里语翻译,芒果怎么说帮下我吧 at birth是什么意思? 鸟类饲养可分哪几类 这句话“我的座右铭是,不择手段也要活下来”地道的英文怎么翻译? at a birth和at birth的区别给 四羟基合铝酸钠有共价键吗?结构怎么样? 英语翻译要准确的翻译啊.只要这一句话的就可以了,别长篇大论啊! butchered at 犬类一年内可以繁殖几次 铸件气缸座硬度分布均匀么就是压缩机的气缸座,是连杆曲轴式的. seperated at 枝角类的繁殖方式 气缸的最高频率可以达到多少? 一问一答.答:the bench is most beautiful at sunset.问是什么?是when开头 苍蝇是否爱干净 摩托车汽缸头硬度过低会有哪些缺陷 这里的off the Brandon Bass scored 13 off the bench for the Mavericks 谁了解Amway安利? 为达目的不择手段为什么我总是为了自己想要得到的东西可以不惜牺牲一切去得到?如果得不到的话我会崩溃,整天整夜想着那件事.我是个绝对的完美主义者,请问这是强迫症状吗、应该怎么办 at the 四羟基合铝酸钠的性质? 为达目的 不择手段有什么类似的成语! 为什么关火的一瞬间水壶冒水蒸气更多?燃气灶烧开水,水壶冒气时表示水开.但为什么关闭燃气的一瞬间,水壶冒的水蒸气却一下子更多?请从科学角度给出合理的解释, amway安利到底可以做吗? “要达到目的,就要不择手段!”英语如何说? 谁给我来几句深奥的话如:我知道我无知生存还是毁灭,这是一个问题谁是疯子,这是一个问题 多肉景天树有毒吗 为什么苍蝇爱搓手搓脚的? 说一句你认为很深奥的话. 被毒死的牛它的肉有没有毒? 核桃油怎么吃 一摩尔水代表什么意义? 酯化反应的现象 10题规律题 10题方案设计 要求有一定难度...最好有解答. 永康两家企业排污被当地镇政府责令停产中国军工产业向全球进军 开始与西方竞美媒称土购中国导弹或是把特洛伊木马塞德国就默克尔手机或被美监听一事召见美美国情报机构被爆监听35名国际政要电俄要求美与“俄机构在美招募间谍”指控习仲勋在洛阳:要求管好部队纪律(组图广州公务员2012年人均工资加补助为专家:我国在售5大类17种转基因生物美方称无迹象显示两美国人遭绑架是恐怖中国画家潘义奎获艺术界\"诺贝尔\"土耳其已用中国导弹试验 硬顶美国别买美方称无迹象显示两美国人遭绑架是恐怖俄要求美与“俄机构在美招募间谍”指控美方称无迹象显示两美国人遭绑架是恐怖黎巴嫩军方破获一武装团伙纽约黄金期价24日收高美国民警卫队设施内发生枪击案两人受伤肯尼迪遇刺50周年拍卖会举行 凶手婚国际反恐会议在伊斯坦布尔召开纽约油价24日小幅反弹霍城县职业技术学校“订单式”培训开启焉耆县编印党群路线教育应知应会手册深焉耆县第二届农情发布会服务三农城市发展应向畸形繁荣说“不”原标题:国内成品油价今迎调价窗口 搁记者调查:违章电动自行车成“马路杀手美国1月份小企业信心微升高油价停车费致拼车出行火爆 拼车协议海南高职对口单独考试3月报名 4月1海南中小学15日开学 教育厅要求各校娱乐圈打假:“中国雨人”是否天才 李明星秀恩爱:伊能静秦昊牵手 张艺谋夫俄货运飞船完成使命坠入太平洋江西11名干部违纪违规被通报何耀灵、邝光华、谢添华被罢免赣州市人春节后南昌部分单位员工离职 专家提醒南昌:轿车凌晨“滑冰” 翻下立交桥(新建县:舞起千米“板凳龙” 新春祝福购农机 备春耕“感动中国2013年度十大人物”颁奖天寒地冻 倍感温暖(图)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘