Nochmals: Nach Datum sortieren (LScript)

[Don Pasquale]

Hallo Leute,

ich will es nochmal probieren. Ich muß eine Reihe von Dokumenten
nach ihrem Datum sortieren.
Problem: Das Datumsfeld ist ein reines Textfeld und die Daten
stehen mal so und mal so darin. Da kann ich "casten" wie ich will.

08.01.03
10.5.2002
20.11.2002
3.5.2002
13.08.02


Hier mein Code.

Dim Dat1 As New NotesDateTime( Cdat( doc1.Datumsfeld(0) ))
Dim Dat2 As New NotesDateTime( Cdat( doc2.Datumsfeld(0) ))
                  
Dim timediff As Long
               
timediff = Dat1.TimeDifference(Dat2)
                  
                  If timediff < 0 Then ' Das jüngste zuerst

Hat jemand einen Vorschlag.


So kommt das Ding sortiert raus:

08.01.03
10.5.2002
20.11.2002
3.5.2002
13.08.02
16.8.2002
08.11.02
11.11.02
11.11.02
11.11.2002
09.12.02
30.4.2002

Ich erkenne kein Sortierkriterium

Hat mir jemand einen Vorschlag ?


Ciao
Don Pasquale

[cpo]

Hi Don,

auf die Schnelle fällt mir nur ein, die Datümmer in einem Text-array umgekehrt aufzubauen also JJJJMMTT und dann das Array in eine Bubble-Sort-Funktion zu schieben. Die gibt's irgendwo hier im Forum oder in der Sandbox.
Kommt abaer darauf an, wieviele Werte du denn so hast. Je nachdem sind andere Funktionen schneller.

[klaussal]

hi pasqual,

alle "datümer" sollten sowohl tag, monat als auch das jahr 2- bzw- 4-stellig haben. also nicht 3.5.2003 , sondern 03.05.2004.
dann würde ich auch die reihenfolge ändern: jjjj.mm.tt

beachte bitte auch OFF-Topic ( 2. treffen NRW)  

gruss klaus