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

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

我正在使用以下代码

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

但我得到的错误是，‘从字符串“23/11/2010”转换为键入“Date”无效。’

---

请就此提供建议

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

• 打开选项
• 尽快放弃

  Microsoft.VisualBasic

  -命名空间

---

为了回答您的问题，您的日期的格式是

dd/MM/yyyy

，而不是

MM/dd/yyyy

我用VB.Net给大家两条经验法则：

• 打开选项
• 尽快放弃

  Microsoft.VisualBasic

  -命名空间

---

为了回答您的问题，您的日期的格式是

dd/MM/yyyy

，而不是

MM/dd/yyyy

我正在web应用程序中使用vb.net

我放了一个页面代码，可能会帮助你处理日期

---

ASPX

---

---

代码隐藏

---

---

我正在web应用程序中使用vb.net

我放了一个页面代码，可能会帮助你处理日期

---

ASPX

---

---

代码隐藏

---

---

为什么要放弃Microsoft.VisualBasic命名空间？它是VB的一部分，不会消失。但是，一定要放弃Microsoft.VisualBasic.Compatibility名称空间。@Chris Dunaway:因为导入

Microsoft.VisualBasic

也会导入将在自动完成中显示的“遗留”VB6函数。导入并特别是使用Microsoft.VisualBasic将使VB.NET成为面向对象和函数式语言功能的丑陋混合体，并破坏VB.NET的全部功能。为什么要放弃Microsoft.VisualBasic命名空间？它是VB的一部分，不会消失。但是，一定要放弃Microsoft.VisualBasic.Compatibility名称空间。@Chris Dunaway:因为导入

Microsoft.VisualBasic

也会导入将在自动完成中显示的“遗留”VB6函数。导入并特别是使用Microsoft.VisualBasic将使VB.NET成为面向对象和函数式语言功能的丑陋混合体，并破坏VB.NET的全部功能。请修改您文章的措辞格式，它几乎不可读。谢谢。我还添加了一个我在日期转换中使用的函数，我把它作为另一个答案，如果你能从中得到一些想法，请检查它。再次为您的评论感到抱歉Hanks mokokamello对于您的评论，我已经通过使用下面的代码Dim BLMonth，BLDay，BLYear作为字符串Dim dtBL作为Date BLDay=strbdate.Substring（0，InStr（strbdate，“/”）-1）BLMonth=strbdate.Substring（InStr（strbdate，“/”）3）解决了这个问题BLYear=strBLDate.Substring（InStrRev（strBLDate，“/”）dtBL=CDate（BLMonth&“/”&BLDay&“/”&BLYear&“）按空格键4次将告诉编辑器代码即将到来。例如：spaceX4然后键入“dim i as integer”你能修改一下你文章的措辞格式吗？它几乎不可读。谢谢。我还添加了一个我在日期转换中使用的函数，我把它作为另一个答案，如果你能从中得到一些想法，请检查它。再次为您的评论感到抱歉Hanks mokokamello对于您的评论，我已经通过使用下面的代码Dim BLMonth，BLDay，BLYear作为字符串Dim dtBL作为Date BLDay=strbdate.Substring（0，InStr（strbdate，“/”）-1）BLMonth=strbdate.Substring（InStr（strbdate，“/”）3）解决了这个问题BLYear=strBLDate.Substring（InStrRev（strBLDate，“/”）dtBL=CDate（BLMonth&“/”&BLDay&“/”&BLYear&“）按空格键4次将告诉编辑器代码即将到来。例如：spaceX4然后键入“dim i作为整数”

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

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