FUNÇÃO DE CONVERSÃO - CDATE

Cdate

    Função empregada para converter um campo Data/Hora, uma string, expressão que resulte em uma string ou data literal válida, utilizando esta sintaxe:

Cdate(Expressão)

Onde, 

• Expressão: argumento obrigatório que deve ser avaliado para uma data válida. 

As seguintes considerações são válidas para a função Cdate: 

• Empregue a função Cdate quando quiser retirar a data de um campo de dados do Microsoft Access contendo os valores Data/Hora;
• Evite codificar strings na forma textual, fornecendo-as como uma data literal envolvida pelos caracteres “#” (Ex.: Em vez de empregar “25/04/1961”, utilize #04/25/1961#;
• Quando expressão for uma data literal, lembre-se de fornecê-la entre um par de caracteres “#”, empregando o formato “mm/dd/aaaa”;
• Cdate reconhece strings que contenham datas formatadas com as características de localização do seu sistema, com a ordem correta de dia, mês e ano;
• Cdate não reconhece strings que contenham o dia literal da semana;
• Cdate também reconhece como datas válidas números inteiros que se situem dentro da faixa aceitável de datas do VBA. Quando números são convertidos para datas, apenas a faixa inteira é empregada, sendo a faixa fracionária convertida para hora, com o valor  (zero) decimal sendo considerado (0:00);
• Você pode empregar a função IsDate() para verificar se uma string contém uma data válida antes de empregar a função Cdate para convertê-la;
• A função CVDate() também pelo ser utilizada pelo VBA para converter um argumento em uma data válida. Ela existe apenas por compatibilidade para trás com outras versões do VBA. A diferença entre CVDate e Cdate, é que a primeira retorna um valor Variant, cujo subtipo é Date, enquanto que a segunda retorna um tipo de dados Date. 

Exemplo: Os exemplos que se seguem empregam a função Cdate para converter  diversos argumentos em datas válidas:

Dim datData as Date

datData = Cdate(“25/04/1961”)       ‘Retorna a data válida 25/04/1961

datData = Cdate(“25, abril, 1961”)  ‘Retorna a data válida 25/04/1961

datData = Cdate(22396)                   ‘Retorna a data válida 25/04/1961

datData = Cdate(“30/02/2000”)       ‘Provoca erro,pois a data é inválida

Até a Próxima!!