%% `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" %% 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