On 12/11/13 22:52, Bart wrote: > 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 > > --
I vote for this to be accepted into (FP)DateUtils unit. -L. -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
