사람이 읽을 수 있는 형식으로 시간(기간)을 표시하는 명령

Question 1

expl3및 해당 모듈을 사용하여 수행할 수 있습니다 fp.

\documentclass{article}
\usepackage{xparse}

\ExplSyntaxOn
\NewDocumentCommand{\duration}{m}
 {
  \didou_duration:n { #1 }
 }

\fp_new:N \l_didou_duration_hrs_fp
\fp_new:N \l_didou_duration_min_fp
\fp_new:N \l_didou_duration_sec_fp

\cs_new_protected:Nn \didou_duration:n
 {
  \fp_compare:nTF { #1 < 60 }
   {% easy case
    \fp_eval:n { round(#1,3) }
   }
   {
    \fp_compare:nTF { #1 < 3600 }
     {% only minutes
      \didou_duration_minutes:n { #1 }
     }
     {% hours
      \didou_duration_hours:n { #1 }
     }
   }
 }

\cs_new_protected:Nn \didou_duration_minutes:n
 {
  \fp_set:Nn \l_didou_duration_min_fp { trunc( #1/60,0 ) }
  \fp_set:Nn \l_didou_duration_sec_fp
   {
    round( #1-\l_didou_duration_min_fp * 60,0 )
   }
  % now print
  \fp_eval:n { \l_didou_duration_min_fp }
  :
  \fp_compare:nT { \l_didou_duration_sec_fp < 10 } { 0 } % two digits
  \fp_eval:n { \l_didou_duration_sec_fp }
 }
\cs_generate_variant:Nn \didou_duration_minutes:n { V }

\cs_new_protected:Nn \didou_duration_hours:n
 {
  \fp_set:Nn \l_didou_duration_hrs_fp { trunc( #1/3600,0 ) }
  \fp_set:Nn \l_didou_duration_min_fp { #1 - \l_didou_duration_hrs_fp * 3600 }
  % print the hours
  \fp_eval:n { \l_didou_duration_hrs_fp } :
  % go to minutes
  \fp_compare:nT { \l_didou_duration_min_fp < 600 } { 0 }
  \didou_duration_minutes:V \l_didou_duration_min_fp
 }

\ExplSyntaxOff

\begin{document}

\duration{1.25678}

\duration{125.35}

\duration{249}

\duration{18249}

\duration{2318249}

\end{document}

필요한 경우 완전히 확장 가능한 버전은 다음과 같습니다.

\documentclass{article}
\usepackage{xparse}

\ExplSyntaxOn
\DeclareExpandableDocumentCommand{\duration}{m}
 {
  \didou_duration:n { #1 }
 }


\cs_new:Nn \didou_duration:n
 {
  \fp_compare:nTF { #1 < 60 }
   {% easy case
    \fp_eval:n { round(#1,3) }
   }
   {
    \fp_compare:nTF { #1 < 3600 }
     {% only minutes
      \didou_duration_minutes:n { #1 }
     }
     {% hours
      \didou_duration_hours:n { #1 }
     }
   }
 }

\cs_new:Nn \didou_duration_minutes:n
 {
  \fp_eval:n { trunc( #1/60,0 ) }
  :
  \fp_compare:nT { round( #1 - trunc( #1/60,0 ) * 60,0 ) < 10 } { 0 } % two digits
  \fp_eval:n { round( #1- trunc( #1/60,0 ) * 60,0 ) }
 }
\cs_generate_variant:Nn \didou_duration_minutes:n { f }

\cs_new:Nn \didou_duration_hours:n
 {
  % print the hours
  \fp_eval:n { trunc( #1/3600,0 ) } :
  % go to minutes
  \fp_compare:nT { trunc( #1/3600,0 ) < 600 } { 0 }
  \didou_duration_minutes:f { \fp_eval:n { #1 - trunc( #1/3600,0 ) * 3600} }
 }

\ExplSyntaxOff

\begin{document}

\duration{1.25678}

\duration{125.35}

\duration{249}

\duration{18249}

\duration{2318249}

\edef\test{\duration{2318249}}\texttt{\meaning\test}

\end{document}

Answer

expl3및 해당 모듈을 사용하여 수행할 수 있습니다 fp.

\documentclass{article}
\usepackage{xparse}

\ExplSyntaxOn
\NewDocumentCommand{\duration}{m}
 {
  \didou_duration:n { #1 }
 }

\fp_new:N \l_didou_duration_hrs_fp
\fp_new:N \l_didou_duration_min_fp
\fp_new:N \l_didou_duration_sec_fp

\cs_new_protected:Nn \didou_duration:n
 {
  \fp_compare:nTF { #1 < 60 }
   {% easy case
    \fp_eval:n { round(#1,3) }
   }
   {
    \fp_compare:nTF { #1 < 3600 }
     {% only minutes
      \didou_duration_minutes:n { #1 }
     }
     {% hours
      \didou_duration_hours:n { #1 }
     }
   }
 }

\cs_new_protected:Nn \didou_duration_minutes:n
 {
  \fp_set:Nn \l_didou_duration_min_fp { trunc( #1/60,0 ) }
  \fp_set:Nn \l_didou_duration_sec_fp
   {
    round( #1-\l_didou_duration_min_fp * 60,0 )
   }
  % now print
  \fp_eval:n { \l_didou_duration_min_fp }
  :
  \fp_compare:nT { \l_didou_duration_sec_fp < 10 } { 0 } % two digits
  \fp_eval:n { \l_didou_duration_sec_fp }
 }
\cs_generate_variant:Nn \didou_duration_minutes:n { V }

\cs_new_protected:Nn \didou_duration_hours:n
 {
  \fp_set:Nn \l_didou_duration_hrs_fp { trunc( #1/3600,0 ) }
  \fp_set:Nn \l_didou_duration_min_fp { #1 - \l_didou_duration_hrs_fp * 3600 }
  % print the hours
  \fp_eval:n { \l_didou_duration_hrs_fp } :
  % go to minutes
  \fp_compare:nT { \l_didou_duration_min_fp < 600 } { 0 }
  \didou_duration_minutes:V \l_didou_duration_min_fp
 }

\ExplSyntaxOff

\begin{document}

\duration{1.25678}

\duration{125.35}

\duration{249}

\duration{18249}

\duration{2318249}

\end{document}

필요한 경우 완전히 확장 가능한 버전은 다음과 같습니다.

\documentclass{article}
\usepackage{xparse}

\ExplSyntaxOn
\DeclareExpandableDocumentCommand{\duration}{m}
 {
  \didou_duration:n { #1 }
 }


\cs_new:Nn \didou_duration:n
 {
  \fp_compare:nTF { #1 < 60 }
   {% easy case
    \fp_eval:n { round(#1,3) }
   }
   {
    \fp_compare:nTF { #1 < 3600 }
     {% only minutes
      \didou_duration_minutes:n { #1 }
     }
     {% hours
      \didou_duration_hours:n { #1 }
     }
   }
 }

\cs_new:Nn \didou_duration_minutes:n
 {
  \fp_eval:n { trunc( #1/60,0 ) }
  :
  \fp_compare:nT { round( #1 - trunc( #1/60,0 ) * 60,0 ) < 10 } { 0 } % two digits
  \fp_eval:n { round( #1- trunc( #1/60,0 ) * 60,0 ) }
 }
\cs_generate_variant:Nn \didou_duration_minutes:n { f }

\cs_new:Nn \didou_duration_hours:n
 {
  % print the hours
  \fp_eval:n { trunc( #1/3600,0 ) } :
  % go to minutes
  \fp_compare:nT { trunc( #1/3600,0 ) < 600 } { 0 }
  \didou_duration_minutes:f { \fp_eval:n { #1 - trunc( #1/3600,0 ) * 3600} }
 }

\ExplSyntaxOff

\begin{document}

\duration{1.25678}

\duration{125.35}

\duration{249}

\duration{18249}

\duration{2318249}

\edef\test{\duration{2318249}}\texttt{\meaning\test}

\end{document}

Question 2

16500 주변의 "차원이 너무 큼" 오류로 인해 정수 나누기가 실패하기 때문에 이 질문에 사용하는 것은 \pgfmathparse문제가 됩니다. 특히 추가 주의 없이는 이 숫자가 너무 크기 때문에 사용하는 솔루션은 \pgfmathparseOP의 예에 대처할 수 없습니다 .18249

큰(정수) 계산의 경우xint패키지 제품군은 이기기 어렵습니다(불행히도 예제가 거의 제공되지 않기 때문에 설명서를 따라가기가 어렵습니다). 사용xinttools그리고xintfrac, 함께시유닉스우리는 이 질문에 답할 수 있으며 특히 18249.

암호

\documentclass{article}
\usepackage{siunitx,xinttools,xintfrac}

\newcommand\Duration[1]{%
  \xintifLt{#1}{60}{% less than 60 => print as seconds, with milliseconds
      \num[round-mode=places,round-precision=3]{#1}%
  }{% have minutes seconds and possibly hours
      \xintAssign\xintiiDivision{\xintNum{#1}}{3600}\to\hours\minutes%
      \xintAssign\xintiiDivision{\minutes}{60}\to\minutes\seconds%
      \xintiiifGt{\hours}{0}{% hours>0%
         \hours:\num[minimum-integer-digits=2]{\minutes}:\num[minimum-integer-digits=2]{\seconds}%
      }{% only minutes and seconds
         \minutes:\num[minimum-integer-digits=2]{\seconds}%
      }%
  }%
}

\begin{document}

  1.25678: \Duration{1.25678}

  125.35: \Duration{125.35}

  18249: \Duration{18249}

\end{document}

산출

그러면 원하는 출력이 생성됩니다.

몇 가지 설명

명령을 사용하는 방법을 알아내기 위해 약간의 어려움을 겪었다는 점을 고려하면 xint몇 마디 설명이 필요합니다.

매크로\xintiiDivision 몫을 반환합니다.그리고나머지는 \xintAssign매크로에 할당하는 데 사용됩니다(이 두 출력).
비교 연산자는 \xintifLt십진수를 허용하지만 \xintiiifGt더 빠르고 정수를 기대합니다. 댓글에서 이를 설명해 주신 @jfbu에게 감사드립니다.
그만큼\num의시유닉스는 출력 형식을 지정하는 데 사용되며, 특히 를 통해 선행 0으로 채워집니다 minimum-integer-digits=2.

아마도 xint명령을 더 효율적으로 사용할 수 있을 것입니다!

Answer

16500 주변의 "차원이 너무 큼" 오류로 인해 정수 나누기가 실패하기 때문에 이 질문에 사용하는 것은 \pgfmathparse문제가 됩니다. 특히 추가 주의 없이는 이 숫자가 너무 크기 때문에 사용하는 솔루션은 \pgfmathparseOP의 예에 대처할 수 없습니다 .18249

큰(정수) 계산의 경우xint패키지 제품군은 이기기 어렵습니다(불행히도 예제가 거의 제공되지 않기 때문에 설명서를 따라가기가 어렵습니다). 사용xinttools그리고xintfrac, 함께시유닉스우리는 이 질문에 답할 수 있으며 특히 18249.

암호

\documentclass{article}
\usepackage{siunitx,xinttools,xintfrac}

\newcommand\Duration[1]{%
  \xintifLt{#1}{60}{% less than 60 => print as seconds, with milliseconds
      \num[round-mode=places,round-precision=3]{#1}%
  }{% have minutes seconds and possibly hours
      \xintAssign\xintiiDivision{\xintNum{#1}}{3600}\to\hours\minutes%
      \xintAssign\xintiiDivision{\minutes}{60}\to\minutes\seconds%
      \xintiiifGt{\hours}{0}{% hours>0%
         \hours:\num[minimum-integer-digits=2]{\minutes}:\num[minimum-integer-digits=2]{\seconds}%
      }{% only minutes and seconds
         \minutes:\num[minimum-integer-digits=2]{\seconds}%
      }%
  }%
}

\begin{document}

  1.25678: \Duration{1.25678}

  125.35: \Duration{125.35}

  18249: \Duration{18249}

\end{document}

산출

그러면 원하는 출력이 생성됩니다.

몇 가지 설명

명령을 사용하는 방법을 알아내기 위해 약간의 어려움을 겪었다는 점을 고려하면 xint몇 마디 설명이 필요합니다.

매크로\xintiiDivision 몫을 반환합니다.그리고나머지는 \xintAssign매크로에 할당하는 데 사용됩니다(이 두 출력).
비교 연산자는 \xintifLt십진수를 허용하지만 \xintiiifGt더 빠르고 정수를 기대합니다. 댓글에서 이를 설명해 주신 @jfbu에게 감사드립니다.
그만큼\num의시유닉스는 출력 형식을 지정하는 데 사용되며, 특히 를 통해 선행 0으로 채워집니다 minimum-integer-digits=2.

아마도 xint명령을 더 효율적으로 사용할 수 있을 것입니다!

Question 3

apnum 패키지를 사용하는 솔루션은 다음과 같습니다.

\input apnum

\def\duration#1{{\apFRAC=0         % "/" means integer division
   \def\zero{0}%
   \evaldef\S{#1/1}%               \S: number of seconds (without fraction part) 
   \evaldef\H{\S/3600}%            \H: number of hours
   \evaldef\Hrest{\S - 3600*\H}%   \Hrest: number of seconds without hours
   \evaldef\M{\Hrest/60}%          \M: minutes in \Hrest
   \evaldef\Mrest{\Hrest - 60*\M}% \Mrest: number of seconds without minutes
   \ifx\H\zero
     \ifx\M\zero \miliseconds#1...\end         % print: seconds.miliseconds  
     \else \M:\twodigits\Mrest \fi             % print: minutes:seconds
   \else \H:\twodigits\M:\twodigits\Mrest \fi  % print: hours:minutes:seconds
}}
\def\twodigits#1{\ifnum#1<10 0\fi#1}
\def\miliseconds #1.#2#3#4\end{#1\ifx.#2\else.#2\ifx.#3\else#3\fi\fi}

1.25678: \duration{1.25678}  % prints: 1.25

125.35:  \duration{125.35}   % prints: 2:05

18249:   \duration{18249}    % prints: 5:04:09

\bye

편집하다그리고 두 번째 해결책. 그것은 사용한다TeX 프리미티브만그리고 \newcount매크로. 그리고 그 아이디어는 위와 같습니다. 이제 시간은 2^31초로 제한되며 이는 68년을 의미합니다.

\newcount\S \newcount\H  \newcount\Hrest  \newcount\M  \newcount\Mrest

\def\duration#1{%
   \setS#1.\end
   \H=\S \divide\H by3600
   \Hrest=\H \multiply\Hrest by-3600 \advance\Hrest by\S
   \M=\Hrest \divide\M by60
   \Mrest=\M \multiply\Mrest by-60 \advance\Mrest by\Hrest
   \ifnum \H=0
     \ifnum\M=0 \miliseconds#1...\end             % print: seconds.miliseconds  
     \else \the\M:\twodigits\Mrest \fi            % print: minutes:seconds
   \else \the\H:\twodigits\M:\twodigits\Mrest \fi % print: hours:minutes:seconds
}
\def\setS#1.#2\end{\S=#1\relax}
\def\twodigits#1{\ifnum#1<10 0\fi\the#1}
\def\miliseconds #1.#2#3#4\end{#1\ifx.#2\else.#2\ifx.#3\else#3\fi\fi}

1.25678: \duration{1.25678}

125.35:  \duration{125.35}

18249:   \duration{18249}

\bye

Answer

apnum 패키지를 사용하는 솔루션은 다음과 같습니다.

\input apnum

\def\duration#1{{\apFRAC=0         % "/" means integer division
   \def\zero{0}%
   \evaldef\S{#1/1}%               \S: number of seconds (without fraction part) 
   \evaldef\H{\S/3600}%            \H: number of hours
   \evaldef\Hrest{\S - 3600*\H}%   \Hrest: number of seconds without hours
   \evaldef\M{\Hrest/60}%          \M: minutes in \Hrest
   \evaldef\Mrest{\Hrest - 60*\M}% \Mrest: number of seconds without minutes
   \ifx\H\zero
     \ifx\M\zero \miliseconds#1...\end         % print: seconds.miliseconds  
     \else \M:\twodigits\Mrest \fi             % print: minutes:seconds
   \else \H:\twodigits\M:\twodigits\Mrest \fi  % print: hours:minutes:seconds
}}
\def\twodigits#1{\ifnum#1<10 0\fi#1}
\def\miliseconds #1.#2#3#4\end{#1\ifx.#2\else.#2\ifx.#3\else#3\fi\fi}

1.25678: \duration{1.25678}  % prints: 1.25

125.35:  \duration{125.35}   % prints: 2:05

18249:   \duration{18249}    % prints: 5:04:09

\bye

편집하다그리고 두 번째 해결책. 그것은 사용한다TeX 프리미티브만그리고 \newcount매크로. 그리고 그 아이디어는 위와 같습니다. 이제 시간은 2^31초로 제한되며 이는 68년을 의미합니다.

\newcount\S \newcount\H  \newcount\Hrest  \newcount\M  \newcount\Mrest

\def\duration#1{%
   \setS#1.\end
   \H=\S \divide\H by3600
   \Hrest=\H \multiply\Hrest by-3600 \advance\Hrest by\S
   \M=\Hrest \divide\M by60
   \Mrest=\M \multiply\Mrest by-60 \advance\Mrest by\Hrest
   \ifnum \H=0
     \ifnum\M=0 \miliseconds#1...\end             % print: seconds.miliseconds  
     \else \the\M:\twodigits\Mrest \fi            % print: minutes:seconds
   \else \the\H:\twodigits\M:\twodigits\Mrest \fi % print: hours:minutes:seconds
}
\def\setS#1.#2\end{\S=#1\relax}
\def\twodigits#1{\ifnum#1<10 0\fi\the#1}
\def\miliseconds #1.#2#3#4\end{#1\ifx.#2\else.#2\ifx.#3\else#3\fi\fi}

1.25678: \duration{1.25678}

125.35:  \duration{125.35}

18249:   \duration{18249}

\bye

Question 4

(OP에서 다음을 명확히 한 후 Lua 코드를 업데이트했습니다.반올림기간 계산 시 초에 잘림 대신 적용되어야 합니다.)

LuaLaTeX 기반 솔루션은 다음과 같습니다. 서문은 Lua 함수라는 이름 formatted_duration과 TeX 매크로라는 이름을 모두 설정합니다 \fdur. TeX 매크로는 하나의 인수(초 및 1초 단위의 지속 시간)를 취하며, 이를 Lua 함수에 전달하여 시간-분-초 계산과 필요한 형식 재지정을 수행합니다.

\documentclass{article}

%% Lua-side code
\usepackage{luacode}
\begin{luacode}
function round(num, idp)
  local mult = 10^(idp or 0)
  return math.floor(num * mult + 0.5) / mult
end

function formatted_duration ( n ) 
  local h=0; local m=0; local s
  n = tonumber ( n )
  -- First, calculate hours, minutes, and seconds
  if n >= 3600 then
    h = math.floor (n / 3600)
    n = n - h*3600
  end
  if n >= 60 then
    m = math.floor ( n / 60 )
    n = n - m*60
  end 
  s = round ( n , 3 )

  -- Next, format h, m and s as needed, then return the formatted string
  if h>0 then
     return tex.sprint ( h .. ":" .. string.format("%02d", m ) .. 
                              ":" .. string.format("%02d", round (s,0) ) )
  elseif m>0 then
     return tex.sprint ( m .. ":" .. string.format("%02d", round (s,0) ) )
  else
     return tex.sprint ( string.format ( "%.3f", s ) )
  end
end 
\end{luacode}

%% TeX-side code
\newcommand\fdur[1]{\directlua{formatted_duration(\luastring{#1})}}

\begin{document}
\begin{tabular}{ll}
Input & Output of \texttt{\string\fdur} \\[1ex]
1 & \fdur{1}             \\ % -> "1.000" 
1.25678 & \fdur{1.25678} \\ % -> "1.257" 
125.35  & \fdur{125.35}  \\ % -> "2:05"  
18249   & \fdur{18249}   \\ % -> "5:04:09"
\end{tabular}
\end{document}

Answer

(OP에서 다음을 명확히 한 후 Lua 코드를 업데이트했습니다.반올림기간 계산 시 초에 잘림 대신 적용되어야 합니다.)

LuaLaTeX 기반 솔루션은 다음과 같습니다. 서문은 Lua 함수라는 이름 formatted_duration과 TeX 매크로라는 이름을 모두 설정합니다 \fdur. TeX 매크로는 하나의 인수(초 및 1초 단위의 지속 시간)를 취하며, 이를 Lua 함수에 전달하여 시간-분-초 계산과 필요한 형식 재지정을 수행합니다.

\documentclass{article}

%% Lua-side code
\usepackage{luacode}
\begin{luacode}
function round(num, idp)
  local mult = 10^(idp or 0)
  return math.floor(num * mult + 0.5) / mult
end

function formatted_duration ( n ) 
  local h=0; local m=0; local s
  n = tonumber ( n )
  -- First, calculate hours, minutes, and seconds
  if n >= 3600 then
    h = math.floor (n / 3600)
    n = n - h*3600
  end
  if n >= 60 then
    m = math.floor ( n / 60 )
    n = n - m*60
  end 
  s = round ( n , 3 )

  -- Next, format h, m and s as needed, then return the formatted string
  if h>0 then
     return tex.sprint ( h .. ":" .. string.format("%02d", m ) .. 
                              ":" .. string.format("%02d", round (s,0) ) )
  elseif m>0 then
     return tex.sprint ( m .. ":" .. string.format("%02d", round (s,0) ) )
  else
     return tex.sprint ( string.format ( "%.3f", s ) )
  end
end 
\end{luacode}

%% TeX-side code
\newcommand\fdur[1]{\directlua{formatted_duration(\luastring{#1})}}

\begin{document}
\begin{tabular}{ll}
Input & Output of \texttt{\string\fdur} \\[1ex]
1 & \fdur{1}             \\ % -> "1.000" 
1.25678 & \fdur{1.25678} \\ % -> "1.257" 
125.35  & \fdur{125.35}  \\ % -> "2:05"  
18249   & \fdur{18249}   \\ % -> "5:04:09"
\end{tabular}
\end{document}

사람이 읽을 수 있는 형식으로 시간(기간)을 표시하는 명령

답변1

답변2

답변3

답변4

관련 정보