You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
44 lines
996 B
44 lines
996 B
2 years ago
|
/*
|
||
|
* Copyright(C) 1999-2021 National Technology & Engineering Solutions
|
||
|
* of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
||
|
* NTESS, the U.S. Government retains certain rights in this software.
|
||
|
*
|
||
|
* See packages/seacas/LICENSE for details
|
||
|
*/
|
||
|
/*
|
||
|
*/
|
||
|
|
||
|
/*
|
||
|
C DESCRIPTION:
|
||
|
C This routine returns the current date in a character string. The
|
||
|
C format is as follows:
|
||
|
|
||
|
C YYYYMMDD
|
||
|
|
||
|
C MM is a two digit month
|
||
|
C DD is a two digit day
|
||
|
C YYYY is a four digit year
|
||
|
|
||
|
C This is known as the "Compact ISO 8601 format"
|
||
|
|
||
|
C FORMAL PARAMETERS:
|
||
|
C STRING CHARACTER String to receive the date
|
||
|
|
||
|
************************************************************************
|
||
|
|
||
|
*/
|
||
|
|
||
|
#define STRLEN 8
|
||
|
#include <time.h>
|
||
|
|
||
|
#if defined(ADDC_)
|
||
|
void exdate_(char *string, long int len)
|
||
|
#else
|
||
|
void exdate(char *string, long int len)
|
||
|
#endif
|
||
|
{
|
||
|
time_t tim = time((time_t *)0);
|
||
|
struct tm *t = localtime(&tim);
|
||
|
strftime(string, STRLEN + 1, "%Y%m%d", t);
|
||
|
}
|