SetAnyTime wieder aufheben

[WildVirus]

Moin,

hab einen Datumswert mit ....setanytime "kastriert".

Später im Code benötige ich ihn dann mit einer Uhrzeit 07:30.

Ich glaub es ist zu spät für mich, ich kriegs heute nicht mehr hin.

Hab's mit .adjusthour(7) versucht,  aber es hat nicht geklappt.

Gibt's dafür überhaupt nen Befehl oder muss ich mir das zusammenbauen ?

Hau mich jetzt mal ein paar Stunden auf's Ohr - vielleicht sehe ich dann nicht nur den Wald......

Gute Nacht und ich freue mich über jeden Tipp
Axel

[Peter Klett]

Sub Initialize
   Dim dt As New NotesDateTime("")
   Call dt.SetNow
   MessageBox dt.LocalTime,, "Date and time set to now"
   Call dt.SetAnyTime
   MessageBox dt.LocalTime,, "Date and time set to any date"
   Set dt = New NotesDateTime (dt.LocalTime & " 07:30:00")
   MessageBox dt.LocalTime,, "Date and time set to date & 7:30"
End Sub

Warum "kastrierst" Du den Wert, den Du später wieder vollständig brauchst? Wäre es nicht eleganter, mit einem separaten Objekt zu arbeiten?

Ist es zweckmäßig, mit NotesDateTime zu arbeiten und dann hart eine Uhrzeit einzutragen? M.E. ist doch gerade der Sinn von NotesDateTime, unterschiedliche Zeitzonen zu handeln, also alles relativ zu gestalten (1 Stunde rauf, 5 Minuten runter usw.) Folglich gibt es auch gar keine Methode in der Klasse, mit der eine Uhrzeit wie 7:30 direkt eintragen werden kann. Der o.g. Code wird in unterschiedlichen Zeitzonen unterschiedliche Ergebnisse produzieren, auch wenn er augenscheinlich funktioniert.