generering af dato udfra følgende data

yes you can!

Great, How ;0)

That wasnt your question! Just joking :o)

For 30 points I will put you on the right track and then you can finish it off, how about that?

This is what I\'ve got so far, i just need the date of the day:

Dim datoen, aar, uge, dag, As String
datoen = Now()
aar = Year(Now)
uge = DatePart(\"ww\", datoen, vbMonday)
dag = Weekday(datoen, vbMonday)
Me.dato = aar * 10000 + uge * 100 + dag

You may be able to do it like that but I havent tested it.

For 30 points>
http://www.eksperten.dk/spm/96549

You may be able to make a shorter function but this function does work!

Her er en function der virker:

Function strToDate(Adat As String) As Date
    Dim aar As Integer
    Dim res As Date
   
    Dim i As Integer
    Dim istr As String
   
    aar = CInt(Mid(Adat, 1, 4))
    res = DateSerial(aar, 1, 1)
   
    For i = 1 To 370
        istr = CStr(aar) & _
            Format(DatePart(\"WW\", res, vbMonday, vbFirstFourDays), \"00\") & _
            WeekDay(res, vbMonday)
        If istr = Adat Then Exit For
        res = res + 1
    Next i
    strToDate = res
End Function

Niels

Du skal vist indsætte lidt ErrorHandling...

ehh Hvis loop\'et for lov at køre helt ud vil funktionen returnere en forkert dato.

eks indsættes:
if i <> 371 then
  strToDate = res
else
  strTodate = #1-1-1940#
end if

Niels

tak for hjælpen

Tak for hjælpen.

Du skal lige acceptere en af svarene for at lukke spørgsmållet.

Niels