Weeknummer uit datum (dd-mm-yyyy) halen

[Dmar]

Goedendag,

Ik zoek nu al een poosje naar een geschikte manier om het nummer uit een datum te halen.

De datum staat in een TextBox in een form en in de notatie dd-mm-yyyy.

Daarna moet hij in een andere TextBox gezet worden als enkel en alleen het weeknummer.

Ik heb al verscheidene manieren geprobeerd, maar zonder goed resultaat.

Weet iemand hoe je dit het beste kunt doen?

Alvast Bedankt!:thumb:

 

[edmoor]

Dat zou dit moeten zijn:

DatePart(DateInterval.WeekOfYear, Now)

 

[Dmar]

Bijkomend probleem hierbij is dat ik niet geheel begrijp hoe ik dit moet toepassen. Enige uitleg would be appreciated.

 

[MarnixICT]

Maak een event aan (als je dat nog niet hebt) van het opstarten van het form (handles mybase.load geloof ik). Voeg in deze sub de volgende code op:

textbox.text = DatePart(DateInterval.WeekOfYear, Now)

De code van edmoor staat los van de code die jij hebt gemaakt. Als je jouw textbox met dd-mm-yyyy weg zou halen, haalt het programma nog steeds het weeknummer op.

 

[Dmar]

Hij moet niet de HUIDIGE weekdatum pakken, hij moet de week 'berekenen' van de datum die in de TextBox staat.

 

[edmoor]

Wat denk je ervan om dan het woordje Now te vervangen door de textbox.text van de betreffende textbox?

 

[Dmar]

Geprobeerd, maar werkt niet.

 

[edmoor]

Laat dan eens zien hoe je dat hebt gedaan.

 

[Dmar]

Simpelweg:

( If Boxweek.Object.Value = "" Then (als er geen week ingevuld is, moet hij deze halen uit de ingevoerde leverdatum) )

Boxweek.Text = DatePart(DateInterval.WeekOfYear, Boxleverdatum.Text)

Else

....

 

[Dmar]

Wellicht dat het te maken heeft dat ik in Visual Basic for Applications werk en hierdoor niet over de juiste Add-Ins beschik?

 

[edmoor]

Probeer deze eens:

Boxweek.Text = DatePart("ww", Boxleverdatum.Text)

Zo gebruik ik het in VBA.

 

[Dmar]

Ok zo doet hij het wel. Bedankt!:thumb:

Edit: Dit topic kan tevens verplaatst worden naar VBA, waarvoor mijn excuses.

 

[Tha Devil]

Vraag verplaatst van "Visual Basic" naar "Visual Basic for Applications", verzoeken voor verplaatsing kun je via "Meld misbruik" doorgeven