Question

excel vba中关于DATE类型的问题

求程序代码将DATE类型变量date1(例如2010-6-16 15:25)
转换成INTEGER类型变量year,month,day,hour,minute分别存储
以及从这5个变量中重新得到DATE类型变量date2

Answer 1

Dim dd As Date, a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
dd = "2010-6-16 15:25"
a = Year(dd)
b = Month(dd)
c = Day(dd)
d = Hour(dd)
e = Minute(dd)
MsgBox a & b & c & d & e
dd = a & "-" & b & "-" & c & " " & d & ":" & e
MsgBox dd
End Sub
根据楼上改的

Answer 2

Sub Macro1()
'
' Macro1 Macro
' 宏由 ynzsvt 录制，时间: 2010-10-11
'
Dim dd As Date
[A2] = Date
dd = "10/10/2010 13:55:45"
[a3] = dd
[a4] = Year(dd) & Month(dd) & Day(dd) & "-" & Hour(dd) & Minute(dd) & Second(dd)
End Sub