1 /*
2  *    dateq3 (written in C)
3  *
4  *    Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5  *
6  */
7 
8 #include <time.h>
9 #include "../../../config.h"
10 
dateq3_(DCL_INT * iy,DCL_INT * im,DCL_INT * id)11 void dateq3_(DCL_INT *iy, DCL_INT *im, DCL_INT *id)
12 {
13     long tp;
14     struct tm lt;
15 
16     time(&tp);
17     lt = *localtime(&tp);
18     *iy = lt.tm_year + 1900;
19     *im = lt.tm_mon + 1;
20     *id = lt.tm_mday;
21 }
22