PROBLEMA: Utilização anos de 2 dígitos com ÉData pode produzir resultados inesperados

A função IsDate() poderá devolver resultados inesperados se forem transmitidos uma data que contém um ano de 2 dígitos.

As data funções VBA ÉData , formato , CDATA e CVData utilizam uma função na automatização OLE (OleAut32.dll). Esta função procura todos os formatos de data por tokenizing cada um dos valores separados pela cadeia que representa a data e devolve um valor boleano que indica se a entrada pode ser representada como uma data.

Isto é importante lembrar-se quando utiliza a função para interpretar uma data que contém um ano de 2 dígitos. Idiomas diferentes utilizam vários formatos de data (ou seja, mm/dd/aa, aa/mm/dd, "DD MMM aa", "Aa MMM DD" e assim sucessivamente) e, por isso, 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 quer 29 de Fevereiro é uma data válida para um ano específico, é um exemplo de onde poderá obter resultados inesperados quando passar ÉData funcionar uma data que contém um ano de 2 dígitos. Para ser mais específico, passar a função ' ÉData um ambíguo data tal como "29-Fev-01", irá resultar em ÉData verificar todos os formatos de data disponível e devolvem VERDADEIRO como 1 de Fevereiro de 2029 é uma data válida. No entanto, quando o ano totalmente qualificado é transmitido como "29-Fev-2001", em seguida, ÉData pode determinar que esta é uma data inválida e assim devolverá FALSO.

Crie uma função de wrapper à volta a função ÉData para converter a data de um ano com 4 dígitos antes de passar a data convertida para a função IsDate() .

Este comportamento ocorre por predefinição.

As funções OleAut32.dll utilizar um padrão "Deslizar ano" para que, por predefinição, todos os anos de 2 dígitos no intervalo 0 - 29 são considerados como correspondendo ao século XXI e estas no intervalo de 30-99 são in a 1900s. Isto pode ser facilmente substituído com a seguinte função de mensagens publicitárias.

A documentação para a função ' ÉData define este comportamento foi concebida.

IsDate(expression)

Passos para reproduzir o comportamento

1. Inicie um novo VB Standard EXE projecto. É criado o Form1 por predefinição.
2. Coloque um CommandButton (Command1) no Form1.
3. Cole o código seguinte na secção declarações de 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. Seleccione F5 para executar o projecto e clique em Command1 . Aparecerá a seguinte mensagem:
   Data válida encontrado: 01/02/2029

Passos para evitar o problema

1. Substitua o código anterior no módulo do Form1 com o código seguinte que inclui a utilização de uma função de mensagens publicitárias:

   
      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 projecto e seleccione Command1 . Conforme esperado, aparecerá a seguinte mensagem:
   29 De Fev de 2001 não é uma data válida