Domino 9 und frühere Versionen > Entwicklung

Zeitplan im Kalenderprofil per Script ändern

(1/2) > >>

mibo11:
Hallo,

wie kann man im Kalenderprofil per Script den Zeitplan ändern.

Ich möchte die eingegebenen Zeiten ändern in 09:00 - 12:00, 13:00 - 18:00.

Einzelne Werte, also 09:00 ist kein Problem aber wie stelle ich eine Zeitspanne ein?

Gruß Sascha

koehlerbv:
Entweder, du nimmst Evaluate her (siehe den Code in $Times1 des CalendarProfiles), oder Du baust Dir via DateNumber das Array selber zusammen.

Wo liegt Dein wirkliches Problem ?

Bernhard

mibo11:
Hallo Bernhard,

folgender Code


   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim profdoc As NotesDocument
   
   Dim ergebnis As Variant
   Dim formelmacro As String   
   
   Set db = s.CurrentDatabase
   Set profdoc = db.GetProfileDocument("CalendarProfile")   
   
   formelmacro = {@TextToTime(@Text(@Adjust([00:00:00]; 0; 0; 0; 9; 0; 0)) + " - " + @Text(@Adjust([00:00:00]; 0; 0; 0; 12; 0; 0))) : @TextToTime(@Text(@Adjust([00:00:00]; 0; 0; 0; 13; 0; 0)) + " - " + @Text(@Adjust([00:00:00]; 0; 0; 0; 18; 0; 0)))}
   ergebnis = Evaluate(formelmacro,profdoc)
   profdoc.ReplaceItemValue "$TimesDisp2",ergebnis   ' Feld für Montag
   profdoc.save True, False, True


führt zu folgendem Ergebnis (siehe MONTAG in Kalender.jpg).

Ich möchte allerdings das Ergebnis so erzeugen wie am Dienstag, also mit Trennstrich, damit es einen Zeitraum ergibt.

Interessanterweise werden im Debugger beide Feldinhalte gleich dargestellt.

(siehe Debugger.jpg)

Eine Idee?

Gruß Sascha

Semeaphoros:
Studierst Du mal die NotesDateRange Klasse und verwendest diese

mibo11:
Hallo Jens,

danke für den Tip, aber leider bringt dies mein Verständnis auch nicht weiter.

Wie binde ich dann das DateRange Objekt in das Feld ein?

Gruß Sascha

Navigation

[0] Themen-Index

[#] Nächste Seite