Autor Thema: datumsliste erstellen, wie ?  (Gelesen 1871 mal)

klaussal

  • Gast
datumsliste erstellen, wie ?
« 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.

Glombi

  • Gast
Re:datumsliste erstellen, wie ?
« Antwort #1 am: 20.01.04 - 09:40:08 »
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

Offline animate

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.540
  • Uh, I'm just gonna go find a cash machine.
    • LA2
Re:datumsliste erstellen, wie ?
« Antwort #2 am: 20.01.04 - 09:42:53 »
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))
Thomas

Fortunately, I'm adhering to a pretty strict, uh, drug, uh, regimen to keep my mind, you know, uh, limber.

klaussal

  • Gast
Re:datumsliste erstellen, wie ?
« Antwort #3 am: 20.01.04 - 09:43:08 »
... und jetzt das ganze (leider) noch in script  ;D ;D ;D

Glombi

  • Gast
Re:datumsliste erstellen, wie ?
« Antwort #4 am: 20.01.04 - 09:48:09 »
 :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

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re:datumsliste erstellen, wie ?
« Antwort #5 am: 20.01.04 - 09:48:59 »
Wie nun? Erst gibt Thomas die Antwort, und danach stellt Klaus die Frage ?   ;D

klaussal

  • Gast
Re:datumsliste erstellen, wie ?
« Antwort #6 am: 20.01.04 - 09:52:35 »
... da war jemand schneller als die frage  :P

gedankenlesen ist schon toll  :-*

Glombi

  • Gast
Re:datumsliste erstellen, wie ?
« Antwort #7 am: 20.01.04 - 09:52:59 »
Wie nun? Erst gibt Thomas die Antwort, und danach stellt Klaus die Frage ?   ;D
Es war ja nur ein dezenter Hinweis  ;D

klaussal

  • Gast
Re:datumsliste erstellen, wie ?
« Antwort #8 am: 20.01.04 - 15:31:35 »
... 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  :-* :-* :-*

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz