Hallo,

wie formatiert man im untenstehenden Script die Zahlen für Monate und Tag zweistellig?

Dim heute As Date ' definiert eine Variable namens' "heute"
heute = Now ' die Variable bekommt den Wert für "heute" zugewiesen
SendKeys Day(heute) & "."
SendKeys Month(heute) & ". " & Year(heute)

Falls es eine datumsspezifische Form gibt, auch gleich die Frage, wie das bei anderen Zahlenwerten ist.

also anstelle 9 soll 09 stehen usw.

Hallo Anja, schön mal wieder von dir zu hören.

Eine einfache Methode wäre

SendKeys Format$(Date, "dd.mm.yyyy")

Dies sendet das komplette Datum.

Eine solche Angabe ist aber nur erforderlich, wenn die Formatierung von demjenigen abweicht, was in Windows voreingestellt ist, Letzteres gilt jedenfalls unter Windows 7, bei Windows XP weiß ich es nicht. Apropos XP: ich meine mich zu erinnern, dass der Drache ein Update auf Servicepack 3 ganz schön findet....

Marius
P.S.: Eine allgemeine Vorgabe, alle Zahlen mit führenden Nullen zu formatieren, gibt es m. E. nicht.

Halla Marius,

danke Weißt Du auch, wie ich Zahlen per Script unterscheiden kann, ob die ein- oder zweistellig sind und wenn einstellig, dass die dann mit führender Null ausgegeben werden?

Anja,

vgl. mein Postscriptum, ich weiß es nicht, sofern es um zu diktierende Zahlen geht.

Ich sage die null vorweg, also beispielsweise "null acht" für 08. Das klappt ganz gut, außer, wenn danach ein Komma folgt, dann wird daraus beispielsweise null 8,75. Das lässt sich mit dem Buchstabiermodus oder Ziffernmodus verhindern oder durch das Diktat von "Ziffer Null ohne-Leerschritt Komma sieben fünf", was nicht gerade intuitiv ist. Für einige dieser Kombinationen, die ich häufig brauche, habe ich mir entsprechende Ausdrücke im Vokabular hinterlegt (gesprochene/geschriebene Form), bei Werten unter 1 klappt das aber nur mit der Form "Doppelnull komma zwei fünf".

Marius

Zitat von Drachenfee

---

Halla Marius,

danke Weißt Du auch, wie ich Zahlen per Script unterscheiden kann, ob die ein- oder zweistellig sind und wenn einstellig, dass die dann mit führender Null ausgegeben werden?

---

Meine Lieben, ich steige jetzt quer hier ein auf die Gefahr hin, etwas falsch zu verstehen. Zum Grundsatz, etwas mit einer führenden Null ist programmatisch keine Zahl, sondern ein Zeichen. Zahlen dagegen sind entweder immer Ganzzahlen, Dezimalzahlen usw.

Wenn es aber darum geht, mittels Skript zu testen, ob das erste Zeichen in einer Folge von Zeichen eine Null ist, geht das zum Beispiel so:

    Dim x As String
    x = "01"
    If Left(x,1) = "0" Then
    MsgBox "Erstes Zeichen ist 0."
    Else
    MsgBox "Erstes Zeichen ist nicht 0."
    End If
 
 

Grüße, Rüdiger

Hallo Rüdiger,

Deine Vermutung ist fast richtig. Allerdings geht es nicht darum, zu prüfen, ob eine Zahl eine führende null besitzt (und von mir aus sei es ein Zeichen ), sondern, dass alle Zahlen, die mit dem Skript automatisch generiert werden, zum Beispiel dreistellig mitführender null ausgegeben werden.

Also der Variableninhalt ist zum Beispiel 12, dann müsste in der Messagebox Ziffern 012 stehen.
Wenn der Variableninhalt 9 ist, dann wäre das Endergebnis in der Variablenziffern 009.
Und bei einem Variableninhalt von 119 bliebe es bei 119.

Platt ausgedrückt –formatieren Zahlen in der Form 000.

Hallo Anja,

kann man das auch anders betrachten, etwa so: wenn der Inhalt der Variable einstellig ist, füge zwei Nullen davor, wenn der Inhalt zweistellig ist, füge eine Null davor, sonst mache nichts?

Dann teste es mal mit dem folgenden Beispiel, wobei Du für x wahlweise ein- bis dreistellige Zahlen eingibst:

Dim x As Variant
x = 1
If Len(x) = 1 Then x = "00" & x
If Len(x) = 2 Then x = "0" & x
MsgBox x
 
 

Aber bedenke, dass je nachdem, wie das Skript verwendet wird, Probleme mit der Behandlung der Datentypen (Variant, Integer, String usw.) entstehen können und ich deshalb keine allgemein funktionierende Form präsentieren kann, ohne die Zusammenhänge zu kennen.

Gruß, Rüdiger

Hallo Rüdiger,

Problem gelöst der Ansatz ist genau richtig!