Question

我需要将"dd-mm-yy"格式的日期复制到单元格中。但是，当它以"mm-dd-yy"格式输入单元格时，我相信这会在日期小于12时发生

Worksheets(1).Cells(i, 40).Value = Format(TextBox3.Value, "dd-mm-yy HH:mm:ss")

Worksheets(1).Cells(i, 40).Value = TextBox3.Value

如果我在文本框中输入03-09-2019并按Submit（提交），它应该在2019年3月9日本身。

相反，它更改为09-03-2019(09-march-19)。列格式也为"dd-mm-yy"格式。当日期为"30-08-19"时，它工作正常。

Answer 1

也许您可以尝试一下（与您解决的问题相同的是在date var中保存价值）：

Sub tryme()

    Dim TextBoxVal As Date

    If Not TextBox3.Value = vbNullString Then
        If IsEmpty(TextBox3.Value) = False Then



TextBoxVal = TextBox3.Value
TextBoxVal = Format(TextBox3.Value, "dd-mm-yy HH:mm:ss")

With ActiveWorkbook.Worksheets(1).Cells(i, 40)
   TextBoxVal = format(Month(.Value) & "/" & Day(.Value) & "/" & Year(.Value), "dd/mm/yyyy")

End With
Worksheets(1).Cells(i, 40).Value = TextBoxVal
        End If
    End If

End Sub

日期格式被更改

1 个答案: