[Lazarus] DateDif function needed

Bart bartjunk64 at gmail.com
Tue Nov 12 23:52:30 CET 2013

On 11/12/13, waldo kitty <wkitty42 at windstream.net> wrote:

> you do not need any of the above if you change
>>      Days := (DaysPerMonth(M1, IsLeapYear(Y2)) - D1) + D2 ;
> to
>        Days := (DaysInAMonth(Y2,M1) - D1) + D2;

I did not know about DaysInAMonth.
I just went coding and created that function because I needed it.

I can see it uses the exact kind of logic I did...

> outside of this, what you came up with is almost exactly what i worked my
> way
> down to as i was working on my own solution... it took me a while and then
> when
> i saw your post, i was astonished at how the mind works at times :LOL:

Yes, nice.

Hope anyone actually can use this.


More information about the Lazarus mailing list