Hieronder de VBA codes: voor weeknr kun je het datepart
statement gebruiken.
Het dagnummer kun je uitrekenen door: (huidige datum)-(1
januari 2002)
Hieronder een voorbeeld:
Sub datum()
Dim Nudate As Date
Nudate = "1/1/02"
week = DatePart("ww", Date)
Cells(1, 1).Value = week
Mydate = Date - Nudate
Cells(3, 1).Value = Mydate
End Sub
--
Met groeten,
Jan van den Maagdenberg
"Marcel v. Leusden" <marcel.v...@gispen.nl> schreef in bericht
news:19a7e01c1c51c$cfe93d50$3def2ecf@TKMSFTNGXA14...
"Jan van de Maagdenberg" <m...@tref.nl> schreef in bericht
news:a6hr4u$b5f$1...@reader07.wxs.nl...