>Andrus,
>
>>>mdate2=gomonth(date()-day(date())+1,1)-1
>
>>I want to say that this last code is also wrong:
>
>>it will not work for year 9999 which I use
>to mark special dates.
>
>>Is it possible to have a simple function which works in 9999 also ?
>
>It only goes wrong the the date is in the last mont of the year 9999
>
>to solve this problem you could say this:
>
>mdate2=IIF(date() > {30-11-9999},{31-12-9999},gomonth(date()-day(date())+1,1)-1)

Walter,

This requires a fixed data format.
I use

set sysformats on

always.
So there may be actually any date format in my program depending
on user and this will not work.