Segue uma função muito útil para formatação de data no formato aaaa-mm-dd onde:
- aaaa, representa o ano em 4 dígitos;
- mm, representa o mês com 2 dígitos;
- dd, representa o dia com 2 dígitos.
Esta é uma ótima função para utilizar com o mySQL, por exemplo, já que o mesmo utiliza este formato internamente para representar datas.
Function FormataData(Data) If Data <> "" Then FormataData = DatePart("yyyy", Data) & "-" & Right("0" & DatePart("m", Data),2) & "-" & Right("0" & DatePart("d", Data),2) End Function