Option Explicit Function FormatDatuma(Polje) As Date Dim D D = Left(Polje, 10) FormatDatuma = D FormatDatuma = Format(FormatDatuma, "dd.mm.yyyy") End Function