PROBLEMA: Usando 2 dígitos com IsDate pode produzir resultados inesperados

A função IsDate() pode retornar resultados inesperados se passado a uma data que contém um ano de 2 dígitos.

As VBA data funções IsDate , formato , CDATA e CVDate utilizam uma função encontrada na automação OLE (OleAut32.dll). Esta função localiza todos os formatos de data possível por tokenizing cada um dos valores separados na seqüência de caracteres representando a data e retorna um valor Boolean que indica se a entrada pode ser representada como uma data.

Isso é importante lembrar-se ao usar a função para interpretar uma data que contém um ano de 2 dígitos. Localidades diferentes utilizar vários formatos de data (ou seja, mm/dd/aa, aa/mm/dd, "DD MMM aa", "YY MMM DD" e assim por diante) e, portanto, a função tenta os dígitos em todas as posições até que a função tiver encontrado uma data válida ou esgotado todas as possibilidades.

Corrente se 29 de fevereiro é uma data válida para um ano específico, é um exemplo de onde você pode obter resultados inesperados quando passando IsDate funcionar a uma data que contém um ano de 2 dígitos. Para ser mais específico, passar a função IsDate um ambíguo data como "29-fev-01", irá resultar em IsDate verificando todos os formatos de data disponíveis e retornam VERDADEIRO como 1 de fevereiro de 2029 é uma data válida. No entanto, quando o ano totalmente qualificado é passado como "29-fev-2001", em seguida, IsDate poderá determinar que isso uma data inválida e, portanto, retornará FALSE.

Crie uma função wrapper em torno a função IsDate para converter a data em um ano de 4 dígitos antes de passar a data convertida para a função IsDate() .

Esse comportamento é por design.

As funções no OleAut32.dll use um padrão "Deslizar ano" de modo que, por padrão, todos os anos de 2 dígitos no intervalo de 0 - 29 são considerados como sendo o 2000s e esteja no intervalo 30-99 estão na 1900s. Isso pode ser substituído facilmente com a seguinte função de wrapper.

A documentação para a função IsDate define ele é projetado comportamento.

IsDate(expression)

Etapas para reproduzir o problema

1. Inicie um novo projeto Standard EXE VB. O Form1 é criado por padrão.
2. Coloque um CommandButton (Command1) no Form1.
3. Cole o código a seguir na seção declarações do Form1.
   

      Private Sub Command1_Click()
      Dim bIsDate As Boolean
      Dim sDate As String
   
       sDate = "29 FEB 01"
       bIsDate = IsDate(sDate)
       If bIsDate Then
          MsgBox "Valid Date Found : " & Format(sDate, "mm/dd/yyyy")
       Else
          MsgBox sDate & " Is Not a Valid Date"
       End If
      End Sub
   						

4. Selecione F5 para executar o projeto e clique em Command1 . A seguinte mensagem será exibida:
   Data válida encontrado: 02/01/2029

Etapas para evitar o problema

1. Substitua o código anterior no módulo Form1 com o código a seguir que inclui o uso de uma função wrapper:

   
      Private Sub Command1_Click()
      Dim bIsDate As Boolean
      Dim sDate As String
   
       sDate = ConvertYear("29 FEB 01")
       bIsDate = IsDate(sDate)
       If bIsDate Then
          MsgBox "Valid Date Found : " & Format(sDate, "mm/dd/yyyy")
       Else
          MsgBox sDate & " Is Not a Valid Date"
       End If
    
      End Sub
   
      Private Function ConvertYear(sDate As String) As String
      Dim sYear As String
   
      ' This function currently uses the same sliding year as OleAut32.dll, 
      ' but can be customized to fit the needs of the application.
   
      sYear = Right(sDate, 2)
      If Val(sYear) <= 29 Then   
        ConvertYear = Left(sDate, 6) & " 20" & sYear
      Else
        ConvertYear = Left(sDate, 6) & " 19" & sYear
      End If
   
      End Function
   					

2. Execute o projeto e selecione Command1 . Conforme o esperado, a seguinte mensagem será exibida:
   29 De fev de 2001 Não É uma data válida