dStart = #5/31/2011#
dEnd = #6/20/2011#

ddiff = DateDiff('m', #5/31/2011#, #6/20/2011#)
If DateAdd('m', dStart, ddiff) < dEnd Then ddiff = ddiff - 1

' Le primitive

"Donatas" <ddonatas@freemail.lt> wrote in message news:isnm27$gc2$1@trimpas.omnitel.net...
> Bandau suprasti kodel yra taip ir kaip pataisyti situacija , jei funkcijai 
> paduodu (veiksmas Ms Access 2003 VB)
> #menuo diena   metai#
> datediff('m', #5/31/2011#, #6/20/2011#)   grazina 1 men
> datediff('m', #6/01/2011#, #6/20/2011#)   >> 0 men
> t.y. jei menuo keiciasi , gali buti ir tik 1 dienos skirtumas , bet rodys 1 
> menesi , jei tas pats menuo tik skiriasi dienos tai -0 . Galeciau skaiciuoti 
> pagal dienu skaiciu, bet tada reiktu knistis kiek ir koks menuo turi dienu. 
> Tikslas toks: jei skiriasi menesiu ir 0 dienu jau 1 menuo ,jei skiriasi 
> menesiu -1 diena , tai 0 menesiu .
> 
> TIkiuosi ideja aiski , gal kazko nesuprantu , bet datediff nieko daugiau i 
> ta puse neduoda.
> -- 
> Donatas 
> 
>