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

计算从开机到现在用了多少秒-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
计算从开机到现在用了多少秒-VB资料

下面的程序与标准的Timer控件相比,有两个同的地方:

1。该程序计算的起点是系统启动的时间,而不是从午夜开始算起。如果你想从午夜开始算起,用(Now-Int(Now))*86400这条语句就行了。

2。精度更高,标准Timer控件的Tick频率为1KHz,而该程序为1.4MHz

下面是程序的源代码:

Option Explicit

Private Declare Function osQueryPerformanceCounter Lib "Kernel32" Alias "QueryPerformanceCounter" _ (lpPerformanceCount As Currency) As Long

Private Declare Function osQueryPerformanceFrequency Lib "Kernel32" Alias "QueryPerformanceFrequency" (lpFrequency As Currency) As Long

Public Function Timer() As Single

Dim freq As Currency, count As Currency

osQueryPerformanceFrequency freq

osQueryPerformanceCounter count

Timer = count / freq

End Function

需要说明的一点是,如果你查阅API手册,你会发现API并不能识别Currency数据类型。在API手册中,osQueryPerformanceFrequencey要求的参数是一个Large_Integer的数据结构,该数据结构由两个Long类型的数据组成。Currency实际上也是按同样的方法来储存的。只不过在计算时被除以10000。因此你也可以写成:, (freq/10000) / (count/10000) = freq/count。关于上面的两个API函数,osQueryPerformanceFrequecy表示一秒内,计时器Tick了多少次;osQueryPerformanceCounter表示从开机到现在,计时器一共Tick了多少次。二者相除,就是从开机到现在过去了多少秒钟。
Amazon CEO Jeff Bezos:好年景,大挑战 2012年度盘点:移动互联网大事件回顾 详解Amazon Redshift 移动周报:再见,2012!你好,2013! 英特尔或在2月宣布其电视计划:提供分类频道 Prismatic:用机器学习分析用户兴趣只需10秒钟 谷歌布局亚太地区数据中心建设 服务响应速度有望提升30% 2013年移动互联网行业技术趋势前瞻 老骥伏枥志在千里:回顾微软这一年 2013或将崛起 水落石出:在与谷歌苹果竞购创业公司中微软胜出 用扁平化的界面设计吸引用户 2012年12月份全球主流浏览器市场份额排行榜 冲榜不一定要刷榜:增加游戏曝光度的7大杀手锏 科技vs政治:FTC对Google的反垄断调查结束背后 威胁百度:奇虎360确认将与谷歌达成合作关系 Facebook更新Messenger应用 推免费网络电话服务 网上疯传iOS7概念设计:Dashboard是真是假? 过时的UI设计 Ubuntu手机系统前途不被看好 三星将于今年发布Tizen设备 将对苹果形成威胁? 分享9条经典的编程语录 国际著名黑客大赛介绍与比较 微软Azure CDN服务全球范围内出现宕机 双向多功能U盘:从Android设备到PC还有多远? 证明了自己:微软Win8获美国防部6.17亿订单 2013 Facebook黑客杯报名即将开始 解决Win8下IE10无法打开的故障 [简讯] Scala 2.10.0发布! 收购传闻:Apple一厢情愿还是Waze待价而沽 回顾过去,展望2013:移动开发引擎、工具和语言盘点 成本为0!Netflix开源工具Janitor Monkey清理AWS iOS开发者讲述在Google工作的三个月 关于delphi +oracle的查询的问题! 高手请进! 请问如何在DW中添加全局变量,并且在DW中显示改变量的值? 请教struts-config.XML参数的涵义 初学者一个水晶报表的简单问题 关于ROSE的问题,高手请进 想给EXCHANGE装个防邮件病毒软件,除了NORTON,还有什么好的软件 请教一个RMI问题! 谁有比较快的许魏的《在别处》和《那一年》的下载地址? asp.net里怎么把光标定位到一个文本框上? 较好的XML编辑器是什么?哪有下载? J2ME的困惑,来着有分! strrchr test 我动态做了个菜单,怎么得到菜单的名称? 两个问题 为什么singleton双重检查成例对Java 语言编译器不成立? 如何访问另一窗体的控件而不实例化窗体? 请教如何将CString类型转换成float类型? 请教:为什么我发的帖子我自己看不到呀? 评书大全~~~~ 登陆服务器 模态窗口中如何后退? exchange 5.5 问题?求救了,急啊 请教一个sql语句查询问题??????(多表关连) 保留贴:屁眼儿当头 请教一个写文件的问题 关于PatIndex 请教:有关分页的问题 Web Services汉字参数传递的问题 如何自动发送email? asp+sql存储过程变量赋值的问题 急! 请问在 MS-SQL Server下 如何 把getdate() 转换成为yyyy-mm-dd 恭喜两位新MVP!其他人继续努力,不经历风雨那见彩虹! 请问谁知道在哪里下在一个vss6.0?急着用!下载完成以后才让吃午饭..... 拜托了 我想做一种像身份牌的名片,我做了一个,但总觉得不真实,请高手改改 读取cookies的奇怪问题 请给出一个判断email输入是否合法的例子。 请教COM+编程问题 求用weblogic做虚拟目录,可以解析多个工程的方案 关于CHM的问题 散分!!!! 今天早上做公车丢手机,郁闷呀. 如何使一字符串变量进行计算? 调用dll函数问题,急啊!苦恼中!请赐教! 如何动态改变listview里面的图标 主线程外的另一个线程弹出的对话框怎么不是模态的? 热情讨论MySQL的全文搜索 请问DataGrid中如何确认输入的内容? 关于push模式的mpeg1播放,十万火急!!!!!!!!! j2me怎样显示从servlet传来的图片(字节数组)?? 英语翻译Flashing finalization failed.Do you like to retry the finalizing?HRESULT 0x8421001f (-2078212065)Firmware:Failed to switch phone to correct mode for fartorysettings using USB. 惯用语造句,一个句子中要有五个词语! 急! 为什么云是白色的? 如图划线等式为何相等 初中作文水平就行!题目——不曾说出的感谢.还有“3天”就开学了!作文水平不用太高初中水平就行!题目——不曾说出的感谢.写的符合实际一些别不靠谱!还有“3天”就开学了!希望“哥哥” 有生命的东西和没有生命的东西有什么共同点和不同点 花园里有什么没有生命的东西 为什么我画的东西没有生命? 你知道地球上哪些东西有生命的?哪些东西是无生命的? 高数 为什么最后一个等式等于0呢? 语 文造句用"一瞬间"造句长一些 中央军委自上而下派出巡视组 主要监督湖南希望小学竣工一年被强拆 村民阻拦网友吐槽:在浙江开车好累 常犯开车陋小学生作业字写对被扣分 没教过的字得浙江一夫妻长期异地分居经济AA制 生美国海军世界最大驱逐舰下水【高清组图阿根廷法院支持政府打破媒体垄断迪拜宣布禁放孔明灯巴黎中国电影节开幕首条横跨欧亚海底隧道启用 伦敦坐火车范长龙会见马来西亚国防部长六成日本民众不赞成政府通过新安保法案中国使馆表示“克拉运河备忘录”消息不2015年全国铁人三项精英赛将于30中国向几内亚捐赠抗埃物资农业兴起导致现代人骨骼变轻兰州军区政工干部赴延安参观学习 为希潘基文在韩国演讲:希望在适当时间访问《恋爱教父》亮相伦敦华语电影节 明道田亮晒儿女玩耍照 森碟带弟弟坐玩具小中国向几内亚捐赠抗埃物资国民党7月19日将举行大会通过201异界上古传承三国白马枪网游之虚空召唤师守护之坠世界公敌孙悟空高山牧场战锤之黑暗千年拳脚掌系统荒界圣主超级探宝系统纨绔养成系统大渡河峡谷国家地质公园旅游青衣江旅游南宁大明山旅游刘家湾赶海园旅游启园旅游蓝布印染坊旅游乌镇大戏院旅游白云寺旅游西方净苑旅游黛眉山旅游成园温泉山庄旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘