[VB6] Week van het jaar uit Datum halen

[Verwijderd]

Hoe kun je met VB6 de week van het jaar uithalen a.d.h van een datum. Ik ben eerst gezocht op google, en bij een andere forum spreken ze van WeekOfYear, maar dit ging niet over VB6. Ik probeerde:

code:

Datum.Text = Format(Now, "ww", WeekOfYear)

Maar dit werkte blijkbaar niet
Heeft er iemand een oplossing?

[Verwijderd]

Verwijderd schreef op 16 augustus 2004 @ 10:24:
Hoe kun je met VB6 de week van het jaar uithalen a.d.h van een datum. Ik ben eerst gezocht op google, en bij een andere forum spreken ze van WeekOfYear, maar dit ging niet over VB6. Ik probeerde:

code:

Datum.Text = Format(Now, "ww", WeekOfYear)

Maar dit werkte blijkbaar niet
Heeft er iemand een oplossing?

hangt er vanaf welk soort weeknummer je wilt. kijk even op weeknummers (kan ook op vb toegepast worden)
als ik even zelf niet nadenk , dan zou ik het aantal verlopen dagen tov het begin van het jaar delen door 7.

[Lorn]

Er is gewoon een hele mooie VB functie voor die dat voor je uitrekent.

Visual Basic:

Call MsgBox("Dit is week " & DatePart("ww", Now), vbInformation + vbOkOnly)

Dit geeft deze week terug dat het week 34 is.

[Xanion]

Doe onderstaand, staat ook in de helpfile overigens

Format(Date, "ww", vbUseSystemDayOfWeek, vbUseSystem)

[Verwijderd]

Ok, prachtig, ik heb de laatste code gebruikt.

[Verwijderd]

Helaas zit er een fout in de format functie waardoor soms week 53 geretourneerd wordt terwijl het week 1 zou moeten zijn (bijv. voor 12-29-2003)
Zie dit MSDN artikel voor een oplossing:
http://support.microsoft....kb/articles/q200/2/99.asp