Domino 9 und frühere Versionen > Entwicklung

Datumsfeld umsetzen ???

(1/4) > >>

Jeff:
Hallo, ich habe folgendes Problem, das mir schon seit einiger Zeit Kopfzerbrechen
bereitet:  Es werden 3 x täglich Daten mit SQL von AS400 ins Lotus Notes übertragen und dies in einer Maske gespeichert. So weit so gut ;D
In meinem Fall handelt sich um ein Datumsfeld. Daten werden wie folgt übertragen und so in der Ansicht angezeigt:

z.B. 250103 oder 10103

Meine Frage: kann ich diese Daten mit einer Formel so umsetzen  dass diese nacher wie folgt angezeigt und sortiert  werden können?

25.01.2003 oder 01.01.2003

Vielen Dank

Thomator:
Hallo Jeff,
relativ leicht ist das über ein Script zu realisieren:

Dim DatumAS400, DatumNotes as String
DatumAS400 = das übergebene Datum
DatumNotes = Strleft(DatumAS400, 2) & "." & Mid(DatumAS400, 2, 4) & "." & strrightback(DatumAS400, 2)

Dann kannst Du theoretisch aus der Variablen DatumNotes den fertigen String auslesen.

Müsste so gehen (habs nicht getestet!)

Gruss
Thomas

dirk_2909:
Du musst den Datumwert in einen String umwandeln und zerlegen:

Abfragen, ob @Lenght(wert) = 5 dann dem String eine 0 vorsetzen und dann zerlegen.
Bsp: @Left(wert;2) + "." + @Middle(2;2) + ".20" + @Right(2)
oder so ähnlich

Ich hoffe das es Dir hilft

Jeff:
Hallo Dirk, Hallo  Thomator,

Vielen Dank für Euere Antworten  ;D verstehe aber leider nicht (Lotus Script ??? kenne ich gar nicht) , was damit gemeint ist, könnt Ihr mir Anhand  von einem Beispiel erklären wie ich das genau machen kann.

Datumsfeld AS400: A1LBAM (Wert: 10103)
Datumsfeld Notes:  A1LBAM (Wert soll  01.01.2003 angezeigt werden)

Wie mache ich so etwas mit Lotus Script?  ???

Es tut mir leid :'(, aber ich komme leider nicht weiter.

Vielen Vielen Dank und Gruss

Jeff

dirk_2909:
Ein Beispiel in LS:

Dim strNeuerWert as String
Dim doc as NotesDocument
Set doc = uidoc.Document

strNeuerWert = Strleft(cstr(doc.A1LBAM(0)), 2) & "." & Mid(cstr(doc.A1LBAM(0)), 2, 4) & ".20" & strrightback(cstr(doc.A1LBAM(0)), 2)

doc.A1LBAM = strNeuerWert
Call doc.Save(True,True)
Call uidoc.Refresh

Beispiel Formelsprache:

wert:=@Text(A1LBAM);
wert1:=@If(@Length(wert)=5;"0"+wert;wert);
neu:=@Left(wert;2) + "." + @Middle(2;4) + ".20" + @Right(2);
Field A1LBAM:=neu;""


So in der Art. Hängt natürlich davon ab, wo Du das Script unterbringst ??!!

Dirk

Navigation

[0] Themen-Index

[#] Nächste Seite