Re: Werte in einem Datenfeld vergleichen

> Ergebnis 25.07.2005 - 26.07.2005;29.07.2005;31.07.2005
>
> Mein erster Ansatz sieht so aus:
>
> For i3 = 0 To UBound(ADatHT)
> If Left(ADatHT(i3), 2) = Left(ADatHT(i3 + 1), 2) - 1 Then
> Ergebnis = ADatHT(i3) & " - " & ADatHT(i3 + 1)
> Else ErsterIntervallWert = Left(ADatHT(i3 + 1), 2) - 1
> End If
> Next i3
>
> Beim ersten Durchlauf der Schleife zeigt Ergebnis
> 25.07.2005 - 26.07.2005 an. Beim zweiten Durchlauf
> 26.07.2005 - 27.07.2005. Nun sollte aber am besten
> 25.07.2005 - 27.07.2005 rauskommen, bzw. am Schluß
> 25.07.2005 - 27.07.2005;29.07.2005 etc (siehe oben).
> Wie kann ich dieses Problem lösen?



Vielleicht so:

For i3 = 0 To UBound(ADatHT)
If Left(ADatHT(i3), 2) = Left(ADatHT(i3 + 1), 2) - 1 _
Then Ergebnis = ErsterIntervallWert & " - " & ADatHT(i3 + 1) _
Else ErsterIntervallWert = Left(ADatHT(i3 + 1), 2) - 1
Next i3

wobei man die Zuweisung erst am Ende vornehmen sollte und nicht jedesmal.
--
Hallo + Gruss Alexander (WinXP Home SP1 - Office 2000 SP3) 6----5----7-2


.

Relevant Pages

  • Konzeptgedanken: huge strings und Objekte
    ... l: tlist; ... macht die Zuweisung ohne Bastelei, ... Prev by Date: ... Next by Date: ...
    (de.comp.lang.delphi.misc)
  • Re: Best and worst of 2005
    ... Hitch - solide Komödie mit einem wie immer sympathischen Will Smith ... Les Dalton - Til Schweiger ist das Beste an diesem Film. ... Prev by Date: ... Next by Date: ...
    (de.rec.film.misc)
  • Re: Religion als Pflicht - oder Klappe halten und still sitzen
    ... Affekt/Stichwort zu Affekt/Stichwort hangelt, ... bewußte Unsicherheit, die sich was einhämmern will, von dem sie sich ... Prev by Date: ... Next by Date: ...
    (de.soc.weltanschauung.christentum)
  • Re: AGB rechtens?
    ... das undurchlaessig und die Subkultur könnte man vertiefen. ... meiste Geld in den Sand gesetzt wurde. ... Prev by Date: ... Next by Date: ...
    (de.soc.recht.misc)
  • Re: Zentralmassiv SW-NO Durchquerung mit RR 42/52 , 11-28 ?
    ... >ja im November meinen Sommerurlaub, ... Radfahren idiotensicher zu machen - und der gelungene Versuch, ... Prev by Date: ... Next by Date: ...
    (de.rec.fahrrad)