Domino 9 und frühere Versionen > Entwicklung

Kalendereintrag Date, Time

(1/3) > >>

TMC:
Hi,

ich schreibe über ein Script Daten einer Dialogbox in einen Kalendereintrag der Mail-DB. Der Eintrag ist vom Typ "Reminder".
Als Beispiel hab ich mich hier orientiert: http://www.eknori.de/tips/reminder.htm


Nun gibts ja folgende Felder in der Kalendermaske die u.a. gefüllt werden sollten:

--- Zitat ---StartDate
StartTime
StartDateTime
EndDate
EndTime
EndDateTime
--- Ende Zitat ---

Wenn ich jedes Feld mit Datum der Dialogbox fülle, klappt es wunderbar, als Zeit zeigt Notes dann (wie erwartet) 0:00 Uhr an.

Jetzt soll in die Maske noch ein Uhrzeit enthalten.

Die Uhrzeit wird als Datumsfeld, on Display display Time, übergeben und diese deklariere ich als

--- Zitat ---Dim Zeit As NotesDateTime
ReminderTime$ = source.FieldGetText("Reminder_Time")
Set Zeit = New NotesDateTime( ReminderTime$ )
--- Ende Zitat ---

Die Felder des Reminderdoc hätte ich nun so gesetzt:

--- Zitat ---With reminderDoc
.CalendarDateTime = Datum.lsLocalTime
.StartDate    = Datum.lsLocaltime
.StartTime   = Zeit.lsLocaltime
.StartDateTime   = Zeit.lsLocaltime
.EndDate       = Datum.lsLocaltime
.EndTime      = Zeit.lsLocaltime
.EndDateTime   = Zeit.lsLocaltime
End With
--- Ende Zitat ---

Klappt soweit auch wunderbar (lt. Anzeige in der Kalenderview), wenn ich z.B. den 23.09.03, 15:00 Uhr als Reminder setze.

Nur setzt Notes das STARTDATETIME auf "30.12.1899 15:00:00 CET".

Daher meine Befürchtung, dass das Reminden etc. nicht klappt.

Wie kann ich denn das anpassen?

TMC

TMC:
*mal hoch schieb den Thread*

Sollte ich mich unklar ausgedrückt haben, dann bitte auch Info....

TMC

koehlerbv:
Nur mal auf die Schnelle - kann's gerade nicht testen:
Der 30.12.1899 ist der "Nullpunkt" für Notes' Datums-Nummern,
mit 15:00 Uhr hintendran ist dies also 0 + 15/24.
Probier daher mal, StartDateTime aus StartDate + StartTime zu bilden.

Vielleicht war's das ja schon ...

Das nächste Mal wieder getestete Antworten ;-)

Bernhard

TMC:
Hi Bernhard,


--- Zitat ---Probier daher mal, StartDateTime aus StartDate + StartTime zu bilden.
--- Ende Zitat ---

Ähm, wie müsste ich das im Script schreiben?

--- Code: ---With reminderDoc
.CalendarDateTime = Datum.lsLocalTime
.StartDate    = Datum.lsLocaltime
.StartTime   = Zeit.lsLocaltime
.StartDateTime   = Zeit.lsLocaltime
.EndDate       = Datum.lsLocaltime
.EndTime      = Zeit.lsLocaltime
.EndDateTime   = Zeit.lsLocaltime
End with
--- Ende Code ---

reminderDoc.CalendarDateTime = Datim.IsLocalTime + Zeit.IsLocaltime
geht ja so niemals ned...

Ich habe auch mal im Mailfile in der FORM "_Calendar Entry" geschaut, nur da werde ich irgendwie ned schlau; die haben da ein JavaScript im Event 'on change' drin im Feld 'StartTime'.....

Lt. dem Folder ($Alarms) wird für den Alarm das Feld CalendarDateTime rangezogen.

Grüße,
TMC

Glombi:
Hi,
ich würde das so machen:

dim StartDateTime as NotesDateTime
set StartDateTime = New NotesDateTime(Datum.LocalTime & " " & Zeit.LocalTime)

reminderDoc.StartDateTime = StartDateTime.LSLocalTime

EndDateTime analog...

Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite