Peter,
You can use the same code.
You have the advantage of being able to declare you variables as dates to
reduce errors.
Dim LongFred As Date
Dim EsterAfton As Date etc

NickHK

"peter the swede" wrote in message
oups.com...
Hi again,
I´ve done this in vbscript:
[KOD]longfred = DateAdd("d", -2, esterday)
esterafton = DateAdd("d", -1, esterday)
estermond = DateAdd("d", 1, esterday)
flygdag = DateAdd("d", 39, esterday)
pingstd = DateAdd("d", 49, esterday)
pingstaftn = DateAdd("d", -1, pingstd) [/KOD]
Is it possible to do that in Excek/VBA??

Thanks in advance
//Peter