Newsgroups: fj.lang.c
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!newsgate1.web.ad.jp!news.fukuoka.infoweb.or.jp!newshost.ryukyu.ad.jp!sour!merope!void
From: void@merope.opus.or.jp (Kusakabe Youichi)
Subject: Re: =?iso-2022-jp?B?GyRCNjUkKCRGJC8kQCQ1JCQbKEo=?=
Message-ID: <1997Mar20.155628.9443@merope.opus.or.jp>
Organization: Macintosh User Group PLEIADES in opus
X-Newsreader: TIN [version 1.2 PL0]
References: <3330340E.3BCC@po.infosphere.or.jp>
Date: Thu, 20 Mar 1997 15:56:28 GMT
Lines: 93
Xref: galaxy.trc.rwcp.or.jp fj.lang.c:3827
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.c&nb=3827&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

sp-co (sp-co@po.infosphere.or.jp) wrote:
: C$B8@8l$NJY6/$r;O$a$?$N$G$9$,!"$o$+$i$J$/$F:$$C$F$$$^$9!#(B
($BCfN,(B)
:         printf("%d.%d.%d\n",y,m,d);     /*$B7k2L#1(B*/
($BCfN,(B)
:         printf("%s\n",p1);      /*$B!I7k2L#1!I$HF1$87k2L$,$[$7$$$N$G$9$,!"!"!"(B*/

$B0lBN2?$r$d$j$?$$$N$+$,8+$($J$$$N$G$9$,!"(B

$B!VJY6/!W$H$N$3$H$J$N$G!"(B
$B$"$($F$^$o$j$/$I$/!"$7$+$bLdBjE@$bB?$a$KF~$l$F$*$/$H(B ;-)

#include <stdio.h>
#include <time.h>
#include <string.h>

char *dd();/* and others? */

main()
{
int y, m, d;
char buf[20];
char *p, *p1;
time_t ltime;
struct tm *today;

ltime = time(NULL);
today = localtime(&ltime);
y = 1900 + today->tm_year;
m = 1 + today->tm_mon;
d = today->tm_mday;

printf("%d.%d.%d\n", y, m, d);/* $B7k2L(B1 */

p = ".";
p1 = strcpy(buf, dd(y));
p1 = strcat(p1, p);
p1 = strcat(p1, dd(m));
p1 = strcat(p1, p);
p1 = strcat(p1, dd(d));
printf("%s\n", p1);/*$B!H7k2L(B1$B!I$HF1$87k2L$G$9!D(B */
}


char *dd(n)
int n;
{
static char buf[16]; /* magic number :-) */
inti;

i = 0;
if (n == 0) {
buf[i++] = '0';
buf[i] = '\0';
} else {/* What will be happen if minus? */
while (n > 0) {
buf[i++] = '0' + n % 10;/* depend on ASCII */
n /= 10;
}
buf[i] = '\0';
reverse(buf);
}
return buf;
}


reverse(buf)
char *buf;
{
intn;
inti;

n = strlen(buf);
for (i = 0; i < n / 2; i++)
swapchar(&buf[i], &buf[n - 1 - i]);
}


swapchar(p, q)
char *p;
char *q;
{
char r;

r = *p;
*p = *q;
*q = r;
}

  $B%X(B_$B%X(B   ------------------------
$B%_!&!&(B $B%_(B  void@merope.opus.or.jp
 (  $B!k(B )$B!A(B            $BF|2<ItM[0l(B
----------------------------------
