关于VB日期与数字的转换(一) |
您所在的位置:网站首页 › vb中将数字转化为字符 › 关于VB日期与数字的转换(一) |
VB中可将日期作为实数的一部分来存储。小数点左边的数值表示日期:小数点右边的数值表示时间。负的数值表示在1899 年 12 月 30 日 之前。所以每一天可以用一个整数来表示(以1899-12-30 为0,该日之后为正数,之前为负数) ,对于MSVB 的合法日期,即#100-1-1# 到#9999-12-31#,就有-657434~2958465来表示。 对于给定的日期,用Clng()可以获得该日期的整数,反过来,用Cdate()可以将-657434~2958465范围内的任意整数转换为相应的日期,但问题是,它是如何转换过来的? 公历就是一种阳历,平年365天,闰年366天,每四年一闰,每满百年少闰一次,到第四百年再闰,即每四百年中有97个闰年。公历的历年平均长度(365.25日)与回归年(365.242189日)只有26秒之差,要累积3300年才差一日。 下面就年份的转换作一分析: Function myyear(ByVal datenum As Long) As Integerdatenum = datenum + 693960 ' #0001-1-1#--->#1899-12-30#之间的天数datenum = datenum + Int(datenum / 36525) - Int(datenum / 146100) - 1'对闰年所产生的多出来的天数进行修正。myyear = Int(datenum / 365.25)End Function '简化函数 Function myyear2(ByVal datenum As Long) As Integermyyear2 = 1900 + Int((datenum + Int((datenum - 15) / 36525) - Int((datenum - 15) / 146100 + 1.75)) / 365.25)End Function 测试: Private Sub Command1_Click()Dim i As LongFor i = CLng(#1/1/100#) To CLng(#12/31/9999#)If Not Year(CDate(i)) = myyear2(i) Then Debug.Print iNextMsgBox "ok"End Sub 所有日期计算都正确。 注: 以上代码完全自创,但说实话,觉得自己也是吃饱撑的没事干。 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |