字符串“01.01”怎么变成“2009-01-01”，“12.30”怎么变成“2008-12-30”这样呢？

Question

字符串“01.01”怎么变成“2009-01-01”，“12.30”怎么变成“2008-12-30”这样呢？
关键是月份
谢谢先

Answer 1

Option ExplicitPrivate Sub Form_Load()
Dim S, D As String
S = "01.01"S = Replace(S, ".", "-")
S = Year(Now) + 1 & "-" & S
MsgBox S
D = "12.30"
D = Replace(D, ".", "-")
D = Year(Now) & "-" & D
MsgBox D
End Sub

Answer 2

字符串“01.01”怎么变成“2009-01-01”，“12.30”怎么变成“2008-12-30”这样呢？
======================
Private Sub DateConvert() As String
Dim D
D="12.30"
MsgBox Year(Now) & "-" & Replace(D,".","-")
End Sub=======