From 2c042f1b810738b809bca37fc49ce0e9bf67ed60 Mon Sep 17 00:00:00 2001 From: Martin Vogel Date: Tue, 25 Mar 2003 15:48:52 +0000 Subject: [PATCH] *** empty log message *** --- harbour/ChangeLog | 4 ++++ harbour/contrib/libct/dattime2.prg | 6 ++++++ 2 files changed, 10 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d54f4245b4..e40f25cacb 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2003-03-25 16:46 UTC+0100 Martin Vogel + * contrib/libct/dattime2.prg + * bug fix in function addmonth() + 2003-03-24 15:35 UTC+0300 Alexander Kresin * source/rdd/dbcmd.c ! bug fixed with improper using of hb_strUpper() - reported by Lorenzo Fiorini diff --git a/harbour/contrib/libct/dattime2.prg b/harbour/contrib/libct/dattime2.prg index 6692ce6c15..de40a42514 100644 --- a/harbour/contrib/libct/dattime2.prg +++ b/harbour/contrib/libct/dattime2.prg @@ -105,6 +105,7 @@ local nDay // local nOldday local nMonth local nYear +local nLDOM // if nmth > 70 // return ctod (" / / ") @@ -153,6 +154,11 @@ local nYear enddo endif + // correction for different end of months + if nDay > (nLDOM := lastdayom (nMonth)) + nDay := nLDOM + endif + ddate := stod (strzero (nYear, 4) + strzero (nMonth, 2) + strzero (nDay, 2)) return (ddate)