• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

datum in vba

Status
Niet open voor verdere reacties.
D

don42

Gebruiker
Lid geworden
25 apr 2014
Berichten
764
beste helpers,

ik wil graag via een weeknummer de datum vinden van zaterdag van deze week
voorbeeld:
week 46 (2018)
geeft zaterdag 10-11-2018

dit is mijn code:
Code: 
=DATUM(JAAR(A1);1;-2)-WEEKDAG(DATUM(JAAR(A1);1;3))+A24*7-2
(In A24 staat het weeknummer - in dit geval dus 46)

dit wil ik graag in vba
wie kan me helpen
dit heb ik tot nu toe, maar dat gaat fout
Code: 
Range("a28").Value = Year(Range("a1"));Year(Range("a1");1;-2)-WEEKDAG(Year(Range("a1");1;3))+A24*7-2

don
 
Er zijn vele functies over geschreven, maar om te leren hoe Vba wordt geschreven.
WEEKDAG = Weekday
a24 = range("a24")
 
dat met weekdag en day had ik ondertussen al gezien

heb nu
Code: 
Range("a28").Value = Year(Range("a1")[COLOR="#FF0000"];[/COLOR]1;-2)-WEEKDAY(Year(Range("a1"));1;3)+ Range("A24")*7-2

daar bij de rode ; gaat het mis (compileerfout?)
 
Laatst bewerkt:
Puntkomma's worden ???
enz.
 
Je zou met een UDF (VBA-function) kun werken:
Code: 
Function Jaar_Week_Za(jaar, week)
  dt1 = DateSerial(jaar, 1, 4)                  'focus op 4-jan
  wkd = Weekday(dt1, 2)                         'de weekdag van 4-jan
  Jaar_Week_Za = dt1 - wkd + 6 + (week - 1) * 7 'zaterdag van week x
End Function
In de bijlage een werkend voorbeeld.........

P.S.1 De VBA-code kan veel korter, maar dan kan ik de uitleg er niet goed bijzetten :(
P.S.2 De zaterdag van week 46 in 2018 is 17-Nov en dus niet 10-Nov
 

Bijlagen

  • Weeknummer_naar_datums.xlsb
    12,9 KB · Weergaven: 37
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan