时间表示问题，大侠指教

Question

VB里面的时间格式是什么样子的
比如“2000/6/13 3:00”VB中如何表示  ？

Answer 1

不需要知道其内部格式吧
如果非要知道
自己看吧Private Declare Function CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
    ByRef pDst As Any, _
    ByRef pSrc As Any, _
    ByVal nLen As Long) As LongPrivate Sub Form_Load()    Dim ArrVal(31)  As Byte
    Dim nIntLen     As Integer
    Dim nLngLen     As Integer
    Dim nDblLen     As Integer
    Dim nDtmLen     As Integer
    Dim intVal      As Integer
    Dim lngVal      As Long
    Dim dblVal      As Long
    Dim dtmVal      As Date
    
    nIntLen = Len(intVal)
    nLngLen = Len(lngVal)
    nDblLen = Len(dblVal)
    nDtmLen = Len(dtmVal)
    
    Debug.Print "Len(intVal) = " & nIntLen
    Debug.Print "Len(lngVal) = " & nLngLen
    Debug.Print "Len(dblVal) = " & nDblLen
    Debug.Print "Len(dtmVal) = " & nDtmLen
    
    dtmVal = Date
    Debug.Print
    CopyMemory ArrVal(0), dtmVal, nDtmLen
    For i = 0 To nDtmLen - 1
        Debug.Print FormatStr(ArrVal(i)) & " ";
    Next
    Debug.Print dtmVal
    
    dtmVal = Now
    Debug.Print
    CopyMemory ArrVal(0), dtmVal, nDtmLen
    For i = 0 To nDtmLen - 1
        Debug.Print FormatStr(ArrVal(i)) & " ";
    Next
    Debug.Print dtmVal
    
    lngVal = 1056001
    Debug.Print
    CopyMemory ArrVal(0), lngVal, nLngLen
    For i = 0 To nLngLen - 1
        Debug.Print FormatStr(ArrVal(i)) & " ";
    Next
    Debug.Print lngVal
    
End SubPrivate Function FormatStr(ByVal v As Byte) As String
    FormatStr = String$(2 - Len(Hex$(v)), "0") & Hex$(v)
End Function

Answer 2

输出结果如下：Len(intVal) = 2
Len(lngVal) = 4
Len(dblVal) = 4
Len(dtmVal) = 800 00 00 00 C0 6C E2 40 2003-4-23 03 9D 36 90 DC 6C E2 40 2003-4-23 21:25:21 01 1D 10 00  1056001 (注：左边是低位，右边是高位)

Answer 3

dim time as string
time=format$(now,"yyyy/mm/dd hh:mm")

Answer 4

dim time as string
time = format(now,"yyyy-mm-dd hh:mm:ss")