合并函数
Public Function hebin(ll, ParamArray x())
For Each r In x
If IsArray(r) Then
For Each rr In r
If rr <> "" Then mystr = mystr & ll & rr
Next
Else
mystr = mystr & ll & r
End If
Next
mystr = Mid$(mystr, 2, Len(mystr))
End Function '将时间戳(10或13位整数)转换成 yyyy-mm-dd hh:mm:ss 格式的日期 Public Function shijiancuo(timeStamp As Double, Optional beginDate = "01/01/1970 08:00:00") If Len(CStr(timeStamp)) = 13 Then timeStamp = timeStamp / 1000 timeStamp2date = DateAdd("s", timeStamp, beginDate) End Function
|