On 11/12/13, waldo kitty <[email protected]> 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. Bart -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
