2009-03-22 21:54 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

* harbour/source/rtl/valtoexp.prg
    + added timestamp support to hb_valToExp() and hb_cStr() functions

harbour/ChangeLog

@@ -8,6 +8,10 @@
    2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2009-03-22 21:54 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rtl/valtoexp.prg
+    + added timestamp support to hb_valToExp() and hb_cStr() functions
+
 2009-03-22 18:16 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/include/hbstack.h
     * added alternative asm inline function to __MINGW32__ builds which

harbour/source/rtl/valtoexp.prg

@@ -65,6 +65,9 @@ FUNCTION hb_VALTOEXP( xVal )
       CASE "D"
          cVal := iif( Empty( xVal ), "0d00000000", "0d" + DToS( xVal ) )
          EXIT
+      CASE "T"
+         cVal := iif( Empty( xVal ), 't"00:00"', 't"' + hb_TSToStr( xVal ) + '"' )
+         EXIT
       CASE "L"
          cVal := iif( xVal, ".T.", ".F." )
          EXIT
@@ -124,6 +127,8 @@ FUNCTION hb_CStr( xVal )
          RETURN Str( xVal )
       CASE "D"
          RETURN iif( Empty( xVal ), "0d00000000", "0d" + DToS( xVal ) )
+      CASE "T"
+         RETURN iif( Empty( xVal ), 't"00:00"', 't"' + hb_TSToStr( xVal ) + '"' )
       CASE "L"
          RETURN iif( xVal, ".T.", ".F." )
       CASE "S"