Autor Thema: Datumsvergleich in Script  (Gelesen 1603 mal)

Offline Don Pasquale

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.390
  • Geschlecht: Männlich
  • Don Pasquale
    • Auf Verlorenem Posten
Datumsvergleich in Script
« am: 06.01.03 - 17:48:09 »
Hallo Notes-Gemeinde,

ich habe ein Array, welches teilweise mit Datumswerten gefüllt ist,
dieses Array will ich auf- oder Absteigend nach diesen Datumswerten sortieren. soweit bin ich bisher gekommen, aber
danach verliessen sie ihn.
Wie vergleiche ich 2 String felder in denen ein Datum steht ?

Auszug aus dem Code :
...
Dim x As Integer
x = dc.Count

Dim Ersatz (1 To 2 ) As Variant
Dim AnArray ( )
Redim AnArray ( 1 To x, 1 To 2 ) As Variant
         
Set doc=dc.GetFirstDocument  
i = 1
While Not (doc Is Nothing)    
         
AnArray(i,1) = doc.e4fld_Doc_ID(0)
AnArray(i,2) = doc.e4ihk_DokumentDatum(0)
i = i + 1
Set doc = dc.GetNextDocument(doc)          
Wend   
         
         
For i = 1 To x-1
      
Dim Dat1 As New NotesDateTime( Cdat( AnArray(i,2) ))
Dim Dat2 As New NotesDateTime( Cdat(AnArray(i+1,2)))
            
            
If Dat1 < Dat2 Then



vielen dank
für eure hilfe


ciao
Don Pasquale

Offline wflamme

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 690
  • Geschlecht: Männlich
  • Irgendwie geht das schon...
    • wflamme
Re:Datumsvergleich in Script
« Antwort #1 am: 06.01.03 - 22:11:49 »
CDat() vergleichen statt NotesDateTime, würde ich sagen.
Grüße,
Wolfgang

"I love deadlines. I love the whooshing sound they make as they pass by..."
DOUGLAS ADAMS

wflamme@mainz-online.de
http://www.sns1.de/partner/flamme/wflamme.nsf

Offline forrest g

  • Aktives Mitglied
  • ***
  • Beiträge: 130
  • Geschlecht: Männlich
  • Ich liebe dieses Forum!
Re:Datumsvergleich in Script
« Antwort #2 am: 07.01.03 - 02:10:04 »
hallo don pasquale,

vorweg muss ich sagen, dass ich das ganze natürlich nicht mit deinem code testen konnte/wollte.
deshalb habe ich mir eine einfache form mit 4 feldern erstellt:
- 2 stringfelder vom typ text  mit den datumswerten darin(per hand eingegeben)
- 2 datetimefelder vom typ date/time, computet mit @texttotime(stringfeld)

also der code geht folgendermassen weiter:

Dim timediff As Long
      
timediff = Dat1.TimeDifference(Dat2)
If (timediff < 0) Then
   'Datum1 < Datum2
   'Print"Datum1 < Datum2"
   Msgbox"Datum1 < Datum2, dh Datum2 ist grösser"
Elseif (timediff > 0) Then
   'Datum1 > Datum2
   'Print"Datum1 > Datum2"
   Msgbox"Datum1 > Datum2, dh Datum1 ist grösser"
Elseif (timediff = 0) Then
   'Datum1 = Datum2
   'Print"Spezialfall: beide Datumswerte sind gleich"   
   Msgbox"Wenn das sein kann, irgendwas dafür überlegen..."   
End If

Offline Don Pasquale

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.390
  • Geschlecht: Männlich
  • Don Pasquale
    • Auf Verlorenem Posten
Re:Datumsvergleich in Script
« Antwort #3 am: 07.01.03 - 09:25:04 »

@wflamme

hatte ich vorher bereits probiert :-(

@Forrest g

Dim timediff As Long    
timediff = Dat1.TimeDifference(Dat2)

Das ist es.
Vielen Dank.

Ciao

Don Pasquale

Offline wflamme

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 690
  • Geschlecht: Männlich
  • Irgendwie geht das schon...
    • wflamme
Re:Datumsvergleich in Script
« Antwort #4 am: 07.01.03 - 11:13:07 »
War mir auch nicht 100%ig sicher, aber irgendeine C... Funktion wird's mit Sicherheit schon tun, probier mal CDbl(CDat()) oder so. Ist höchstwahrscheinlich schneller als der Weg über's Objekt (sofern Zeitzonen keine Rolle spielen).
Grüße,
Wolfgang

"I love deadlines. I love the whooshing sound they make as they pass by..."
DOUGLAS ADAMS

wflamme@mainz-online.de
http://www.sns1.de/partner/flamme/wflamme.nsf

Offline Till_21

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 708
  • Geschlecht: Männlich
  • I love Germany
Re:Datumsvergleich in Script
« Antwort #5 am: 07.01.03 - 15:09:44 »
Du kannst auch die LSLocalTime Eigenschaft zum vergleichen benutzen.
LS ueberläd den groesser/kleiner operator...

till

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz