我花了 3 个小时尝试编写一个命令来格式化以浮点数(以秒为单位)表示的时间(持续时间),如下所示:
if the time is < 60 write as a float with 3 decimals (i.e. milliseconds)
else let h,m,s be the hours, minutes and seconds corresponding to the time
if h=0 then write as m:ss (ss always with 2 digits, m can have only 1)
else write h:mm:ss (mm and ss with 2 digits, h can have only 1)
因此 1.25678 给出 1.256,125.35 给出 2:05,18249(等于 5*3600+4*60+9)给出 5:04:09。
我尝试了几个软件包进行比较/格式化。没有成功。有人能帮我吗?谢谢!
答案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}
答案2
对于这个问题来说,使用\pgfmathparse
是有问题的,因为整数除法在 16500 左右时会失败,并出现“维度太大”错误。特别是,如果不加注意,任何使用的解决方案\pgfmathparse
都无法应对 OP 的例子,18249
因为这个数字太大。
对于大型(整数)计算信特系列软件包很难被击败(不幸的是,我发现它的文档很难理解,因为给出的例子很少)。使用新工具和信特压裂, 和...一起希尼奇我们可以回答这个问题,特别是应对“大型”的例子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
来自的命令希尼奇用于格式化输出,特别是通过 用前导零填充minimum-integer-digits=2
。
很可能这些xint
命令可以更有效地使用!
答案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
答案4
(在原帖澄清后,更新了 Lua 代码四舍五入在持续时间计算中,应该将秒数应用为“√”,而不是截断。)
这是一个基于 LuaLaTeX 的解决方案。前言设置了一个名为 的 Lua 函数formatted_duration
和一个名为 的 TeX 宏\fdur
。TeX 宏接受一个参数(以秒和秒的分数为单位的持续时间),并将其传递给 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}