Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Rob Green am 06.03.03 - 13:50:26

Titel: explode in script?
Beitrag von: Rob Green am 06.03.03 - 13:50:26
ich nutze die @explode Formel, um einen Zeitraum zB vom 04.03.-07.03. in eine Werteliste zu überführen...> 04.03. 05.03 06.03. 07.03.

nun habe ich mir ne Wiederholungsfunktion eingebaut (Quelle aus dem Inet) womit ich Termine eben wiederholen kann. NUR, wie bekomme ich es eigentlich hin, daß das Feld mit dem berechneten @EXPLODE mitupgedatet wird? Alles erfolgt im Backend...tja..

Die Formel (Feldtyp TEXT, berechnet)
_VarRange:=
@Explode(
@TextToTime(
@Text(StartDate;"D0S0") + " - " + @Text(EndDate;"D0S0")
)
);
_VarRange

irgendwie...*runzel*
Titel: Re:explode in script?
Beitrag von: Rob Green am 06.03.03 - 13:54:04
radio eriwan: im prinzip

START = uidoc.FieldGetText( "StartDatum" )
ENDE = uidoc.FieldGetText( "EndeDatum" )
Datumse = "["+ Cstr(START) +"-"+ Cstr(ENDE) +"]"
WERTE = Evaluate( { @Explode( @TextToTime( "} & DATUMSE & {" ) ) } )

quelle: LDD
Titel: Re:explode in script?
Beitrag von: ata am 06.03.03 - 15:34:29
... ich habe mal ne Library mit verschiedensten Datumshandlings ins Forum gestellt, da gibts auch die Möglichkeit einen Range zu öffnen...

ata
Titel: Re:explode in script?
Beitrag von: forrest g am 06.03.03 - 15:56:26
hi rob,

habe ich dich richtich verstanden(?) und du möchtest bei
veränderungen im doc, die werteliste mit den datumsdaten(gibts das wort eigentlich?) auch aktualisieren?

dann schreib doch ne neuberechnung in das feld:
@If( @IsNewDoc & @IsDocBeingLoaded; ""; _VarRange )

ich weiss nich genau, ob ich dich richtich verstanden habe...deshalb...

wenn nich schreib das(natürlich auf deine gegebenheiten abgewandelt da rein):
   Dim DateListe() As String
   Dim dateVon As New NotesDateTime(Von)      Dim dateBis As New NotesDateTime(Bis)   
   Dim dateAdj As New NotesDateTime(Von)   
   
   DiffSec = dateVon.TimeDifference( dateBis )
   DiffDay = DiffSec/-86400   
   
   For i=0 To (DiffDay)
      
      Redim Preserve DateListe(i)
      DateListe(i) = dateAdj.dateonly
      Call dateAdj.AdjustDay( 1 )      
   Next

   doc.DEINFELDMITDERLISTEDERDATEN = DateListe

vielleicht hilft dir dsas ja...

tschö
Titel: Re:explode in script?
Beitrag von: Rob Green am 07.03.03 - 11:08:33
prima, dankeschön  :)