Makro Datum und Zeit
Verfasst: Di, 24.06.2008 19:32
Hallo Leute,
ich habe mir ein einfaches Makro geschrieben, dass Datum und Zeit ausgeben soll.
Es gibt Datum und Zeit aus, jedoch falsch.
Beispiel:
Meine Lokalzeit ist 24.06.08, 12:23.
Das ausgegebee Datum und Zeit ist 16.12.2008, 04:23.
Hier mal mein Code:
Das interessante ist, wen ich nur Datum oder Zeit ausgeben lasse, wir mird meine richtige Systemzeit angezeigt... Ich brauche aber beides in einer Zelle: JJ.MM.TT_HH:MM:SS
Nur vorweg: Ich weiß, dass es das Makro DateTime2 gibt. Für meine Zwecke ist mir das aber an Möglichkeiten einfach zu überladen. Ich als "nicht-Programmierer" steige einfach durch den Code nicht durch - daher brauche ich etwas einfacheres, was auch für mich verständlich ist.
Ich habe irgendwie die Vermutung, das das Problem in folgender Codezeile liegt:
Ich sage ja sozusagen Datum + Zeit. Rechnert Basic da irgend ewas zusammen, dass es auf diese Zahlen kommt, die mir ausgegeben werden? Ichhabe schon versucht Datum und Zeit bei der Ausgabe anstatt mit dem "&" mit "," zu trennen etc. Aber das generiert lediglich Laufzeitfehler.
Wer kann mir sagen, wo mein Fehler leigt?
Gruß.
WorstCases
ich habe mir ein einfaches Makro geschrieben, dass Datum und Zeit ausgeben soll.
Es gibt Datum und Zeit aus, jedoch falsch.
Beispiel:
Meine Lokalzeit ist 24.06.08, 12:23.
Das ausgegebee Datum und Zeit ist 16.12.2008, 04:23.
Hier mal mein Code:
Code: Alles auswählen
Sub Datum_Zeit()
Dim Datumswert as date
Dim Zeitwert as date
Datumswert = date()
Zeitwert = time()
ThisComponent.CurrentSelection.FormulaLocal = datumswert & zeitwert
End SubNur vorweg: Ich weiß, dass es das Makro DateTime2 gibt. Für meine Zwecke ist mir das aber an Möglichkeiten einfach zu überladen. Ich als "nicht-Programmierer" steige einfach durch den Code nicht durch - daher brauche ich etwas einfacheres, was auch für mich verständlich ist.
Ich habe irgendwie die Vermutung, das das Problem in folgender Codezeile liegt:
Code: Alles auswählen
ThisComponent.CurrentSelection.FormulaLocal = datumswert & zeitwertWer kann mir sagen, wo mein Fehler leigt?
Gruß.
WorstCases
