Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: klaussal am 20.01.04 - 09:34:57
-
moin zusammen,
stehe etwas auf dem schlauch. ich habe mehrere felder (text) in denen ein datum drinsteht. wie mache ich daraus eine datumsliste mit dem datum plus jeweils angehängter uhrzeit (die ist immer 08:00) ?
beispiel:
felda = "12.01.2004"
feldb = "23.04.2004"
usw
usw
ergebnis soll sein = "12.01.2004 08:00:00" : " 23.04.2004 08:00:00"
aber wie gesagt als DATUMSLISTE, nicht als textliste.
beispiel kalender das feld "CalendarDateTime".
vielen dank für hinweise, die zur ergreifung der lösung führen.
-
Versuch mal folgendes (hier für 3 Felder):
_TextListe := FeldA : FeldB : FeldC;
_UhrzeitAnhaengen := _TextListe + " 08:00";
_DatumZeitListe := @TextToTime(_UhrzeitAnhaengen);
Dann steht in _DatumZeitListe alles als Datumsliste mit Uhrzeit drin.
Andreas
-
Ausgangslage: du hast mehrere Strings mit nem Datum
du hängst an jeden String den String " 08:00" dran
du wandelst jeden String mit CDat in ein Datum.
du packst alle Strings in ein Array
du rufst die Methode ReplaceItemValue deines NotesDocument-Objekts auf und übergibst ihr den Array (und den Feldnamen))
-
... und jetzt das ganze (leider) noch in script ;D ;D ;D
-
:P
Also schön ;)
Es lebe Copy-Paste - als Strafe!
dim ret_eval as variant
ret_eval = Evaluate( |FIELD CalendarDateTime := @TextToTime((FeldA : FeldB : FeldC) + " 08:00:00");@True|, doc)
doc muss dann als aktuelles Backend-Dokument definiert und gesetzt sein.
Andreas
-
Wie nun? Erst gibt Thomas die Antwort, und danach stellt Klaus die Frage ? ;D
-
... da war jemand schneller als die frage :P
gedankenlesen ist schon toll :-*
-
Wie nun? Erst gibt Thomas die Antwort, und danach stellt Klaus die Frage ? ;D
Es war ja nur ein dezenter Hinweis ;D
-
... auszug aus der lösung:
eval = Evaluate(|@Explode(@TextToTime(@Text(von_dat) + "-" + @Text(bis_dat)))| , doc)
Forall x In eval
x = x + " 04:00:00"
End Forall
Dim datev() As Variant
For i = 0 To Ubound(eval)
Redim Preserve datev (i + 1)
datev (i) = Cdat (eval(i))
Next
nochmals DANKE an alle helfer :-* :-* :-*