datumsliste erstellen, wie ?

[klaussal]

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.

[Glombi]

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

[animate]

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))

[klaussal]

... und jetzt das ganze (leider) noch in script  

[Glombi]

 

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

[koehlerbv]

Wie nun? Erst gibt Thomas die Antwort, und danach stellt Klaus die Frage ?  

[klaussal]

... da war jemand schneller als die frage  

gedankenlesen ist schon toll  

[Glombi]

Wie nun? Erst gibt Thomas die Antwort, und danach stellt Klaus die Frage ?  

Es war ja nur ein dezenter Hinweis  

[klaussal]

... 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