2009-02-11 19:30 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

* harbour/include/hbextern.ch
  * harbour/source/rtl/philes.c
    + added HB_FGETDATETIME(). A "brother" of function HB_FGETDATETIME().
    ; TODO: BTW, hb_fs*() functions can get a better precision 
      (milliseconds). It would be nice to support it also at .prg level.

harbour/ChangeLog

@@ -8,6 +8,13 @@
    2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2009-02-11 19:30 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
+  * harbour/include/hbextern.ch
+  * harbour/source/rtl/philes.c
+    + added HB_FGETDATETIME(). A "brother" of function HB_FGETDATETIME().
+    ; TODO: BTW, hb_fs*() functions can get a better precision 
+      (milliseconds). It would be nice to support it also at .prg level.
+
 2009-02-11 18:30 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
   * harbour/source/vm/proc.c
     * hb_procname() support for symbol evaluation

harbour/include/hbextern.ch

@@ -1153,6 +1153,7 @@ EXTERNAL HB_FCOPY
 EXTERNAL HB_FSETATTR
 EXTERNAL HB_FGETATTR
 EXTERNAL HB_FSETDATETIME
+EXTERNAL HB_FGETDATETIME
 EXTERNAL HB_FILEEXISTS
 EXTERNAL HB_DIREXISTS
 EXTERNAL HB_FNAMEEXISTS

harbour/source/rtl/philes.c

@@ -402,6 +402,29 @@ HB_FUNC( HB_FSETDATETIME )
       ISCHAR( 3 ) ? hb_timeStampEncode( iHour, iMinutes, iSeconds, 0 ) : -1 ) );
 }
 
+HB_FUNC( HB_FGETDATETIME )
+{
+   LONG   lJulian, lMillisec;
+   BOOL   fRet;
+
+   if( hb_fsGetFileTime( ( UCHAR * ) hb_parcx( 1 ), &lJulian, &lMillisec ) )
+   {
+      char  buf[ 13 ];
+
+      hb_stordl( lJulian, 2 );
+
+      hb_timeStampStr( buf, lMillisec );
+      buf[ 8 ] = '\0';
+      hb_storc( buf, 3 );
+
+      /* hb_stornl( lMillisec, 4 ); */
+
+      hb_retl( 1 );
+   }
+   else
+      hb_retl( 0 );
+}
+
 HB_FUNC( HB_OSERROR )
 {
    hb_retni( hb_fsOsError() );