如何在vb.net中存储日期字符串？

Question

如何在vb.net中的日期变量中存储字符串值

我正在使用以下代码

dim dtBL as Date
txtBLDate.text="23/11/2010"
dtBL = Format(CDate(txtBLDate.Text), "MM/dd/yyyy")

但我收到的错误是“从字符串转换”23/11/2010“输入'日期'无效。” 请就此提出建议

Answer 1

两条经验法则我用VB.Net给每个人：

• 启用Option Strict On
• 尽快放弃Microsoft.VisualBasic - 命名空间

要回答您的问题，您的日期格式为dd/MM/yyyy，而非MM/dd/yyyy。

Answer 2

我在网络应用程序中使用vb.net

我提供的页面代码可能会帮助您处理日期

---

ASPX

---

---

背后的代码

---

Partial Class DateFormatConversions Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    lblDate.Text = Today.ToString("M/d/yyyy")
End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
    lblDate.Text = Today.ToString("MM/dd/yyyy")
End Sub 
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
    lblDate.Text = Today.ToString("d/M/yyyy")
End Sub

Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
    lblDate.Text = Today.ToString("dd/MM/yyyy")
End Sub

Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
    Dim DTFI As New System.Globalization.DateTimeFormatInfo
    DTFI.ShortDatePattern = DropDownList1.SelectedValue

    Dim addedDate As DateTime
    addedDate = DateTime.Parse(TextBox1.Text, DTFI)

    lblDateOutput.Text = addedDate.ToLongDateString
End Sub End Class

Answer 3

Imports Microsoft.VisualBasic  Imports System.Globalization  Public Class DatumKonvert1 Public Shared Function DK1(ByVal myDMstring As String) As Date 
Dim source As String = myDMstring 
Dim d As DateTime = DateTime.ParseExact(source, "d'/'M'/'yyyy", CultureInfo.InvariantCulture) 
Dim resultMydate As String = d.ToString("M'/'d'/'yyyy") 
Dim mdx = DateTime.ParseExact(resultMydate, "M'/'d'/'yyyy", CultureInfo.InvariantCulture) 
Return mdx     End Function End Class