Проверьте конкретный формат даты в 64-разрядной версии VBA Excel 2010 - PullRequest
Новая
       22

Проверьте конкретный формат даты в 64-разрядной версии VBA Excel 2010

3 голосов
/ 03 марта 2012

Я делаю некоторые проверки для ячейки, где пользователь вводит значение даты. Правильный формат, который я ожидаю, это «m / d / yyyy», поэтому мне нужен способ проверить, что пользователь вводит дату в этом формате.

Как мне этого добиться?

Вот некоторые из проверок, которые я сделал: 

Dim StartDate As String
 Dim EndDate As String
 With Sheet1
    StartDate = WorksheetFunction.Trim(.Range("F2").Value)
    EndDate = WorksheetFunction.Trim(.Range("F3").Value)
 End With

 'Dates validations

 If StartDate = "" Or EndDate = "" Then
    MsgBox ("Dates can't be empty")
    Exit Sub
 End If

 If Not IsDate(StartDate) Or Not IsDate(EndDate) Then
    MsgBox ("Please check dates format")
    Exit Sub
 End If

 If CDate(StartDate) > CDate(EndDate) Then
    MsgBox ("Start Date can't be greater than End Date")
    Exit Sub
 End If

1 Ответ

0 голосов
/ 06 марта 2012

Решение Сиддхарта Раута:

Надеюсь, это поможет? support.microsoft.com / кб / 211485 .

...