如何将日期时间转换成数字形式？？？

Question

如何将日期时间转换成数字形式？？？

Answer 1

不知道楼主要的是否是
val(format(date,"yyyymmdd") & format(time,"hhmmss"))

Answer 2

数字形式？？？？？？？？？你是想这样：
Private Sub Command1_Click()
Debug.Print DateSerial(Year(Now), Month(Now), Day(Now)), TimeSerial(Hour(Now), Minute(Now), Second(Now))
End Sub还是这样：
Private Sub Command1_Click()
Dim d As Long
Dim t As Double
d = DateSerial(Year(Now), Month(Now), Day(Now))
t = TimeSerial(Hour(Now), Minute(Now), Second(Now))
Debug.Print d, t
End Sub？？？？？？？？？？？？？？？？

Answer 3

val(format(date,"yyyymmdd") & format(time,"hhmmss"))这个不错不过不知道楼主是不是要都转换成秒，还是？？

Answer 4

给个转化成文本的参考下：
Function DateToStr(DateTime,ShowType)  
    Dim DateMonth,DateDay,DateHour,DateMinute
    DateMonth=Month(DateTime)
    DateDay=Day(DateTime)
    DateHour=Hour(DateTime)
    DateMinute=Minute(DateTime)
&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Len(DateMonth)<2&nbsp;Then&nbsp;DateMonth="0"&DateMonth
&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Len(DateDay)<2&nbsp;Then&nbsp;DateDay="0"&DateDay
&nbsp;&nbsp;&nbsp;&nbsp;Select&nbsp;Case&nbsp;ShowType
&nbsp;&nbsp;&nbsp;&nbsp;Case&nbsp;"Y-m-d"&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay
&nbsp;&nbsp;&nbsp;&nbsp;Case&nbsp;"Y-m-d&nbsp;H:I&nbsp;A"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;DateAMPM
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;DateHour>12&nbsp;Then&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateHour=DateHour-12
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateAMPM="PM"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateHour=DateHour
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateAMPM="AM"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;If
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Len(DateHour)<2&nbsp;Then&nbsp;DateHour="0"&DateHour&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Len(DateMinute)<2&nbsp;Then&nbsp;DateMinute="0"&DateMinute
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&"&nbsp;"&DateHour&":"&DateMinute&"&nbsp;"&DateAMPM
&nbsp;&nbsp;&nbsp;&nbsp;Case&nbsp;"Y-m-d&nbsp;H:I:S"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;DateSecond
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateSecond=Second(DateTime)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Len(DateHour)<2&nbsp;Then&nbsp;DateHour="0"&DateHour&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Len(DateMinute)<2&nbsp;Then&nbsp;DateMinute="0"&DateMinute
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Len(DateSecond)<2&nbsp;Then&nbsp;DateSecond="0"&DateSecond
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&"&nbsp;"&DateHour&":"&DateMinute&":"&DateSecond
&nbsp;&nbsp;&nbsp;&nbsp;Case&nbsp;"YmdHIS"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateSecond=Second(DateTime)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Len(DateHour)<2&nbsp;Then&nbsp;DateHour="0"&DateHour&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Len(DateMinute)<2&nbsp;Then&nbsp;DateMinute="0"&DateMinute
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Len(DateSecond)<2&nbsp;Then&nbsp;DateSecond="0"&DateSecond
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateToStr=Year(DateTime)&DateMonth&DateDay&DateHour&DateMinute&DateSecond&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;Case&nbsp;"ym"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateToStr=Right(Year(DateTime),2)&DateMonth
&nbsp;&nbsp;&nbsp;&nbsp;Case&nbsp;"d"
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateToStr=DateDay
&nbsp;&nbsp;&nbsp;&nbsp;Case&nbsp;Else
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Len(DateHour)<2&nbsp;Then&nbsp;DateHour="0"&DateHour
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Len(DateMinute)<2&nbsp;Then&nbsp;DateMinute="0"&DateMinute
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DateToStr=Year(DateTime)&"-"&DateMonth&"-"&DateDay&"&nbsp;"&DateHour&":"&DateMinute
&nbsp;&nbsp;&nbsp;&nbsp;End&nbsp;Select
End&nbsp;Function

Answer 5

日期和时间本来就是数字，日期为整数，时间为小数
可以这样转化
MsgBox CLng(Date)
MsgBox CDbl(Time)

Answer 6

日期时间类型是以 Double 数字类型保存在内存中，当读出时，整数部分解释为日期（天数，正数为1899年12月30日之后，负数为之前），小数（可以认为是分数）部分解释为时间（例如1/24是凌晨1点）。你从系统取得的日期时间，就是数字。如果你想把文字日期变成数字：
CDate("2005-06-13 11:01")