home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
clipper
/
rettig
/
source
/
iststime.c
< prev
next >
Wrap
C/C++ Source or Header
|
1990-10-21
|
554b
|
26 lines
/*********
* Function: ISTSTIME
* By: Tom Rettig
* Placed in the public domain by Tom Rettig Associates, 10/22/1990.
*
* Syntax: ISTSTIME( <expC> )
* Return: True if <expC> is a valid time string, otherwise false.
* Note : Valid time string is "HH:MM:SS",
* where HH==0..23, MM==0..59, SS==0.59.
*********/
#include "trlib.h"
TRTYPE iststime()
{
char *instr;
if ( PCOUNT == 1 && ISCHAR(1) )
{
instr = _parc(1);
_retl( VALIDTIME(instr) );
}
else
_retl(ERROR); /* if error */
}