Inch-Rechner, Zeitrechner und Programmierschnipsel

Inch-Rechner

Rechner für die Umrechnung von mil, inch, dpi, pixel/mm und der Berechnung von Mehrwertsteuerbeträgen. Die Benutzung erfolgt ohne Gewähr.

Zeitrechner

Zeitrechner für die Berechnung von Tagesdifferenzen und Wochentagen. Die Benutzung erfolgt ohne Gewähr.

Kalender 2012

Die Benutzung erfolgt ohne Gewähr.

Stromrechner

Stromrechner bei Mehrfachtarif. Die Benutzung erfolgt ohne Gewähr.

Programmierschnipsel

Wolkwolke aus Excel in HTML

Das folgende VBA for Excel-Script erzeugt aus einer Excel-Tabelle eine Wortworke als HTML, welche direkt im Standardbrowser Firefox dargestellt wird. Hintergrund war die Aufgabe, eine Wortwolke in kurzer Zeit aufzubereiten und zu präsentieren. Die seitenfüllende Volbild-Ansicht erreicht man im Firefox mit F11. Eine korrekte Darstellung im InternetExplorer ist nicht realisiert. Eine Skalierung erfolgt soweit möglich automatisch, indem der Nutzer im Excel-File ein Verhältnis vorgibt, mit dem mehr oder weniger große Wörter generiert werden. Dies hat direkten Einfluß auf die Anzahl der dargestellten Wörter. Überhängende Worte werden in einen bei der Präsentation nicht sichtbaren Bereich gezwängt.

Als Hintergrund findet eine skalierbare SVG-Grafik Verwendung. Diese wurde mit InkScape erstellt und muß, damit sie als Objekt skalierbar wird, mit einem viewBox-Element erweitert werden.

Das Script arbeitet folgendermaßen:

Deklaration der externen Funktion ShellExecute()
Verteilung der Wörter berechnen
Globale Skalierung berechnen
HTML-File erstellen
Stylesheets für 5 Gruppen festlegen
Div's als Verdänger zum Halten der Form einfügen
Gruppierung eines Wortes berechen und ausgeben
HTML-File abschließen
Standard-Browser mit diesem HTML-File indirekt aufrufen

Und so sieht die generierte HTML-Seite aus

Quellen

XLS-File (Excel-File mit VBA-Script)
SVG-Grafik
VBA-Script

Alter aus dem Geburtstag berechnen

Die folgende 'OpenOffice/StarBasic-Funktion' zeigt die Berechnung des ungefähren Alters einer Person ausgehend von einem gegebenen Geburtstag. Das Geburtstag steht jeweils in Spalte B.

Quellen

StarBasic-Function


          =(DATWERT(TEXT(HEUTE();"TT.MM.JJJJ"))-DATWERT(TEXT($B1;"TT.MM.JJJJ")))/365,25