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 )