Functie weeknummer aanroepen

marman · 2 apr 2018

Dag allemaal,

ergens op het forum vond ik deze code om het weeknummer van een datum te berekenen

Code:

Function Weeknr() As Integer
Application.Volatile
Weeknr = 1 + Int((Date - DateSerial(Year(Date + 4 - WeekDay(Date + 6)), 1, 5) + WeekDay(DateSerial(Year(Date + 4 - WeekDay(Date + 6)), 1, 3))) / 7)
End Function

Ik heb deze code in een module opgeslagen.
Mijn vraag:

Ik neem aan dat ik deze functie kan aanroepen via Weeknr() maar welke parameters moet ik dan nog meegeven?
En hoe kan ik als ik bijvoorbeeld een datum heb toegekend aan een variabele "D" de functie Weeknr op deze variabele loslaten?

veel dank weeral!

Marc

HSV · 2 apr 2018

Code:

Function weeknr()
 weeknr = DatePart("ww", Date, vbMonday, vbFirstFourDays)
End Function

Staat in A1 een datum waarvan je het weeknummer wilt weten?

Code:

Function weeknr(r as string)
 weeknr = DatePart("ww", r, vbMonday, vbFirstFourDays)
End Function

Met in de cel: =weeknr(A1)

snb · 3 apr 2018

Gebruik gewoon in Excel:

PHP:

= weeknum(today();21)

NB. 'Date' in VBA = Today() of Vandaag() in Excel.

marman · 3 apr 2018

Dankjewel Harry en SNB!

Dit werkt netjes!
Ik heb het weeknummer niet onmiddellijk nodig in de Excel-sheet maar wil het verderop in de code gebruiken.
Bij wijze van test heb ik het even toegekend aan een variabele en ook dat loopt lekker.
De datum staat in B3

Code:

Dim X As Integer
Dim T As String

T = ThisWorkbook.Sheets("Blad1").Range("B3").Value
X = weeknr(T)

Op naar de volgende stap ;-)
Nogmaals veel dank!

Marc

HSV · 3 apr 2018

Die 21 heb ik niet tot mijn beschikking in Excel 2007, en de 2 is niet correct.

snb · 3 apr 2018

Test eerst eens dit:

Code:

Sub M_snb()
   msgbox [weeknum(today(),21)]
End sub

Voor Office <2010 zie hier: http://www.snb-vba.eu/VBA_ISO_weeknummer.html

Functie weeknummer aanroepen

marman

Gebruiker

HSV

Inventaris

snb

Verenigingslid

marman

Gebruiker

HSV

Inventaris

snb

Verenigingslid

Nieuwste berichten

Wij waarderen jouw privacy