''' '这行代码一定要写Dim str As String = Forms("窗口").Controls("TextBox1").value '"2017-09-21、2017-08-11”Dim d As DateIf Date.TryParse(str.split("、")(0),d) Then r("日期") = dEnd If