*** empty log message ***

harbour/ChangeLog

@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-03-25 16:46 UTC+0100 Martin Vogel <vogel@inttec.de>
+  * contrib/libct/dattime2.prg	
+    * bug fix in function addmonth()
+	
 2003-03-24 15:35 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
   * source/rdd/dbcmd.c
     ! bug fixed with improper using of hb_strUpper() - reported by Lorenzo Fiorini

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)