home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
c
/
croutes.zip
/
CVTDATE.C
< prev
next >
Wrap
Text File
|
1984-04-05
|
2KB
|
87 lines
/* *** cvtdate.c *** */
/* */
/* IBM - PC microsoft "C" */
/* */
/* Function to check and convert a "packed" gregorian date (1/1/83) */
/* into its "expanded" form (01/01/83). Will return a 0 if success- */
/* ful or a -1 if unable to convert gregorian date received. */
/* */
/* WARNING - if indate has not been declared at least 9 characters a */
/* memory overwrite will occure. */
/* */
/* Written by L. Cuthbertson, March 1984. */
/* */
/*********************************************************************/
/* */
#include <ctype.h>
int cvtdate(indate)
char indate[];
{
char hold[9];
int i;
i = 0; /* position within indate */
/* get month */
if (isdigit(indate[i]))
if (isdigit(indate[i+1])) {
hold[0] = indate[i++];
hold[1] = indate[i++];
} else {
hold[0] = '0';
hold[1] = indate[i++];
}
else
return(-1);
/* insert slash */
if (isdigit(indate[i++]))
return(-1);
else
hold[2] = '/';
/* get day */
if (isdigit(indate[i]))
if (isdigit(indate[i+1])) {
hold[3] = indate[i++];
hold[4] = indate[i++];
} else {
hold[3] = '0';
hold[4] = indate[i++];
}
else
return(-1);
/* insert slash */
if (isdigit(indate[i++]))
return(-1);
else
hold[5] = '/';
/* get year */
if (isdigit(indate[i]))
if (isdigit(indate[i+1])) {
hold[6] = indate[i++];
hold[7] = indate[i++];
} else {
hold[6] = '0';
hold[7] = indate[i++];
}
else
return(-1);
/* insert null terminator */
if (indate[i] != '\0')
return(-1);
else
hold[8] = '\0';
/* copy hold into indate */
strcpy(indate,hold);
/* done */
return(0);
}