Cesil -> Funktionen 'FDIU' er desværre ikke 100% vandtæt. Den har et problem med uge 1 i fx år 1999. Output er vist herunder - og ja, det er ikke korrekt. For hver uge i fx år 1999 og 2010 returnere funktion faktisk noget forkert.
Fixtures for week: 1 [28-12-1998 - 03-01-1999]
Jeg har lavet en funktion, som tager højde for reglen med antallet af dage i første uge og dermed om ugen tilhører aktuelle eller sidste år. Den ser således ud:
Function WeekToDate(InWeek, InYear) Dim StartDay Dim daysBack StartDay = Weekday(DateSerial(InYear, 1, 1), 2)
daysBack = 7 - StartDay
If daysBack >= 3 Then WeekToDate = DateSerial(InYear, 1, 1) - StartDay + 1 + (InWeek - 1) * 7 Else WeekToDate = DateSerial(InYear, 1, 8) - StartDay + 1 + (InWeek - 1) * 7 End If End Function
Som før: mandag = WeekToDate(1,1999) sondag = dateadd("d",6,mandag) 'bemærk kun 6 dage!
Tusind tak for hjælpen alle sammen, jeg giver cesil 35 point for at have forsøgt med en næsten godkendt funktion, men zembla får 65 for at have lavet en der virker 100% (efter mine tests)....
Igen, tak for hjælpen - også til dig jpjv for at have forsøgt :)
Med venlig hilsen
Kim.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.