* contrib/libct/datetime.prg

! Fix, change NTOS() for STR() in EOQ() function.
2002-05-24 19:08:22 +00:00
parent 5ae19d34f7
commit 8a760b30c0
1 changed files with 1 additions and 1 deletions
--- a/harbour/contrib/libct/datetime.prg
+++ b/harbour/contrib/libct/datetime.prg
@@ -207,7 +207,7 @@ Function EOQ( date)
 if (empty(date))
  return (date)
 endif
- yyyy := NtoS( Year( date))
+ yyyy := Str( Year( date), 4, 0)
 If ( m := Month( date)) <= 3
  eoq := StoD( yyyy + '0331')
 ElseIf m <= 6