Domino 9 und frühere Versionen > ND8: Entwicklung

String zur Zeit , Lotus Script

<< < (2/3) > >>

m3:

--- Code: ---  Dim dateTime As New NotesDateTime("")
  dateTime.LocalTime = Datenumber(2005, 03, 04) + Timenumber(8,15, 0)
  Call dateTime.SetAnyDate
--- Ende Code ---

Bernhard, was meinst Du ?

botschi:
Du musst halt Datum und Zeit angeben, gib ihm doch irgendein Datum mit...
m3, was meinst Du damit?

Matthias

Akunin:
ok, problem hat sich erledigt, aber ne gute lösung dafür gefunden, danke für eure ratschläge

botschi:
Wie sieht denn die Lösung aus?

Matthias

koehlerbv:
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:

--- Code: ---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
--- Ende Code ---

Benötigt man zum Weiterrechnen nur die Uhrzeit, zieht man sich einfach den Fraction-Part.

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete