Files
harbour-core/harbour/source/tools/datesx.c

21 lines
296 B
C

/*
* $Id$
*/
#include <extend.h>
#include <time.h>
HARBOUR HB_DATETIME( void )
{
time_t current_time;
char * szResult = ( char * ) hb_xgrab( 26 );
time( &current_time );
szResult = strcpy( szResult, ctime( &current_time ) );
hb_retc( szResult );
hb_xfree( szResult );
}