开卷有分，大家帮帮

[Jimmyliu2004]

Dim xDate As Date
xDate = "1-1-" & Me.TextBox2.Text 'TextBox2.Text＝06
Me.TextBox1.Text = xDate

现在的结果为'2001-01-06',正确应该是'2006-01-01',请问如何写！！！

[我被可乐淹死了]

你换个方式
xDate = Me.TextBox2.Text & "-1-1"

[stone_soup]

Dim xDate As Date
Dim b As New System.Globalization.DateTimeFormatInfo
b.YearMonthPattern = "en-US" '設置 DataTime 值的格式"
xDate = DateTime.Parse("1-2-" & "06", b)

MessageBox.Show(Format(xDate, "yyyy-MM-dd"))

[kbxj406]

那这里不是也是xDate = "1-1-" 改成xDate = "6-1-"

lz，是在散分？

[woanon]

都说了，我学习

[brothersun0116]

up!!!