Função de data e hora...

Não é uma grande novidade mas eu uso esta função e "funciona" bem direito até...

'Função de Formatação de Data e HoraFunction PrepareDAT(datData, Forma)    Dim data_formatada, hora_formatada    If Not IsDate(datData) Then        datData = Now()    End If    Dia = "" & Right("00" & Cstr(Day(datData)), 2)    Mes = "" & Right("00" & Cstr(Month(datData)), 2)    Ano = "" & Right("0000" & Cstr(Year(datData)), 4)    Hora = "" & Right("00" & Cstr(Hour(datData)), 2)    Minuto = "" & Right("00" & Cstr(Minute(datData)), 2)    If Forma = 1 Then        PrepareDAT = CStr(Trim(Dia) & "/" & Trim(Mes) & _                     "/" & Trim(Ano))    ElseIf Forma = 2 Then        PrepareDAT = CStr(Trim(Hora) & _                     ":" & Trim(Minuto))    End IfEnd Functiondata_true = PrepareDAT(now, 1)hora_true = PrepareDAT(time, 2)