Hur får jag fram sissta dagen i en månad?
ex denna månad är 2007-10-31

Dim startDatum as Date
Dim d as Date
startDatum = "2007-10-29"
d = Year(startDatum) & "-" & Month(startDatum) & "-01" 'd= 2007-10-01
d = DateAdd("m", 1, d) 'Lägg till en månad. d= 2007-11-01
d = DateAdd("d", -1, d)'Ta bort en dag d= 2007-10-31


Jag skrev detta på fri hand så parametrarna i DateAdd kan vara i fel ordning.

/johan/

Har för mig att dag 0 ger sista dagen i föregående månad.

dvs Date(2007,11,0) ger sista dagen i oktober

Kanon tack! & så här blev resultatet:
startDatum = Date
startDatum = Year(startDatum) & "-" & Month(startDatum) & "-01"
d = Year(startDatum) & "-" & Month(startDatum) & "-01"
d = DateAdd("m", 1, d)
d = DateAdd("d", -1, d)
Debug.Print startDatum & " - " & d
DTPicker(0).Value = startDatum
DTPicker(1).Value = d

Coolt, det hade jag ingen aning om!

men man måste nog skriva DateSerial(2007,11,0) i vb6

[tillägg:] Det skulle vara svar till Martin...