Dato for sidste dag i sidste måned

=SLUT.PÅ.MÅNED(IDAG();-1)

Du kan indsætte denne kode i et modul. Så kan du i en celle skrice =sdsm(). Så indsættes sidste dag i i sidste måned i cellen.

Function SDSM() As String
    m = Month(Date) - 1
    Select Case m
        Case 1, 3, 5, 7, 8, 10, 12
            d = 31
        Case 4, 6, 9, 11
            d = 30
        Case Is = 2
            If Year(Date) Mod 4 = 0 Then
                If Year(Date) Mod 400 = 0 Then
                    d = 28
                Else
                d = 29
                End If
               
            Else
                d = 28
            End If
        End Select
    SDSM = Year(Date) & m & d
End Function

vejmand-> Det skulle jeg have tænkt på :-) Men man skal lige huske at installere Analysis Toolpack før SLUT.PÅ.MÅNED virker.

Prøv i øvrigt at finde SLUT.PÅ.MÅNED af 01-03-2000. Ikke så godt! :-(

jkrons >> Hvad mener du med SLUT.PÅ.MÅNED af 01-03-2000. Ikke så godt.

Min viser 29-02-2000, det er vel korrekt???

vejmand-> Nope. Hvis årstallet kan deles med 400 er det ikke skudår. Det er selvfølgelig kun et problem hver 400 år, men alligevel :-)

Så er dette altså ikke korrekt? http://da.wikipedia.org/wiki/Skud%C3%A5r

Jeg tror altså du tar fejl.  :-)

http://www.glemsom.dk/kalender/skudaar.htm
http://hjem.get2net.dk/hos-jm/skudaar.html
http://klid.dk/kde/da/docs/kdeedu/kstars/ai-leapyear.html

Selvfølgelig gør jeg det. Torsk :-)

Send bare et "Svar" alligevel, jeg glemte at gøre opmærksom på Analysis Toolpack. (Funktioner - Tilføjelsesprogrammer)
:-)

Næh, snup du bare point. Du var jo først alligevel :-)

Kan spørgsmålet lukkes? Og tak til jkrons.  :-)