Function FixDate(strDate)
If isNull(strDate) Or isEmpty(strDate) Then Exit Function
FixDate = Day(strDate) & chr(10) & MonthName(Month(strDate), False) & chr(10) & Year(strDate)
End Function
------------------ "Tål det inte att skämtas om, är det inte värt att ta på allvar."
Kan också skriva så här. Täcker även om det skulle vara "". ;)
Function FixDate(strDate)
If Len(strDate & "") = 0 Then Exit Function
FixDate = Day(strDate) & chr(10) & MonthName(Month(strDate), False) & chr(10) & Year(strDate)
End Function