Vba beregn ugedag

weekdayname(weekday(Date()))

>kimiwan Tak for det hurtige svar.
Jeg får en fejl "Sub procedure er ikke defineret"
Vh Henrik

Format(Now(), "dddd")

Format(YourDateField, "dddd")

weekdayname(weekday(date(),vbMonday ))
If you dont use vbMonday then the calculation will be wrong!

>terry Tak for det svar.
I 11/05-2002 18:45:28 laver den fejl at den fjerner () disse efter date.
Eks:weekdayname(weekday(date,vbMonday ))

jeg kan desværre ikke english, men jeg forstår din vba kode. Selve datoen henter den fra et felt i tabellen Tblhni og felted Startdato. Med kort dato format.
Jeg kører access 97 DK.
Vh Henrik

>terry
I 11/05-2002 18:35:09 og 11/05-2002 18:35:47 får jeg fejlen:
"#Navn?"
Vh Henrik

henrik13>Hvor er det du bruger koden? Du kan send mig dB'en og jeg vil kigge på det!
terry@santhell.dk :o)

>terry
Er afsendt.
Vh Henrik

I will send it back but just so others can see.
There are different ways of doing this depending where it is to be used.
Lets say you want to update Ugeday after you enter or change startdato
You would use:
Private Sub StartDato_AfterUpdate()
    If IsDate(Me.StartDato) Then Me.UgeDag = Format([StartDato], "dddd")
   
End Sub

In a Control Source for a field:
=Format([StartDato];"dddd")
or (the 2 = vbMonday which is the first day of the week)
=WeekdayName(Weekday([StartDato];2))
and in a query:
SELECT TblHni.StartDato, TblHni.UgeDag, Format([StartDato],"dddd") AS CalcDay

tak :o)