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