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

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
Eclipse 4.3 正式版发布 代号Kepler 为兴趣而生 七大编程挑战项目,你敢来吗? iOS 7辅助功能:左右摇头控制iOS设备 挑战传统关系型数据库:Facebook图形数据库TAO揭秘 揭秘“棱镜计划”幕后的技术 你更新了吗?Visual Studio 2013 Preview和.NET 4.5.1同时发布 你主要使用什么编程语言? 跨平台游戏开发工具App Game Kit或将新增更多强悍功能 移动应用推广的那些事儿:应用发现篇 DDoS攻击也能成为一种云计算服务 Netflix开源Hadoop集群调度工具:日处理近万作业、上千TB数据 传谷歌正开发自己的视频游戏主机和智能手表 AMD APU战略转型:全民四核,发力“云+端” 富士康自主研发智能手表 惹苹果发来订单 开发者眼中的iOS 7:重设计过程没想象中那么糟 游戏引擎Unity宣布免费支持Windows Phone 8及Xbox One 蝉游记王益善专访:7人小团队实现App 30万下载量 去除IE 10广告的两种方法 直接拿来用!最火前端开源项目(二) 工作变得简单又高效 试试这八个WebApp 移动周报:生于微信,疯狂猜图的推广经 DataTorrent 将数据分析速度从“实时”提升至“现在时” 华为FusionCube开启全球规模商用 黑暗架构:以最少时间完成系统升级并获客户认可的开发之道 Hadoop Summit 2013见闻:创业与Hadoop 2.0不可阻挡 Facebook的清洁能源改革——革命尚未成功,仍需努力 YARN或将成为Hadoop新发力点 主流编程语言属性一览(多图) 粉碎硬件复杂论:开发者不懂硬件运行的方式怎么可以?! 最新版Chrome OS加入Word和Excel编辑功能 直指微软 传诺基亚将购诺西全部股份,疑为出售手机业务做准备? 有没有一种线程安全的方法来取得一张表的元组个数? listview排序的,过来看看。。 有一获国家专利的中文输入法软件急于开发 帮忙解释一下implementation什么意思,有什么作用. A Question about ActiveForm and TabStop. 用于从INI文件中读字串的函数是什么?请示高手! 清問:Datareport實現不了的功能如何實現?清大蝦指教,謝謝! 检测下拉列表中批配项,有则选中 为什么DBGRID显示一片空白,记录应该取到了。代码如下: 谁有免费出国代理,急用。如果能有,马上给分 关于学习.net与j2ee的抉择问题,欢迎各位大侠热烈讨论!!! 求PHP代码,功能是:判断字符是否全部为汉字? 又是MSFlexgrid的问题!!!请大家帮忙~! ActiveX访问数据库的问题? REDHAT LINUX 7.2下如何建立多个用户?多谢指点! 关于网线!高分!!!!! 关于生成文件的方法? 课程表开发 请问各位前辈,是否只有新增加的字段才有可能成为计算字段?谢谢! 俺要写一个简单的文本的报文,string类型的 关于生成文件的方法?..... 有谁能告诉一下我CVS和SSF是什么?,具体是指些什么?? WIN2K 的问题:1、怎么允许本地普通用户(user)关机;2、怎么能让本地普通用户开机后,客户机连接到SQL SERVER?3、为什么我的SQL量SERVER2K需要停止然后再启动客户才能用? 如何用VB把存储在ORACLE库中的图片字段取出成.JPG格式的图片文件????急在外出差呀多谢了~~~~~ 如何退出函数?exit function??? 测试2000的TCP/IP是否通,用什么命令 求助开发课程表提示 (*****向斑竹你提个小见意,大家最好都来看看,这个想法好不好!****) 为什么我做的增加功能有两个必须要按两次“添加”按钮才能新增一条记录啊? 很急,请教高手,如何把一个ip格式的字符串转换成ip类型,不是用getbyname(),而是像int和string转换一样的概念 请问如何让基于对话框的工具条一开始就浮在上面 来者有分,关于ado的 毛子青论文<<动态规划的优化>>,一个最长子序列的算法,请高手看过来(给出c实现代码的送20分!) 在鼠标单击时间中,可以使用什么函数取得鼠标点击处的坐标值 怎样在单击左键时弹出PopupMenu? 连续20多天加班,近来明显感到体力透支,做个调查!!!(有分) ASP调用VB编写的ActiveX DLL的问题 请教一sql语句 在Unix下用cc(实际上是cc_bundled文件)编译c程序时,报错“const" will become a keyword,或者告诉我“Function prototypes are an ANSI feature" 为何加入winsock2.h后会出现很多问题? 热烈庆祝:Kingron重出江湖!!!菜鸟们有福喽……散分 you shen me qu bie ? please tell me , xie xie ! [■■■Delphi猛料■■■]V1.3发布~~~~~~~更新到2001.12.12 提问:如何在ToolBar上加控件? 我在OLE里调用了word2000文档,为什么只显示第一页,我查了半天资料都没有解决,请帮我 哪里有多媒体软件制作论文啊? 继续请教各位前辈:能否将非新增加的字段定义成计算字段?谢谢! 软件创意、需求大汇集:列创意,拿专家分,120分值大赠送(以后可继续追加) 局渔网 巨简单问题~~~ 进来有分,回答多分,不够再加!!! 关于关闭和启动数据库的问题,很急的!! 地中海和红海内部的洋流方向是怎样的?我想知道的是他们各自内部情况…… 为何往结冰的公路上撒盐? 海水结冰解冻后,会不会变成淡水?我在书上看见的,它说会.如果真的会,请简述下原因,不须长篇大论,对不起,说错了我说的是冰冻一些海水,再拿去其他地方解冻. 初二水的浮力一共两道题需要问下,希望大家不仅可以给我标准的答案,更重要的是最好能给我讲解一下.1、一个鸡蛋沉在水中,往水中倒入一些浓盐水后,使鸡蛋浮在水中,鸡蛋所受的浮力讲_____ 为何清除道路冰冻积雪时要撒盐 温度计的测量范围是多少到多少? 表层海水被吹走,其他海区海水从底部进行补充,那么此刻海区表层海水盐度是大了小了? 大家都知道压强越抵,水的沸点越低.那如果把水放进太空那种真空环境 ,它的沸点是多少呢?又是以什么方式沸腾呢? 为什么海水结冰后,再融化可以变为淡水(如,北极冰山) (内含密度表) 补充图片 上升流为什么会使印度洋西部海域表层海水盐度下降? 求压强与水的沸点的关系式. 配制密度1.1*10立方kg/立方米的盐水 测得配制的500立方厘米的盐水质量为600克,问这些盐水是否符合要求,若不符合要求应加水还是加盐,加多少克 电子.光.会不会热胀冷缩?物体是由分子组成分子和原子组成,原子是由原子核和电子组成,物体能热胀冷缩,应该电子和原子核也能热胀冷缩,那光呢? 冬天为什么在道路上撒盐能让冰融化说说具体原理和知识, 水的浮力怎么算? 真空度与水的沸点的关系表 为什么冰撒了盐后会溶化的更快? 已知配制的盐水520克,体积400立方厘米,求加多少水再配成密度为1.2克每立方厘米的盐水 真空度与水的沸点的关系是直线关系还是曲线关系啊,化学实验要作图,做出来的数据描点后似曲线又非曲线,很纠结啊.如果能给条公式就更好了. 真空中水的沸点是级°C?rt 超声波身高测量仪的工作原理是什么?现在医院都用那种超声波身高体重测量仪,感觉很神奇,与以往的手动测量仪和电子测量以不同,人只要站在上面,几秒钟就能得出身高、体重等数据.不知道 谁能提供水在不同真空度下的沸点? 冰冻的路面为什么要撒盐?目的是什么? 规则形状固体密度的测量仪器和基本步骤后面还有不规则形状的固体密度的测量仪器和基本步骤.希望能回答一下. 真空度为-0.08MPa时,乙醇的沸点是多少? 在结冰的道路上撒盐是为了降低冰的什么拜托了各位 三坐标测量仪的工作原理 请问在什么情况下水的沸点会降低 蜡烛和猪油凝固时是向下凹还是向上凸 水的浮力题物体在空气中称时重29.4牛,把它浸没在水中是重9.8牛求物体所受的浮力,物体的体积,物体的密度 通常情况下水的沸点,凝固点: 为什么要向结冰的公路撒盐? 为何同温同压下相同体积任何气体物质的量同 什么情况下水的沸点会低于100摄氏度有两个为什么水的沸点不是100摄氏度、、一个是外界大气压小于一标准大气压、、还有一个不知道、、各位人士,,帮忙啊~~~ 人们往冰冻的路面上撒盐,这是为什么 水的浮力的题目潜水员从浅水潜入深水,以下分析体验体验过程正确的是( )A.脚越来越疼,是因为水底对人的支持力越来越大B.脚越来夜疼,因为人受到的重力越来越大C.脚不疼,因为人越来越 一般情况下水的沸点能到达100摄氏度吗 小明同学点燃一支蜡烛,不小心蜡油溅到了手上,他啊的一声,发现蜡油在手上凝固,可手上却烫起了泡.请说明小明手上起泡的原因. 阿伏伽德罗定理的推论中有同温同压下,气体的体积之比等于物质的量之比.这个气体是同种,还是可以是两...阿伏伽德罗定理的推论中有同温同压下,气体的体积之比等于物质的量之比.这个气 物质的热胀冷缩与分子有什么关系 蜡烛和蜡油有什么区别?蜡油能当蜡烛用么? 谁有关于水的浮力的题目的?(简单点) 气体热胀冷缩如何用分子的运动来解释? 点燃的蜡烛,蜡油会一滴滴地滴下来,这是蜡的什么过程;冷却后,蜡油又变成了蜡块,这是蜡油的什么过程.我是初2的学生,在物理上遇到有不懂的问题, 1mol Na,1mol Na+和1mol OH-所含电子的物质的量分别为多少 热胀冷缩是分子变大?分子会变大吗?还是别的什么? 水银温度计测量范围实验室里的水银温度计最大测量范围标记的是300℃,每小格代表温度2℃,但在80℃到300℃之间就省略了每小格2℃的标记,也就是说从80到300之间只有10小格的间隔,这是为什么? 有木球,铁球,铜球,他们在水中静止情况为:木球漂浮,铁球悬浮,铜球下沉,球一定是空心的. 为什么冬天在路面上撒盐就能使融化了的冰雪不在结冰的实验设计:为什么冬天在路面上撒盐就能使融化了的冰雪不在结冰的实验 一种铜,锡合金有质量78%的铜.余下的为锡,问这种合金的密度是多少? 同温同压下,物质的量之比等于体积比等于浓度比还等于什么比,是质量还是摩尔质量同温同压,密度比等于质量比还是摩尔质量比 寒冷的冬天.雨雪天气的道路上往往会结冰.在道路上撒些盐能加快冰的溶化.说明其中的道理. 一块合金体,质量为m,体积为v.已知金的密度为P1,铜的密度为p2,求该合金体的含金量?含铜量?(表达式). 初二水的浮力计算题某金属球在空气中重20牛,将它浸没在水中时称得重为17牛,求:这个金属球的体积是多少? 为什么冬天要在马路上撒盐来加快冰的溶解? 温度计的测量范围是 最后一问为什么收集到沸点较低的馏分是甲醇 为什么温度高时,物体的分子之间的空隙会胀大 温度计的测量范围寒暑表、水银温度计、气温计的一般量程,最大及最小刻度.不要最高限度,一般用的就可以了
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn