＋设为首页 ＋添加到收藏夹
VB里面的时间格式是什么样子的
比如“2000/6/13 3:00”VB中如何表示 ？
不需要知道其内部格式吧
如果非要知道
自己看吧
Private Declare Function CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
ByRef pDst As Any, _
ByRef pSrc As Any, _
ByVal nLen As Long) As Long
Private 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 Sub
Private Function FormatStr(ByVal v As Byte) As String
FormatStr = String$(2 - Len(Hex$(v)), "0") & Hex$(v)
End Function
输出结果如下：
Len(intVal) = 2
Len(lngVal) = 4
Len(dblVal) = 4
Len(dtmVal) = 8
00 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
(注：左边是低位，右边是高位)
dim time as string
time=format$(now,"yyyy/mm/dd hh:mm")
dim time as string
time = format(now,"yyyy-mm-dd hh:mm:ss")
