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



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, 





Nenhum comentário:

Postar um comentário

diHITT - Notícias