KTUGFaq

KTUG FAQ

"\yesterday..."¿¡ ´ñ±Û ´õÇϱâ

·Î±×ÀÎ:
ºñ¹Ð¹øÈ£:
°¡ÀÔ
Creditors have much better memories than debtors.
FrontPage › Karnes/2007-04
Apr 05, 2007
\yesterday...
Submitted by Karnes @ 04-05 [10:42 pm]
See KTUGOperate:21064

@yesterday.zip (1.33 KB)

À±³âÀº Gregorian Rule¿¡ µû¶ó °è»êÇÑ´Ù. See [http]±×·¹°í¸®·Â(À§Å°¹é°ú)
%%% leap year?
\newif\if@leapyear\@leapyearfalse
\newcount\tmptmp@a\newcount\tmptmp@b
\tmptmp@a=\the@yearcode\tmptmp@b=\the@yearcode
%% if ( year mod 4 == 0 ) then leap year true
\divide\tmptmp@a4
\multiply\tmptmp@a4
\advance\tmptmp@b-\tmptmp@a
\ifnum\tmptmp@b=0
 \@leapyeartrue
\else
 \@leapyearfalse
\fi
\if@leapyear
%% if ( year mod 4 == 0 ) and ( year mod 100 == 0 ) then leap year false
  \tmptmp@a=\the@yearcode\tmptmp@b=\the@yearcode
  \divide\tmptmp@a100
  \multiply\tmptmp@a100
  \advance\tmptmp@b-\tmptmp@a
  \ifnum\tmptmp@b=0
    \@leapyearfalse
  \fi
%% but ( year mod 4 == 0 ) and ( year mod 100 == 0 ) and ( year mod 400 == 0 )
%% then leap year true
  \tmptmp@a=\the@yearcode\tmptmp@b=\the@yearcode
  \divide\tmptmp@a400
  \multiply\tmptmp@a400
  \advance\tmptmp@b-\tmptmp@a
  \ifnum\tmptmp@b=0
    \@leapyeartrue
  \fi
\fi

Á¦´ë·Î µÉ±î?

Àç¹Ì³­ ¸ÅÅ©·ÎÀÔ´Ï´Ù. -- Progress 2007-04-06 08:44:30
À̸§:

¼­¸íÇÏÁö ¾Ê±â