Function DatVr(Datum As Date) As Date
Dim I As Double

I = Datum
I = I + 0.000694445
DatVr = Format(I, "dd.mm.yyyy hh:nn")
End Function