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:
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 Sub
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:
Code: Alles auswählen
ThisComponent.CurrentSelection.FormulaLocal = datumswert & zeitwert
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