Retorna Data

Function RetornaData(str_dt As String) As String

On Error Goto erro
Dim dt_original,dia,mes,ano As String

dt_original = str_dt

dia = Right(str_dt , 2 )
mes = Mid( str_dt ,5 , 2 )
ano = Left( str_dt , 4 )

RetornaData = Cstr(dia) + "/" + Cstr(mes) + "/" + Cstr(ano)


sai:
Exit Function
erro:
Msgbox "Erro na função RetornaData da biblioteca BibRetencaoImposto na linha " + Str$(Erl) + " do tipo " + Str$(Err) + ": " + Error$
RetornaData = dt_original
Resume sai
End Function