Zdravím,
řeším tento problém. Mám číslo týdne (např. 44) a rok (např. 2013). Potřeboval bych funkci ve VBA, která z těchto údajů zjistí datum prvního dne daného týdne v daném roce.
Našel jsem toto řešení, ale výsledek není správný.
Public Function Week2Date(WeekNo As Long) As Date
Dim Jan1 As Date
Dim Sub1 As Boolean
Dim Ret As Date
Jan1 = DateSerial(2013, 1, 1)
\' Sub1 = (VBA.Format(Jan1, \"ww\", VBA.vbSunday, VBA.vbFirstJan1) = 1)
Sub1 = (Format(Jan1, \"ww\", vbSunday, vbFirstJan1) = 1)
Ret = DateAdd(\"ww\", WeekNo + Sub1, Jan1)
Ret = Ret - Weekday(Ret) + 7
Week2Date = Ret
End Function
Můžete mi prosím poradit, v čem by mohl být problém. Případně jiné řešení.
Díky za odpověď.
V této diskuzi zatím nejsou žádné příspěvky. |
Word
Excel
PowerPoint
Access
Outlook
ECDL
