Log(FormatarData("1981-08-11", "yyyy-mm-dd", "dd/mm/yyyy"))
Log(FormatarData("1981-08-11", "yyyy-mm-dd", "dd de MMM de yyyy"))
'Returns a date converted from format1 to format2
'Element format accepted: dd, mm, yy, yyyy, MMM
'example: FormatarData("1981-08-11", "yyyy-mm-dd", "dd/mm/yyyy")
Sub FormatarData(data As String, formato1 As String, formato2 As String) As String
Dim result As String = formato2
If formato2.IndexOf("MMM") <> -1 Then
Dim meses() As String = Array As String ("janeiro", "fevereiro", "março", "abril", "maio", "junho", "julho", "agosto", "setembro", "outubro", "novembro", "dezembro")
result = result.Replace("MMM", meses((data.SubString2(formato1.IndexOf("mm"), formato1.IndexOf("mm")+2)) - 1))
Else
result = result.Replace("mm", data.SubString2(formato1.IndexOf("mm"), formato1.IndexOf("mm")+2))
End If
If formato1.IndexOf("yyyy") = -1 Then
result = result.Replace("yy", data.SubString2(formato1.IndexOf("yy"), formato1.IndexOf("yy")+2))
Else
result = result.Replace("yyyy", data.SubString2(formato1.IndexOf("yyyy"), formato1.IndexOf("yyyy")+4))
End If
result = result.Replace("dd", data.SubString2(formato1.IndexOf("dd"), formato1.IndexOf("dd")+2))
Return result
End Sub