jamm það eru til nokkrar leiðir.

Ég gef mér að í recordsettinu sértu með field sem heitir date.

1. Getur notað Select Case þannig:
dim manudurnr : month(rs(“date”))
dim manadarnafn

Select Case manudurnr

Case 1:
manadarnafn = “Janúar”
Case 2:
manadarnafn = “Febrúar”

og þá geturu skrifað út breytinu manadarnafn

Leið nr 2 sem er meira elegant og flottari er að búa til array (fylki) með mánuðunum og vísa síðan í það.

Þú getur að sjálfsögðu notað sömu trick fyrir daga.

Case <br><br>ask | <a href="http://bergur.is“ target=”_blank“ style=”text-decoration:none;">bergur.is</a

Hér er function sem þú notað og breytt eftir þörfum:

Function Dagsetning(GefinDagsetning)
Dim DagurNumer
Dim DagurHeiti(7)
Dim ManadarHeiti(12)
Dim ManadarNumer
Dim Manudur
Dim Dagur

DagurHeiti(1) = “Sunnudagur ”
DagurHeiti(2) = “Mánudagur ”
DagurHeiti(3) = “Þriðjudagur ”
DagurHeiti(4) = “Miðvikudagur ”
DagurHeiti(5) = “Fimmtudagur ”
DagurHeiti(6) = “Föstudagur ”
DagurHeiti(7) = “Laugardagur ”

ManadarHeiti(1) = “ janúar”
ManadarHeiti(2) = “ febrúar”
ManadarHeiti(3) = “ mars”
ManadarHeiti(4) = “ apríl”
ManadarHeiti(5) = “ maí”
ManadarHeiti(6) = “ júni”
ManadarHeiti(7) = “ júlí”
ManadarHeiti(8) = “ ágúst”
ManadarHeiti(9) = “ september”
ManadarHeiti(10) = “ október”
ManadarHeiti(11) = “ nóvember”
ManadarHeiti(12) = “ desember”

Manadardagur = Day(GefinDagsetning)
ManadarNumer = Month(GefinDagsetning)
DagurNumer = Weekday(GefinDagsetning)

Manudur = ManadarHeiti(ManadarNumer)
Dagur = DagurHeiti(DagurNumer)

Dagsetning = Dagur & Manadardagur & “.” & Manudur

End Function