1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
|
%%
%% This is file `scrtime.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% scrtime.dtx (with options: `scrtime')
%%
%% Copyright 1994-1996 Markus Kohm.
%% All rights reserved. For further copyright information see the file
%% legal.txt, and any other copyright indicated in this file.
%%
%% This file is part of the LaTeX2e KOMA-Script-bundle.
%% ----------------------------------------------------
%%
%% The KOMA-Script-bundle (but not this file) bases on the
%% Script-family created by Frank Neukam 1993 and the standard
%% documents classes created by the LaTeX3-Team 1994-1996.
%% -------------------------------------------------------------
%%
%% This system is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
%%
%%
%% IMPORTANT NOTICE:
%%
%% For error reports in case of UNCHANGED versions see documentation.
%%
%% Please do not request updates from us directly. Distribution is
%% done through Mail-Servers, Mailboxes and TeX organizations.
%%
%% You are not allowed to change this file.
%%
%% You are allowed to distribute this file under the condition that
%% it is distributed together with all files mentioned in readme.txt
%% and liesmich.txt.
%%
%% If you receive only some of these files from someone, complain!
%%
%% You are NOT ALLOWED to distribute this file alone. You are NOT
%% ALLOWED to take money for the distribution or use of either this
%% file or a changed version, except for a nominal charge for copying
%% etc.
%%
\NeedsTeXFormat{LaTeX2e}[1995/12/01]
\ProvidesPackage{scrtime}
[1997/06/21 v1.1h LaTeX2e KOMA
package]
\newif\if@Hxii
\DeclareOption{12h}{\@Hxiitrue}
\DeclareOption{24h}{\@Hxiifalse}
\ExecuteOptions{24h}
\ProcessOptions
\def\thistime{%
\@ifstar
{\let\@tempif\iffalse\@thistime}
{\let\@tempif\iftrue\@thistime}}
\newcommand*{\@thistime}[1][:]{%
\begingroup
\@tempcnta\time\divide\@tempcnta60\multiply\@tempcnta60
\@tempcntb\time\advance\@tempcntb-\@tempcnta
\divide\@tempcnta60
\if@Hxii\ifnum\@tempcnta>12 \advance\@tempcnta-12 \fi\fi
\the\@tempcnta{#1}\@tempif\ifnum\@tempcntb<10 0\fi\fi\the\@tempcntb%
\endgroup}
\newcommand*{\settime}[1]{\renewcommand*{\@thistime}[1][]{#1}}
\endinput
%%
%% End of file `scrtime.sty'.
|
