Function FixDate(d)
If Not IsDate(d) Then Exit Function
Select Case WeekDay(d)
Case 1: dag = "Söndag"
Case 2: dag = "Måndag"
Case 3: dag = "Tisdag"
Case 4: dag = "Onsdag"
Case 5: dag = "Torsdag"
Case 6: dag = "Fredag"
Case 7: dag = "Lördag"
End Select
Select Case Month(d)
Case 1: manad = "januari"
Case 2: manad = "februari"
Case 3: manad = "mars"
Case 4: manad = "april"
Case 5: manad = "maj"
Case 6: manad = "juni"
Case 7: manad = "juli"
Case 8: manad = "augusti"
Case 9: manad = "september"
Case 10: manad = "oktober"
Case 11: manad = "november"
Case 12: manad = "december"
End Select
FixDate = dag & " " & Day(d) & " " & manad
End Function