From 5aa8fdd71d7e1936cf4bab08442cf594074d07f6 Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Tue, 8 Nov 2011 19:08:25 +0000
Subject: [PATCH] 2011-11-08 20:08 UTC+0100 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/contrib/hbct/blank.c     + added support
 for timestamp values in BLANK() function

---
 harbour/ChangeLog            | 4 ++++
 harbour/contrib/hbct/blank.c | 7 +++++++
 2 files changed, 11 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 8ff91511ba..189ba37fe4 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-11-08 20:08 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/contrib/hbct/blank.c
+    + added support for timestamp values in BLANK() function
+
 2011-11-08 19:53 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/src/rtl/gtxwc/gtxwc.c
     + added support for 'Root' input context for systems where
diff --git a/harbour/contrib/hbct/blank.c b/harbour/contrib/hbct/blank.c
index 0a2c93008b..c551a9c1d7 100644
--- a/harbour/contrib/hbct/blank.c
+++ b/harbour/contrib/hbct/blank.c
@@ -66,6 +66,13 @@ HB_FUNC( BLANK )
       if( bRet )
          hb_retl( HB_FALSE );
    }
+   else if( HB_IS_TIMESTAMP( pItem ) )
+   {
+      if( bRef )
+         hb_stortdt( 0, 0, 1 );
+      if( bRet )
+         hb_rettdt( 0, 0 );
+   }
    else if( HB_IS_DATE( pItem ) )
    {
       if( bRef )