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
|
