时间取数问题
哪位朋友能帮忙用VB代码把下面两个时间格式改一下呵？非常感谢11/9/2015 12:00:00 AM 改成取值20151109
1/19/2015 12:00:00 AM 改成取值20150119
回复 楼主 wxwkcl
Private Sub Command1_Click()y = Year("11/9/2015 12:00:00 AM")
m = Month("11/9/2015 12:00:00 AM")
d = Day("11/9/2015 12:00:00 AM")
If d < 10 And m < 10 Then
s = y & "0" & m & "0" & d
ElseIf d < 10 Then
s = y & m & "0" & d
ElseIf m < 10 Then
s = y & "0" & m & "0" & d
ElseIf m < 10 Then
s = y & m & d
End If
MsgBox s
End Sub
