怎样用VB做日期倒计时

 时间:2024-09-20 23:22:41

你是否想知道,距离某个重要的日子,棵褶佐峨还有多少天?或者距离曾经的一个日子,已经过去了多少天?其实,想知道这些并不难,只醐肛们亲要你掌握了阳历的基本历法(平年365天,闰年366天,大月31天,小月30天,平二月28天,闰二月29天,是4的整数倍且不是100的整数倍的年份是闰年,是400的整数倍的年份是闰年),只需要算出今天距公元1年1月1日多少天,再同时算出你设定的日期距公元1年1月1日多少天,两个数字一相减,就能得出结果啦。

工具/原料

VB(VisualBasic6.0)

步骤/方法

1、打开VB(VisualBasic)渭骑莉蓝软件,新建标准EXE工程,按照下图设计好窗口。中间三个TextBox(文本框)是用来输入查询日期的,将他们的“名称”属性分别设为y,m,d。其下菱诎逭幂方的三个Label(标签框)是用来指示当前日期的,将他们的“名称”属性分别设置为cy,cm,cd。“计算”按钮下方还有两个标签框,是用来指示两个日期的差值的,请把左边的标签框名称设置为t,右边的标签框名称设置为s。这些设置都是为后面编写程序代码而准备的。

怎样用VB做日期倒计时

2、窗体布局已经完成,下面就开始正式的程序设计。第一步,刚打开程序时,必须提取出今天的日期。双击窗口的空白处,弹出代码窗口,写入如下代码。绿色的文字是注释,可参考其含义,你们在编写代码时不必写入。

怎样用VB做日期倒计时

3、第二步,就是在输入完日期之后,检查所输入的数字有没有错误。年份必须在1——9999之间,月份必须在1——12之间,而日期就需要根据当前年份和月份来指定相应的范围了。双击第一个文本框y,进入代码窗口,写入如下代码,同样有注释。

怎样用VB做日期倒计时

4、判断完输入的日期是否有误后,下面一步就是计算今天,还有设定的日期,各距离公元1年1月1日有多少天了。双击“计算”按钮,写入如下的代码。同样有注释。

怎样用VB做日期倒计时

怎样用VB做日期倒计时

怎样用VB做日期倒计时

5、好了,所有的代码都已经写完了,你可以点击工具栏上的“运行”按钮测试一下效果哦。如果觉得非常满意,还可以点击“文件”菜单下的“生成工程1.exe”命令直接生成应用程序,这样随时都可以运行啦!

如何理解Excel VBA的With语句 vf6.0设置常用的组合框控件属性 易语言如何制作OCX组件条码/条形码 excel之vb如何点击按钮弹出是否选择对话框 如何设置Excel始终以默认编码保存网页
热门搜索
微信图标图片 性感大胸美女图片 和平鸽图片简笔画 狼牙山五壮士图片 蜜桃漫画