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

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
首届游戏运营技术论坛隆重开幕,共论大数据时代的游戏运营之道 OpenStack Swift遇到了Erasure Code 微软Win7 IE11开发者预览版发布 开始改进开发工具讨好开发者 个性化推荐服务商百分点宣布B轮融资1000万美金 全球著名互联网企业背后的开源力量 基础设施对决Facebook vs. Google:差距绝不是一点点 Amazon Q2财报同比转亏,但AWS反其道而行:高歌猛进! 开拓海外市场的两年:海外上线小技巧 SDCC 2013首批讲师名单出炉 一线工程师唱主角 [开源推荐] 跨平台的.NET运行环境 Mono 3.2发布 Heroku发布API平台Beta版 采用OAuth2.0安全授权 大数据时代:移动数据能为我们带来什么? iOS开发经验谈:如何提高应用开发效率? 贝索斯:你否定亚马逊的现在 我决定亚马逊的未来 谷歌新产品Chromecast:一夜之间价格从35美元飙至100美元 移动周报:苹果5周年限免神作,BADLAND开发者访谈 开源平台Cloud Foundry获IBM和百度支持,步入高速发展的“黄金期” GDK仍未发布 谷歌鼓励Glass开发者可提前用Android SDK开发 Adobe发布PhoneGap 3.0 支持命令行工具 初级vs.高级开发者 哪个性价比更高? 一周观察:Cloud Foundry生态圈渐成型 数据分析中的10个注意点,让你更了解用户体验、行为及需求 压不垮就奋行!Dropbox Datastore API给初创NimbusBase带来的启示 史上14大最具创新意义的科技发明 亚马逊应用商店:给应用开发者一个国际舞台 白帽黑客英年早逝:R.I.P,Barnaby Jack 苹果发布支持iTunes Radio服务的iTunes 11.1测试版 诺基亚将发布Treasure Tag配件 让你再也不怕丢东西 从三大互联网巨头布局,看移动时代的商业逻辑 亚马逊应用商店:一个开发者走向世界的机会? 企业级App探索:开发者们的正途在哪里? 如何判断一个指向窗口的指针可用? 请教高手:怎么样破windows2000的登陆密码?其密文存放在什么地方? 急:哪里有电子文档 找到找到 网络编程、大虾有请!如何获得当前每秒的字节数? 各位高手,有人喜欢用mysql吗?谈谈这个东东吧 大富翁怎么连不上了? 各位武汉的大虾,请教武汉程序员、高级程序员、系统管理员(正规的大公司)、以及用JAVA做开发的工资一般为多少。希望大家给予帮助!!前途问题!! 网络编程大虾有请!如何获得当前每秒的字节数? 怎样在treeview中设置背景图片 to 版主:精华区太乱了,请给予分类。谢了 听说VB可以写PAD的程序,TRUE? JLabel中文本换行问题 马上要开始学BCB,请问BCB有那种类似于VC的创建类的向导吗,看到BCB的界面我就想到DELPHI中创建类的难度 我的游戏引擎BATTLEFIELD作好了,欢迎下载(这次是真的) 一个pop_up menu的问题 那位高手知道在SDK中使用ADO的方法 为普天之下正直而上进的程序员找一个温馨的家 为什么不能把JMF包打进去??? 内存泄露是指例如“为对象分配一个内存区后,未删除内存区,但删除了对象”是吗? 装pws时遇到的麻烦! to freezwy(网络自由人) 有没有限制上传图片大小的asp代码??(不是组件) 还是没有解决!!! 有关VC中数据库绑定的问题! 扔个骨头……下个“圈套”,呵呵? ^_^ 紧急情况!如何改变DataGrid控件中个别行的颜色?? 如果实现断开共享目录的连接 acces 表 SQL语句中如何转换字符型字段为整型? First-chance exception 请教directx的一个入门问题? 诚征MM中…… 多线程问题?? 请问sybase中real类型的最大值是多少?999999999 自杀的N个理由 如何根据日期计算出一年中的第几天? 情况不对,撤丫~~~~~~~~~ 如何在JBuilder4.0编译环境下打包\编译??????? 关于对话框的一个简单问题 如何把几个chm(已编译的 html 文件)文件合成一个chm文件 ado参数问题 请问sevrlet怎么结合HTML模板工作呢?谢谢 我想作一些动态界面,有谁能提供一些有关这方面的资料.小弟有礼了 比较弱的问题 各位大哥:请问哪儿有通过ADO操纵数据库的完整程序下载呀。最好是比较精典一点。谢 写一个php中的include文件,后缀名应该是什么。马上给分 怎么将PHOTOSHOP中分割的图片的结构植入DW4中? send 和 post的区别是什么?谢谢 哪里有《UNIX环境高级编程》这本书下载? 有没有asp的实例应用站点? 问题,请大家帮忙! 怎样删除自己曾经参与但现在不想参与的问题? 某项工程队,甲单独做需a天完成,在甲做c天(c 一件工作,甲、乙两人合作30天可以完成,共同做了6天后,甲离开了,由乙继续做了40天才完成.如果这件工作由甲或乙单独完成个需要多少天? 若(m+n)人完成一项工作需要m天,则n人完成这项工作需要()天请勿抄袭百度上滴,我都看过了,但还是不懂 一项工程,甲单独完成需要a 天,甲,乙合作需要b 天完成,求乙每天完成多少? 一件工作,甲乙两人合作30天可以完成,共同做了6天后,甲离开,乙继续做了40天完成.如果这件工作由甲或乙单独完成各需多少天?乙单独做需要:1÷(1-1/30×6)×40=50天甲单独做需要:1÷(1/30-1/50) 若有M人,a天可完成某项任务,则(M+P)人完成这项任务的天数是多少 一项工程,甲单独完成需要a天,甲,乙合作需要b天,求乙每天完成多少? 一件工作,甲乙两人合作30天可以完成 ,甲乙两人共同做了6天后,甲离开了 乙继续做了40天完成,一件工作,甲乙两人合作30天可以完成 ,甲乙两人共同做了6天后,甲离开了 乙继续做了40天完成,如 某工程,甲单独做4天乙单独做6天,若甲先干一天,然后甲乙合作完成,设甲共做x天乙工作的天数是?列出方程共得到450元报酬按工作量计算该怎样分配 一项工程,甲队独坐a天完成,乙队独坐b天完成.两队合作,求完成的天数 一项工程,甲乙合作15天完成.现在有甲队先做四天后,乙队接着做六天,共完成这项工程的7分之20,甲乙独做这项工程各需多少天?要有意思1992/1993的分子减去一个数,分母加上这个数后,分数值是2/3 甲单独做4天,乙6天完成,甲先做一天,甲乙再合作做,设甲一共作x天,乙工作天数?列出的方程? 一项工程,甲队独做A天完成,乙队独做B天完成.两队合作( ),天数完成 一项工程,甲乙两队合作6天完成,甲队单独做15天完成,现在由甲乙两队合作2天后,调走乙队甲队还需几天可以完成?我要算式和步骤。 某项工作甲单独做4天完成,乙单独做6天完成,若甲先干一天,甲乙合作完成.若设甲有共做了X天,乙的天数为多少?方程式为? 一项工程,甲单独做需A天完成,乙单独做需B天完成,两人合作比甲单独做提前完成的天数为( )A.ab/a+b B.b的平方/a+b C.a的平方/a+b D.a-b/a+b 一项工程,甲乙两队合作6天可以完成,甲队单独做15天可以完成,现在由两队合作2天后,甲队单独做,还需几天才能完成? 某项工程甲单独做要4天乙单独需6天,若甲先做1天,然后二人同做,若甲共做X天,则方程为?要方程 一项工程,甲乙两人合做18天完成,甲单独做要30天,现甲乙两人先做六天,再由甲做10天,这件工程还剩几分之几 一工程 甲单独做3天完成,乙单独4天完成,甲队工作效率比乙队大约快( ) A,25% B 、25.1% C,30% D,3.3% 一项工程,甲、乙合做15天完成.现在由甲队先做4天后,乙队接着做6天,共完成这项工程的二十分之七,如果由甲、乙独做,完成这项工程各需几天?详细算式,不要只是一个答案~谢啦,还给追分,今天 一件工程,甲乙合做18天完成,甲单独要30天完成,现在两人合做6天后,再由甲单独做10天,工程还剩几分之几? 某工程甲乙两人合作8天完成,需要费用3520元,若甲单独做6天后,剩下的工程由已来做,已还需12天完成,这这样共需要费用3480元.(1)甲乙两人单独完成此项任务需要多少天?(2)甲乙两人单独完 一项工程甲乙两队合作6天可以完成甲队单独做15天可以完成现在由两队合作3天后调走乙队,甲队还要几天完成? 一件工程甲乙合作8天完成甲单独做30天完成现在甲乙合作4天后再由甲独做10天一共完成这项工程的几分之几?解答并且讲题 一项工程,甲乙两人合作4天后,再由甲独做6天才完成.已知甲比乙每天多完成1/80,则甲乙单独完成各需多少 甲乙二人共同做一件工作,规定若干天完成,若甲单独完成这件工作比规定天数多12天...甲乙二人共同做一件工作,规定若干天完成,若甲单独完成这件工作比规定天数多12天;若乙单独完成则比 一项工程甲独做6天完成,乙独做8天完成,那么甲乙合作一天完成这项工程的几分之几?甲做a天,乙做b天,共完成了这项工程的几分之几? 一项工程,甲,乙两人合作10天可以完成,或甲独做20天可以完成.现甲,乙两人共同做6天后离开,甲离开,由乙单独完成这项工程,乙还需要多少天? 已知甲,乙两个共同完成一件工作需12天完成.若甲,乙两人单独完成这件工作,则乙所需的天数是甲所需天数的1.5倍.设由甲单独完成这件工作需X天.则方程____________________________________. 一项工程,甲、乙合作6天完成.甲单独做11天完成,乙单独做每天完成这项工程的几分之几? 一项工程,甲、乙两人合作4天后,再由甲单独做6天才完成全部任务,已知甲比乙每天多完成这项工程的80分之1,则甲、乙单独完成各需多少天? 甲乙二人共同做一件工作,规定若干天完成,若甲单独完成这工作,则比规定天数多做12天;若乙单独完成这工作,则比规定天数多做27天,求甲乙单独完成这件工作各需多少天? 一项工程,甲工程队单独做要10天完成,乙工程队单独做6天完成,现甲工程队先做2天,乙工程队再加入合作,完成这A、B两地城际高速铁路预计在2012年5月1日正式运营,按设计要求,两地单程直达 一项工程甲单独做6天完成,乙单独做10天完成,甲独做1天后,甲、乙两人合作,又做了x天完成这项工程的6/5.根据题意列出方程:_________. 已知甲乙两人共完成一件工作需12天完成.若甲乙两人单独完成这件工作,则乙所需的天数是甲所需天数的1.5倍设由甲单独完成这件工作需X天,则可列方程_________________ 甲乙工程队合做,10天可以完成,如果甲队做4天,乙队做6天,共完成这项工程的15分之7,求甲独做要几天?要算术法 某工程,甲独做需20天完成,乙独做需要12天完成,甲乙两人合作6天后,再由乙继续完成,再做几天可以完成全部工程?用一元一次方程做,工程问题问题本人不擅长,有思路更好 某项工程,由甲单独做要a天完成,乙单独做要b天完成,现在甲先单独做2天,剩下额工作由乙单独做,则要完成此工程,还需要几天? 已知一项工程由甲、乙两工程队单独完成,分别需要6天,10天,如果甲、乙共完成这项工程,且各做了整数天,那么怎样派工才能使完成这项工作的总工期最短?最短工期是几天? 一项工程 甲单独做20天完成 乙独做需30天完成 甲乙合作六天后 乙因事离开 剩下的甲要需几天完成? 某项工作,甲做要A天,乙做要B天,现甲单独做2天后,剩下工作由乙单独做,则乙完成剩下的工作所需多少天 一项工程,甲乙两个工程队合作6天可以完工现在甲先做4天乙又接着做8天正好完工以每天完成这项工程的几分之几分之几?我给少了一个字大家快来回答 做一项工作,甲乙合作20天完成,甲干了6天后乙接着干4天,共完成了全部工程的1/4,甲单独干需要好多天? 某项工作,甲单独做要a天完成,乙单独做要b天完成.现在甲单独做2天后,剩下的乙做,乙要做多少天才能完成 一项工程,甲单独做要10天完成,乙单独做要15天完成,现在甲乙合作4天,还剩下工程的几分之几 某工程,甲单独施工需要20天完成,乙单独施工需要12天,甲乙二人合作6天后,再由乙 继续完成,乙再做几天可以完成全部工程? 一项工程,甲单独做a天完成,乙独做要b天完成,现在甲先做3天,剩下的工作由乙独做还需要()天才能完成列代数式代数式要化简 甲乙两个工程队同修一条路,同时施工,甲每天修a米,乙每天修b米,8天修完,这条公路长多少米? 某项工程,甲单独做需20天完成,乙单独做需12天完成,甲,乙二人合作6天后,再由乙继续完成,乙再做几天?(方程解) 某项工作,甲单独做要a天完成,乙单独 做需b天完成,现在甲单独做2天后,剩下工作由乙单独做,则乙单独 甲工程队单独做40天完成,乙独做30天后,甲乙合作20天完成.将工程分成两部分,甲用A天,乙用B天.A、B均为正整数,A〈15、B〈70.求A、B? 一件工作,甲乙两人合作30天可以完成.共同做了6天后,甲离开了,由乙继续做了40天才完成,如果这件工作由甲或乙单独完成各需要多少天? m人a天可完成一项工作,如果增加n人,那么几天可完成这项工作?急用 甲乙两个工程队同修一条公路,他们从两端同时施工.甲每天修a米,乙每天修b米,8天修完,问这条路长多少米问这条路长多少米(要算出准确答案) 一件工作,甲、乙两人合作30天可以完成,共同做了6天后,甲离开了,由乙继续做了40天才完成.如果这一件工作,甲、乙两人合作30天可以完成,共同做了6天后,甲离开了,由乙继续做了40天才完成.如 m人完成一项工程要a天,且每人工作效率相同,那么(m+n)人要多少天完成?请说明为什么AM是总工作量, 甲,乙两个工程队共同完成A和B两个项目.已知甲从单独完成A项目需3天,单独完成B项目需7天;乙队单独完成A项目需11天,单独完成B项目需9天.如果两队合作用最短的时间完成两个项目,则最后一天 一件工作甲乙两人合作30天可以完成,共同做了6天后甲离开了,由乙继续做了60天才完成,这件工作由甲乙各自这件工作由甲乙各自完成的话,各需多少天? 3.若m人在a天可完成一项工作,那么m+n人完成这项工作需_______天(用代数式表示).
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn