Datum -10 dagen

[frankreiz]

Hallo allen,

Ik loop vast bij een datum berekening en weet eigenlijk niet hoe en in welk veld te plaatsen en zou heel graag de code aangepast willen hebben waarbij er alleen met werkdagen gerekend wordt.

In een formulier op basis van een query
Planning1 = invoerdatum
Planning2 = invoerdatum -10 dagen

=DateAdd("d", -10, [Planning2])

Wie wil mij verder op weg helpen

Alvast bedankt
access 2007

Frank

 

[OctaFish]

Je wilt het aantal werkdagen doortellen? Dan zul je eerst een functie moeten maken. Iets als:

Function WerkDagDatum(StartDatum As Date, Werkdagen As Integer)
Dim iDag As Integer, x As Integer
Dim DatumNieuw As Date
    DatumNieuw = StartDatum
    If WeekDay(DatumNieuw, vbMonday) > 5 Then
        Do Until WeekDay(DatumNieuw, vbMonday) = 1
            DatumNieuw = DateAdd("d", 1, DatumNieuw)
        Loop
    x = x + 1
    End If
    Do Until x = Werkdagen
        x = x + 1
        If WeekDay(DatumNieuw, vbMonday) = 5 Then
            DatumNieuw = DateAdd("d", 3, DatumNieuw)
        Else
            DatumNieuw = DateAdd("d", 1, DatumNieuw)
        End If
    Loop
    WerkDagDatum = DatumNieuw
End Function

En die gebruik je dan zo in je query:

Expr1: WerkDagDatum([Arrival Date];[Extension])

 

[frankreiz]

Ok.. Da's een heleboel code.

Daar kan ik me vanavond wel weer even een tijdje op stuk bijten.

Kan je me nog een zetje op weg helpen..? Waar plaats ik de eerste code?

Function Planning1(StartDatum As Date, Werkdagen As Integer)

Volgens mij plaats ik de 2e code in mijn Query bij veld Planning2
Expr1: Planning2([Arrival Date];[Extension])

Alvast bedankt voor de eerste tips..

 

[OctaFish]

De functie zet je in een aparte module. Heb je al modules, dan kun je hem er gewoon bijzetten, anders maak je een nieuwe module aan. De tweede code rekent je datum uit, dus die kan je zo overnemen. Expr1 wordt dan Planning2.

 

[frankreiz]

Ah, daarmee kan ik uit de voeten. Ik heb al een module dus dat komt goed.

Leuk klusje voor vanavond.

Bedankt

 

[frankreiz]

Toch een iets andere (simpelere) oplossing gebruikt voor mijn datum actie.

Private Sub Plan_datum_wissel_AfterUpdate()
Me.Plan_datum_Opvraag_Conti = DateAdd("d", -5, [Plan datum wissel])
End Sub

Toch bedankt voor de hulp

 

[OctaFish]

En jij denkt dat je daarmee de weekenden uitschakelt? Knap...

 

[frankreiz]

Die reactie had ik al verwacht... Nee, dat weet ik. Ik kreeg de door jou opgegeven actie niet werkend en na veel geploeter heb ik het zo opgelost na een tip van iemand. Ook omdat in dit geval het niet echt belangrijk is met of zonder weekend dagen.
Het gaat erom dat ik een overzicht heb om wielensets op te vragen voor de auto's die in geplant staan (zo'n 10 a 15 P/dag. Hiervoor staat in principe 3 dagen maar ik reken met 5 dagen om zodoende wat meer speling te hebben.

Ik ben niet zo gevorderd in access, vandaar de wat eenvoudigere oplossing. Anders wordt het al snel nachtwerk En ik wil volgende week live met mijn base dus moest even keuzes maken ivm tijd en omdat ik er nog een paar dingetjes in wil maken dit weekend

Maar toch bedankt voor je hulp. Hoop dat je niet teleurgesteld bent.

Gr. Frank