vb.net中的日期格式问题

Question

我试图从文本框中解析日期并将其存储在日期变量中

Dim enddt_2 As Date = Date.ParseExact(txtenddt.Text, "dd/MM/yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)  'txtenddt.Text
expenddt_1 = enddt_2.AddDays(-1)
enddt = enddt_2.ToString("dd/MM/yyyy")

enddt 是一个日期变量，当我将 enddt_2 转换为字符串时，我收到错误为

Conversion from string "17/01/2012" to type 'Date' is not valid.

Let我澄清一下，如果文本框中的值是 17/01/2012 ，则解析后该值将更改为 01/17/2012 （我的系统区域和语言是dd/MM/yyyy) 在 enddt_2 中，当我尝试转换为 dd/MM/yyyy 格式并存储到日期变量中时，出现上述错误。此错误仅出现在 12 点之后的日期。即日期变量接受 MM/dd/yyyy 格式的日期。12 点之前的日期工作正常，即对于从 1 到 12 的所有日期都没有错误。

我怎样才能让 enddt 以 dd/MM/yyyy 格式存储日期。

Answer 1

enddt 是 Date 变量，您不能在其中分配字符串值，也不能更改您的区域设置甚至日期/时间格式。

如果要存储字符串日期，请更改 enddt 的类型。

 Dim enddt as String = enddt_2.ToString("dd/MM/yyyy")

Answer 2

你试过这个吗？

Dim enddt_2 As Date = DateTime.ParseExact("17/01/2012", "dd/MM/yyyy", _
                      System.Globalization.CultureInfo.InvariantCulture)
Dim newD As Date = enddt_2.AddDays(-1)

Dim xStr As String = "Original Date: " & enddt_2.ToString("dd/MM/yyyy") & vbCrLf
xStr &= "FormatedOriginalDate: " & enddt_2.ToString("MM/dd/yyyy") & vbCrLf
xStr &= "NewDate: " & newD.ToString("MM/dd/yyyy")
Console.Writeline(xStr)

输出：

Original Date:         17/01/2012
FormatedOriginalDate:  01/17/2012
NewDate:               01/16/2012