PDA

Vollständige Version anzeigen : Datum aus KW-Jahr


Richi
20.10.2001, 14:06
Hallo,
habe ein Problem (für viele von euch ein 'kleines').
Ich möchte aus zwei Feldern, Kalenderwoche (int) und Jahr (int), das Datum zurückgewinnen.

Hoffe jemand kann mir einen Tipp geben.

Vielen Dank im voraus und ein schönes Wochenende

Richi

Stefan Kulpa
20.10.2001, 15:25
<font face="Verdana" size="2">Hallo Richi,

so solltest Du zumindest den ersten Wochentag dieser Woche herausfinden:</font>

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre>
<span class="TOKEN">Function</span> FirstDayOfWeek(lWeek <span class="TOKEN">As</span> <span class="TOKEN">Long</span>, lYear <span class="TOKEN">As</span> <span class="TOKEN">Long</span>) <span class="TOKEN">As</span> <span class="TOKEN">Date</span>

<span class="TOKEN">Dim</span> dtHelp <span class="TOKEN">As</span> <span class="TOKEN">Date</span>
dtHelp = DateAdd("ww", lWeek - 1, DateSerial(lYear, 1, 1))
FirstDayOfWeek = dtHelp - (Weekday(dtHelp, vbMonday) - 1)
_<span class="TOKEN">End</span> <span class="TOKEN">Function</span></pre></div>

<font face="Verdana" size="2">HTH</font>

Richi
21.10.2001, 00:04
Hallo Stefan,
klappt bestens...

Vielen Dank und ein schöner Sonntag