[SIZE=2]Function Convert[COLOR=navy]Date[/COLOR](R[COLOR=navy] As [/COLOR]Range)[COLOR=navy] As String[/COLOR]
Application.Volatile
[COLOR=navy]If [/COLOR]Is[COLOR=navy]Date[/COLOR](R.Value) [COLOR=navy]Then[/COLOR]
Convert[COLOR=navy]Date[/COLOR] = Format(R.Value, "d.m.") & year(R.Value) - 2000
[COLOR=navy]End If
End[/COLOR] Function[/SIZE]