Uitfilteren veld evenweek en onevenweek

[gebo51]

Beste forumleden,

Voor een urenregistratie heb ik twee velden: onevenweek en evenweek.
In deze velden staat het aantal uren dat een werknemer werkt.

Nu moet de data in het veld 'evenweek' beschikbaar komen in een 'even week' en in een 'oneven week' de data uit het corresponderende veld.
Daar heb ik wat vba code voor nodig, dus iets in de trend van:

if -oneven week- then
me.onevenweek.value =true
else
me.evenweek=true
end if

De eerste zin zal dus aangepast moeten worden (of wellicht de hele code)

Wie kan me helpen?

 

[Guus2005]

Met het commando

format(date,"ww")

kan je bepalen of een veld even is of oneven.

HTH

 

[gebo51]

Beste Guus,
Dank voor je reactie, maar hoe nu verder met de code?

Hieronder nog even ter verduidelijking:

Ik heb een rapport met de velden:
'beschikbare werkuren p/evenweek'
'beschikbare werkuren p/onevenweek'
'gewerkte uren p/week'
en tenslotte
'restsaldo p/week

In de evenweken neem ik het saldo van de 'beschikbare werkuren p/evenweek' minus de
'gewerkte uren p/week' . In in een oneven week dezelfde procedure maar dan met het veld 'beschikbare werkuren p/onevenweek' .
In het veld 'gewerkte uren p/week' heb ik dan het saldo

Maar:
Hoe krijg ik het nu voorelkaar dat in de evenweek het veld 'beschikbare werkuren p/evenweek' gebruikt wordt in de berekening en in de onevenweek het veld 'beschikbare werkuren p/onevenweek'

Met een vb van de code zou je me geweldig kunnen helpen

Alvast veel dank:thumb:

 

[Dolfke]

Hallo Gebo ,
Om te kijken om een weeknummer even of oneven is kan je volgende code gebruiken

If  format(date,"ww")mod 2 = 0 THen
  ' even week
Else
  ' oneven week
End if

Groetjes
Dolfke

 

[Guus2005]

Of je kan controleren of het minst significante bitje een 1 is. Dan is het een oneven week.

Public function IsOnEvenWeek(dtm as date) as boolean
IsOnEvenWeek = format(dtm,"ww") and 1
End function

 

[gebo51]

Beste Dolfke en (zoals bijna altijd) Guus ,

Beiden dank voor jullie hulp. :thumb::thumb:
M'n probleem is opgelost!!