Netto werkdagen in VB

[Ekitch]

Beste luitjes

Ik kom er niet meer uit.
In excel heb je de mooie functie netto.werkdagen
Nu wil ik deze functie gebruiken in Visualbasic Maar kan hem nergens vinden.
Is er een mogelijkheid om in visualbasic dezelfde berekening te laten uitvoeren??

Danku

 

[jpvs]

Probeer eens op dit forum te zoeken : misschien staat hier iets bij wat je zoekt?

http://www.helpmij.nl/forum/search.php?searchid=144063

Pierre

 

[Dnereb]

In VB(6.0) zal je dat zelf moeten schrijven
de basis om dat te berekenen is ongeveer:

deel het aantal dagen door 7 (volle weken)
en vermenigigvuldig het getal voor de komma met 5...onthou dit.
en vermenigigvuldig het getal voor de komma met 7 en trek dit af van het aantal dagen
dat je berekent(totaal aantal dagen)om te weten hoeveel dagen de onvolledige week bevat.
Loop door die onvolledige week en tel het aantal dagen dat geen zon- of zaterdag is.

(dit houdt dus geen rekening met feestdagen)

 

[snabbi]

Op zich kan je de formule ook gewoon gebruiken vanuit visual basic, alleen moet je er wel zeker van zijn dat je invoegtoepassing aan staat. Je kan dus bijvoorbeeld een tijdelijke cel gebruiken als:

[a1] = "=Netto.Werkdagen(B1,B2)"

Anders kan je het ook zelf uitprogrammeren natuurlijk.

 

[Ekitch]

Dat had ik algeprobeerd maar dat vult hij niet goed in in de excel sheet.
En aangezien ik het 2000 keer moet laten invullen is 1 voor 1 geen optie

 

[lcodee]

De volledige syntax is:

ActiveCell.FormulaR1C1 = "=NETTO.WERKDAGEN(RC[-2],R[31]C[-2],2)"

Waarbij RC[-2] = Cel met eerste datum ( in dit geval 2 kolommen naar links.)
R[31]C[-2] Cel met laatste datum ( in dit geval 31 rijen naar beneden en 2 kolommen naar links.)

Het laatste argument 2 is het aantal vakantiedagen of feestdagen welke in de betreffende periode vallen.

Succes leo

 

[Ekitch]

Bedankt

Werkt dat met R en C altijd of moet je dat nog vantevoren aangeven

Ik werk namelijk nu alleenmaar met dim x enzo EN Cells(x,y) als verwijzing. De manier waarop jij het nu aangeeft is bij mij nog niet bekend maar ik ga het ff uittesten

 

[lcodee]

Het werkt normaal altyd. Maar selecteer wel eerst je doelcel.


Leo

 

[Ekitch]

Bedoel je met doelcell de cell waarop je geslecteerd staat?

Zo ja werkt dit dus niet.

Ik wil een een tabel invoeren van ongeveer 2000 regels. Ik wil Via een macro bv in de 3 kolom eht aantal werkdagen laten bereken (datums staan dus in de 1 en 2 kolom). Maar dit dus zonder in excel zelf formules te gaan invullen

 

[Ekitch]

He tis me inmiddels gelukt

Via

Do While x < 10

Cells(22 + x, 9).FormulaR1C1 = "=NETTO.WERKDAGEN(RC[-8],RC[-7])"
x = x + 1
Loop

Kan ik de formule laten invullen
Bedankt voor de info