summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/uhrzeit/uhrzeit.sty
blob: 762e98a7ef313ef410cd120bbe98583173255cd4 (plain)
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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
%% `uhrzeit.sty'
%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{uhrzeit}[2001/02/13 v0.2 Uhrzeit-Formate]
\RequirePackage{soul}
%%
%% Autor: Olaf Meltzer (Olaf.Meltzer@freenet.de)
%%        unter Verwendung verschiedener Ideen,
%%        die in de.comp.text.tex veröffentlicht wurden.
%%
%%
%% Automatische Ausgabe der Uhrzeit:
%%
%% Befehl   Format
%% ----------------------------------------------
%% \dtd      5.07      (eher ungebräuchlich)
%% \dtc     05:07      (international)
%% \uhri     5.07 Uhr  (Duden, 22. Aufl., S. 110)
%% \uhrii   05:07 Uhr  (DIN 5008)
%% \uhriii   5^07 Uhr  (ehemals üblich)
%% \uhriv   05^07 Uhr  (eher ungebräuchlich)
%%
%%
%% Alte Uhrzeit-Formatierung bei manueller Eingabe:
%%
%% Befehl                  Format
%% -----------------------------------------
%% \uhr{5}{07}             5^07 Uhr
%% \vonbis{5}{07}{13}{45}  5^07 -- 13^45 Uhr
%%
%%
%% Die Definition von '\uhr{}{}' stammt weitgehend von
%% "Andreas Matthias" <amat@kabsi.at>
%% in de.comp.text.tex am 24.09.2000
%%
%% Formatiert als '1^05 Uhr'
\newcommand{\uhr}[2]{#1%
 \sbox\z@ T%
 \vbox to\ht\z@{\hbox{\check@mathfonts
 \fontsize\ssf@size\z@
 \math@fontsfalse\selectfont
 \setul{.17em}{.03em}\,\ul{#2}\resetul}%
 \vss}\,Uhr}

%% Formatiert als '1^05 -- 2^15 Uhr'
\newcommand{\vonbis}[4]{#1%
 \sbox\z@ T%
 \vbox to\ht\z@{\hbox{\check@mathfonts
 \fontsize\ssf@size\z@
 \math@fontsfalse\selectfont
 \setul{.17em}{.03em}\,\ul{#2}\resetul}%
 \vss}~--\,#3%
 \sbox\z@ T%
 \vbox to\ht\z@{\hbox{\check@mathfonts
 \fontsize\ssf@size\z@
 \math@fontsfalse\selectfont
 \setul{.17em}{.03em}\,\ul{#4}\resetul}%
 \vss}\,Uhr}

%% Die Definition von \mytime stammt ursprünglich von
%% einem heute nicht mehr identifizierbaren user
%% des Mausnet. Sie wurde am 06.06.2000 noch einmal von
%% Stefan Witzgall in de.comp.text.tex gepostet.

% Es wird der TeX-Zähler \time verwendet, der die Systemzeit
% in "Minuten seit Mitternacht" enthält. Ich mache daraus zwei
% Zähler, \myminutes und \myhours, die die Zeit in "Stunden
% und Minuten seit Mitternacht" enthalten.
\newcount\myhours               % Zähler (Variable) \myhours Definieren
\newcount\myminutes             % \myminutes Definieren

% Berechnung der Stundenzahl:
% \myhours := \time DIV 60  (Division ohne Rest)
\myhours   = \time
\divide   \myhours by 60

% Berechnung der Minutenzahl:
% \myminutes := \time MOD 60
%             = \time  -  ( \myhours x 60 )
\myminutes = \time
\multiply \myhours by 60        % Zur Berechnung der Minuten wird noch
                                % mal an "\myhours" herumgefummelt
\advance  \myminutes by -\myhours%
\divide   \myhours by 60        % \myhours wiederherstellen

%% Verschiedene Formate für die automatische Zeitangabe:

%% International, 1.05 (eher ungebräuchlich)
\newcommand{\dtd}{\the\myhours.\ifnum\myminutes<10 0\fi\the\myminutes}

%% International, 01:05 (international)
\newcommand{\dtc}{\ifnum\myhours<10 0\fi\the\myhours:%
                 \ifnum\myminutes<10 0\fi\the\myminutes}

%% Deutsch, 1.05~Uhr (Duden)
\newcommand{\uhri}{\the\myhours.\ifnum\myminutes<10 0\fi\the\myminutes\,Uhr}

%% Deutsch, 01:05~Uhr (DIN)
\newcommand{\uhrii}{\ifnum\myhours<10 0\fi\the\myhours:%
                 \ifnum\myminutes<10 0\fi\the\myminutes\,Uhr}

%% Altes Format, 1^05 Uhr (ehemals üblich)
\newcommand{\uhriii}{\expandafter\uhr{%
   \expandafter\the\myhours}%
  {\expandafter{\expandafter{\ifnum\myminutes<10 0\fi\the\myminutes}}}}

%% Altes Format, 01^05 Uhr (eher ungebräuchlich)
\newcommand{\uhriv}{\expandafter\uhr{%
   \expandafter{\expandafter{\ifnum\myhours<10 0\fi\the\myhours}}}%
  {\expandafter{\expandafter{\ifnum\myminutes<10 0\fi\the\myminutes}}}}

%% Ende uhrzeit.sty