VBA Access - Convertendo o conteúdo de um TextBox em Data (Convert TextBox values to Dates)

Termo de Responsabilidade 

Conversões são tão comuns que chegam a ser monótonas. Mas entendo que são fundamentais para quem está começando...Freqüentemente utilizo textboxes como campo para o dataentry de Datas (Date). O problemas é que apesar de formatá-los para se parecerem com uma data, continuam contendo um valor text. A função CDate() é uma boa solução para este trabalho. Escrevo uma function e mando todo o trabalho para essa função interna. Minha function captura o tipo texto (Text) e o converte para data (Date).

Function Vert2Dt(dtStr As String) As Date       ' Converte o conteúdo do textbox formatado como data em uma data "real".         Let Vert2Dt = CDate(Left$(dateString, 2) & "/" & Mid$(dateString, 3, 2) & "/" & Right$(dateString, 4)) End Function

References:

Tags: VBA, Access, convertions, conversões, Date, Text,