Question

谁知道用vb 怎么把常规性数值转换成日期数值

Answer 1

　　Debug.Print Format(41477.39915, "yyyy-mm-dd hh:mm:ss")

结果显示 2013-07-22 09:34:47

　　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 Integer
myyear = 1900 + Int((datenum + Int((datenum - 15) / 36525) - Int((datenum - 15) / 146100 + 1.75)) / 365.25)
End Function

以上代码完全自创，但说实话，觉得自己也是吃饱撑的没事干。

Answer 2

先选中左边的单元格，然后把它们复制到右边的列，然后选中右边列，右键单击，出现快捷菜单，选择“设置单元格格式”，在出现的窗口里，选“数字”选项卡，然后选“日期”，在右边窗口里选择相应的格式，确定，就可以了吧！

Answer 3

Private Sub Command1_Click()
    Dim a As Date
    Dim b As Double
    b = 41477.38922
    a = CDate(b)
    Print a
End Sub

追问

请问怎么反过来转换 ？就是把日期型 转成 数字型