Dato på første ugedag i en given uge.

ca sådan;

beginningdate = date()
ugeNr1  = DatePart("ww", beginningdate, vbMonday, vbFirstFourDays)
dagiuge1 = DatePart("W", beginningdate, 2)-1
dato1    = DateAdd("d", -dagiuge1, beginningdate)
dagnavn1 = WeekdayName(dagiuge1)
ugeNr2  = DatePart("ww", dateadd("d",7,beginningdate), vbMonday, vbFirstFourDays)
dagiuge2 = DatePart("W", dateadd("d",7,beginningdate), 2)-1
dato2    = DateAdd("d", -dagiuge2, dateadd("d",7,beginningdate))
dagnavn2 = WeekdayName(dagiuge2)

Hey ... for s**** da ... det rykker :D
Hvis funktionen først skal gælde fra middag (kl. 12:00) ændre jeg bare:

beginningdate = date()-0.5

Right?

nej - det ser meget skævt ud. Du bliver nok nærmere nødt til at gå ind og sammenligne på klokkeslet

if hour(now()) > 12...

hmm... det forstår jeg ikke.
date()-1 er da en given dato minus én dag ikke?
Vil det ikke virke hvis jeg bare trækker en halv dag fra?
Hvordan havde du tænkt dig at funktionene skulle se ud i hour(now()) > 12?

FYI: Jeg skal kun bruge datoen; altså fx. 12.02.2007 og ikke andet.

hvis man skal plusse/minusse tider vil man normalt bruge dateadd-funktionen.

ikke helt med?

nå ja ... super nu virker det ...
Smid lige et svar så du ka' få dine point...

:)

lukketid?