Hej

Att få fram veckonummer och annan information är enkelt i VB
och VBA. Mitt problem är precis det omvända

Jag har ett veckonummer ett visst år och vill få fram datumet för
första dagen (måndagen) den veckan. Finns det en enkel funktion
för det här i stil med DATEPART? eller måste jag knåpa ihop något
eget?

/Emma

Du måste knåpa ihop något eget.

Hmm - misstänkte det. Då får det bli hobbylösningen som fungerar - inte lönt att lägga tid på det... Det är inte i ngt prog ändå... =)

Tack för ditt snabba svar Andreas.

/Emma

Jag funderade på samma sak häromdagen och slängde i hop en liten funktion som jag tror skulle kunna fungera.

Denna funktion inbillar jag mig returnerar, måndagens datum i den vecka som du är intresserad av. Således i detta fall för denna vecka: 2001-12-17.

Function startDateOfWeek(dYear,dWeeksToAdd)
dim dDateCount : dDateCount = dYear &"-01-01"

while not cint(datepart("ww",(dDateCount),2,2)) = 2
dDateCount = dateadd("d",1,dDatecount)
wend
startDateOfWeek = FormatDateTime(dateadd("ww",(dWeeksToAdd - datepart("ww",(dDateCount),2,2)),dDateCount),2)
end function


startDateOfWeek("2001",datepart("ww",(now()),2,2))

Hoppas det kan vara till ngn hjälp!

Är har du en lösning.

[Veckonummer till datum]

/Janne

Hej
För ett bra tag sedan lade jag ut min lösning på detta prob

Du kan kanske använda delar av detta.

http://www.pellesoft.nu/login/upload/t_view4.asp?tid=38

Testa gärna pelles fina sökmotor det finns det mesta här.

Mvh
Sven

SvenPon - jag använder ständigt och jämt Pelles sökmotor
- har hjälpt mig oräkneliga gånger... =)

Tyvärr verkade det som om jag inte sökte på rätt saker denna gång
- så tack för hjälpen allihop! =)

/Emma

Använd en sådan här funktion för att ta fram första dagen i veckan , när du har den är det en smal sak att ta fram resten av veckan.
<code>
Private Sub Command1_Click()

MsgBox StartOfWeek(2001, 52)

End Sub

'i en modul

Public Function StartOfWeek(ByVal Year As Integer, ByVal WeekNumber As Integer) As Date
'func för att ta fram start på vecka

StartOfWeek = DateSerial(Year, 1, 1)
StartOfWeek = StartOfWeek + (WeekNumber - 1) * 7
StartOfWeek = StartOfWeek - (Weekday(StartOfWeek, vbMonday) - 1)

End Function


</code>

hoppas det funkar för dig med

Du utgår från att första januari är vecka ett. Har för mig att det är den vecka med fyra daga av det nya året. Så om 1 januari är en fredag lördag eller söndag. ÄR det veckan efter.

Du har rätt där sorry