jo gut, aber wenn ich nur die Variable mit der Zeit einsetzte
Dim dt As New NotesDateTime("Zeit_v")
dann zeigt er mir ebenso keinen Inhalt :(
Dim dateTime As New NotesDateTime("")
dateTime.LocalTime = Datenumber(2005, 03, 04) + Timenumber(8,15, 0)
Call dateTime.SetAnyDate
Bernhard, was meinst Du ?
Prinzipiell: Es ist die schlechteste Idee, die man haben kann, Date-/Time-Werte in Strings abzuspeichern.
Was jetzt folgt, gilt auch nur, wenn der Client, der den unseligen String gebildet hat, mit den gleichen länderspezfischen Einstellungen lief wie der, der jetzt die Konvertierung durchführen soll.
Selbstverständlich kann man Strings, die korrekt einen Datums-/Zeitwert darstellen, mit Cdat in ein Variant des Typs 7 wandeln, ebenso funktioniert die Bildung eines NotesDateTime-Objekts.
Beispiel:
Gegeben sei ein Feld "DateString", Typ String, Inhalt "8:15".
Der folgende Code gibt dann korrekt "08:15:00" aus, der Variant ist vom Typ 7 und korrekt gefüllt:
Sub Click (Source As Button)
Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Dim vDT As Variant
Set doc = ws.CurrentDocument.Document
vDT = Cdat (doc.DateString (0))
Messagebox vDT
End Sub
Benötigt man zum Weiterrechnen nur die Uhrzeit, zieht man sich einfach den Fraction-Part.
Bernhard