0

我很难将日期从 dd-mm-yyyy 格式转换为 dd/mm/yyyy 格式。

例如，当我在 excel 中输入日期为 25/02/2012 (dd/mm/yyyy) 时，如果在下一行输入日期后，它会将日期转换为 25-02-2012 (dd-mm- yyyy) 格式。

我想要做的是，当我在 excel 中以 (dd/mm/yyyy) 格式输入日期时，它应该保持原样，并且在我下一次时不应该将其更改回 (dd-mm-yyyy) 格式细胞。

当我输入我的日期作为当前系统日期时，我的代码给了我一个错误，我无法验证日期，即输入的日期是否为有效日期

    Sub valid_date()
    ' ---------------------------------------------------------------------
    ' Final Code - Trial
    ' ---------------------------------------------------------------------

    Dim d1 As Variant
    Dim IssueDate As Variant
    Dim str As Variant

        d1 = Worksheets("Sheet1").Cells(6, 1).value

            MsgBox " The Issue Date format is " & d1

        sysdate = Date

        MsgBox "System Date is " & sysdate


                If IsDateValid(d1) Then ' if date is in dd/mm/yyyy format then print this
            If (d1 > sysdate) Then
                MsgBox "Invalid date"
            End If
        End If
     End Sub

    Function IsDateValid(pdate) As Boolean

        IsDateValid = False

        Set RegExp = CreateObject("VBScript.RegExp")

        '   it only matches whether date is in dd/mm/yyyy format or not
        '
        '   [1-9]|0[1-9]|1[0-9]|2[0-9]|3[0-1]   ---> it allows the DATE  from 01 to 31
        '   [1-9]|0[1-9]|1[0-2]                 ---> it allows the MONTH from 01 to 12
        '   1[9][0-9][0-9]|2[0][0-9][0-9]       ---> it allows the YEAR  from 1900 to 2099
        '
        '   below is the regular expression for checking the date in dd/mm/yyyy format

        RegExp.Pattern = "^([1-9]|0[1-9]|1[0-9]|2[0-9]|3[0-1])[/]([1-9]|0[1-9]|1[0-2])[/](1[9][0-9][0-9]|2[0][0-9][0-9])$"

        ' check whether the date is in dd/mm/yyyy format or not....
        tempdate = RegExp.Test(pdate)

             If tempdate Then    ' if tempdate is in dd/mm/yyyy format than proceed further
                'If isdate(tempdate) Then  ' if date is a valid date then proceed further
                 If isdate(pdate) Then
                    IsDateValid = True
                Else
                    IsDateValid = False
                End If
            Else
                IsDateValid = False
            End If               
    End Function

我正在使用上述代码通过使用正则表达式来检查日期是否为 dd/mm/yyyy 格式

但我面临的问题是，每当我以 dd/mm/yyyy 格式输入日期时，它将 Excel 中的日期作为 dd-mm-yyyy 格式。

我已经稍微更新了我的代码，当我输入我的日期作为当前系统日期时，我还需要更多帮助，这给了我错误

例如，当我输入我的日期为 09/09/2012（假设这是您当前的系统日期）并且当我使用 IsDate 方法检查此日期时，它给了我一个错误

我再次编辑了我的代码，

谁能帮我解决这个问题

4

3 回答 3

1

您不需要 VBA/RegEx。选择您输入日期的单元格/列并创建自定义数字格式：dd/mm/yyyy。现在，无论您如何输入有效日期（05-05-2000、3-1-2010、14/6-1990 等），它都应该被格式化为dd/mm/yyyy.

而且，正如 Olle 指出的那样，您应该使用该Date对象，而不是Variant在 VBA 中操作日期。这样，您使用的是序列号，而不是具有潜在格式问题的字符串。

于 2012-08-09T18:00:50.050 回答
0

首先，我建议您检查计算机上日期的区域设置。如果您将其设置为使用“dd/mm/yyyy”格式，Excel 也将使用它，并有望消除对任何 RegEx VBA 代码的需求。

其次，如果您确实需要使用 VBA 重新格式化日期，我强烈建议您使用 Date 数据类型而不是 Variants。我还建议您在代码顶部使用 Option Explicit 并显式声明任何变量，以最大程度地减少拼写错误并生成更高质量的代码。

第三，我又查看了您的代码，似乎它永远不会起作用：

1. 因为它从未被声明过，所以是tempdatea 2.你从3的结果中Variant
赋值tempdate为abooleanRegExp.Test(pdate)
IsDate(tempdate)falsebooleanDate

同样，如果您使用Date数据类型，则可以跳过 RegEx ... :)

于 2012-08-09T11:47:55.697 回答
0

我使用 Adob​​e 在线 PDF 到 Excel，日期正确显示为 MM/DD/YYYY，但是在提取月份 (=Month()) 时，它返回 DD 部分。它被解释为 DD/MM/YYYY。我将文件保存为 .csv 关闭并重新启动 excel 并打开 .csv 文件，日期是正确的 MM/DD/YYYY。

于 2012-12-20T13:18:36.517 回答