在页面加载时修复文本框中的日期格式

Posted 2023-04-14

【中文标题】在页面加载时修复文本框中的日期格式

【英文标题】：fixing date format in textbox on pageload

【发布时间】：2019-05-31 10:33:25

【问题描述】：

我必须在文本框中的 vb.net 中修复页面加载时的日期格式 MM/dd/yyyy 但是一旦由于其他文本框中的更改而刷新页面，它就会更改为其他格式，例如 dd/MM/yyyy

我该怎么办

日期

加热无

javascript 函数 isNumber1(evt, element) var charCode = (evt.which) ？ evt.which : event.keyCode 如果 （ (charCode != 45 ) && (charCode != 47 ) && // (charCode 57)) 返回假； 返回真；

//获取页面加载日期代码如下

私有子 getdateshift() txtDate.AutoPostBack = False If Now.Hour = 0 OrElse Now.Hour = 1 OrElse Now.Hour = 2 OrElse Now.Hour = 3 OrElse Now.Hour = 4 OrElse Now.Hour = 5 然后 txtDate.Text = Now.Date.AddDays(-1) 别的 txtDate.Text = 现在.日期 结束如果

    dte = Now
    Select Case dte.Hour
        Case 6 To 13
            Shift = "A"
        Case 14 To 21
            Shift = "B"
        Case 9 To 17
            Shift = "G"
        Case Else
            Shift = "C"
    End Select
    Dim i As Integer = 0
    rblShift.ClearSelection()
    For i = 0 To rblShift.Items.Count - 1
        If rblShift.Items(i).Text = Shift Then
            rblShift.Items(i).Selected = True
            Exit For
        End If
    Next
    dte = Nothing
    Shift = Nothing
End Sub

txtDate.Text=Now.Date //获取系统当前日期

CDate(txtDate.Text) //将值传递给函数

Format(CDate(txtDate.Text),"MM/dd/yyyy") //将数据保存到数据库中

或

Convert.ToDateTime(txtDate.Text) //在数据库中传递值并函数

每当 txtHeat 文本框更改时，txtDate 格式不应更改，并且当表单保存时，txtDate 也不会更改

【问题讨论】：

您可以使用 .ToString() 来打印时间。例如 DateTime.Now.ToString("MM/dd/yyyy")

thnku 我已经做过这件事了，但是页面加载时格式没有得到固定，有时它固定有时没有，所以我使用 Dim sFormat As System.Globalization.DateTimeFormatInfo = New System.Globalization.DateTimeFormatInfo () sFormat.ShortDatePattern = "MM/dd/yyyy" txtDate.Text = Format(Convert.ToDateTime(Now.Date, sFormat), "MM/dd/yyyy") 它有工作

【参考方案1】：

如果我理解正确，几天前我也发生了类似的事情，我从数据库中检索日期并将其放在文本框中，VB 不断更改格式并显示 MM/DD/YYYY hh:mm我用这行代码解决了它。

Textbox1.text=DateValue(DateSource.ToString("yyyy-MM-dd")

替换变量的 DateSource 或任何有你的日期。由于某种原因，如果没有 DateValue，它会引发错误，当它识别为时间或日期时，它看起来像文本框自动格式化。

希望这就是您想要的。

【讨论】：

Dim cmd As SqlClient.SqlCommand = rwfGen.Connection.CmdObj 我的数据库是通过组织服务器连接的，那么它也可以工作

【参考方案2】：

我在再次加载页面的所需函数中使用了以下代码

Dim sFormat As System.Globalization.DateTimeFormatInfo = 新 System.Globalization.DateTimeFormatInfo()

sFormat.ShortDatePattern = "dd-MM-yyyy" txtDate.Text = Format(Convert.ToDateTime(Now.Date, sFormat), "dd-MM-yyyy")