Dim temp As String Dim dt As DateTime Dim y, m, d As String dt = TextBox1.Text If dt.Month < 10 Then m = "0" + dt.Month.ToString Else m = dt.Month.ToString End If If dt.Day < 10 Then d = "0" + dt.Day.ToString Else d = dt.Day.ToString End If temp = dt.Year.ToString + m + d TextBox2.Text = temp
Public Function conToYYYYMMDD(ByVal temstring As String) Dim dt As DateTime Dim temp, y, m, d As String dt = temstring If dt.Month < 10 Then m = "0" + dt.Month.ToString Else m = dt.Month.ToString End If If dt.Day < 10 Then d = "0" + dt.Day.ToString Else d = dt.Day.ToString End If temp = dt.Year.ToString + m + d Return temp End Function
你的不是很正确,你产生的是yyyy-MM-dd,而不是yyyyMMdd
Dim y, m, d As String dt = TextBox1.Text
If dt.Month < 10 Then
m = "0" + dt.Month.ToString
Else
m = dt.Month.ToString
End If
If dt.Day < 10 Then
d = "0" + dt.Day.ToString
Else
d = dt.Day.ToString End If
temp = dt.Year.ToString + m + d
TextBox2.Text = temp
Dim dt As DateTime
Dim temp, y, m, d As String
dt = temstring
If dt.Month < 10 Then
m = "0" + dt.Month.ToString
Else
m = dt.Month.ToString
End If
If dt.Day < 10 Then
d = "0" + dt.Day.ToString
Else
d = dt.Day.ToString
End If
temp = dt.Year.ToString + m + d
Return temp
End Function