From 8a760b30c0e99cb818a7c9136ce2b31c54880e6a Mon Sep 17 00:00:00 2001
From: Walter Negro <anegro@overnet.com.ar>
Date: Fri, 24 May 2002 19:08:22 +0000
Subject: [PATCH]   * contrib/libct/datetime.prg     ! Fix, change NTOS() for
 STR() in EOQ() function.

---
 harbour/contrib/libct/datetime.prg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/harbour/contrib/libct/datetime.prg b/harbour/contrib/libct/datetime.prg
index 5f25efe6fe..913da40ece 100644
--- 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