TableSort

[specci48]

Hi mezzomix,

irgendwie bin ich mir sicher, das Filippos Lösung nicht Deinem Wunsch entspricht. Sicherlich willst Du bei der Geburtstagsprüfung nur den Tag und den Monat berücksichtigen.
Im Anhang findest Du meinen Vorschlag. Ich hoffe, die (Programm-)Kommentare helfen ein wenig beim Verständnis.

Du solltest Dir übrigens auch noch überlegen, was das Programm machen soll, wenn mehrere Personen zu einem Datum (ohne Jahr natürlich) Geburtstag haben.


Gruß
specci48

[mezzomix]

Hallo specci 48!

Genau so meinte ich es!!
Vielen Dank!

@Filippo: Danke trotzdem!!

-edit

ticksOhneJahrAktuell = DateAdd(0, 0, DateM - 1 , DateD - 1)

wieso muss man denn das -1 schreiben(weiter unten im Quelltext auch nochmal)?-

gruß

mezzomix

[specci48]

Originally Posted by mezzomix

-edit

ticksOhneJahrAktuell = DateAdd(0, 0, DateM - 1 , DateD - 1)

wieso muss man denn das -1 schreiben(weiter unten im Quelltext auch nochmal)?-

Gut nachgefragt!

In der Version, die ich hochgeladen habe, kann man die -1 tatsächlich an allen vier Stellen weglassen.
Da Date(0) den 01.01.0001 ergibt, hatte ich zwischenzeitlich für Kontollausgaben den Tag und Monat jeweils um 1 verringert, damit beim Debug der korrekte Tag angezeigt wurde.


Gruß
specci48

[mezzomix]

Hallo specci48!

Ich bin noch immer dabei diesen COde zu verstehen. Habe ihn schon debuggt und dabei die Werte angeschaut. Folgendes ist mir noch unklar:

' als Startwert der n�chste Geburtstag ohne Jahr (maximal 1 Jahr in der Zukunft)
    ticksNaechsterGeburtstagOhneJahr = DateAdd(Now, 1, 0, 0)

Warum steht einmal in der Anmerkung "...nächste Geburtstag ohne Jahr.." ? Das verwirrt mich etwas. Verstehe dass nicht ganz.
Die andere Sache wäre in der nächsten Zeile warum Du da DateAdd(Now ...nimmst, der Wert wird ja in jedem Fall im ersten Durchlauf der Schleife wieder überschrieben, oder?. Warum muss am Anfang dieser Wert drinne stehen?

Frohe Weihnachten allen
gruß

mezzomix

[klaus]

Hallo mezzomix.

Ich hab mal in specci's Programmvorschlag reingeschaut.

Der Kommentar

' als Startwert der n�chste Geburtstag ohne Jahr (maximal 1 Jahr in der Zukunft)

kann verwirrend sein, stimmt aber mit dem Variablenamen über ein.
Nur der Erste Wert stimmt nicht über ein, weil ja das Now drin ist.
Der Erste Wert von ticksNaechsterGeburtstagOhneJahr muss aber höher sein als der Erste Wert von ticksOhneJahrNeu damit der Erste Eintrag in der Tabelle richtig behandelt wird. Das ist eben mit ticksNaechsterGeburtstagOhneJahr = DateAdd(Now, 1, 0, 0) gewährleistet.

Beste Grüsse und ein schönes Weihnachtsfest.

[mezzomix]

Danke Klaus!
Verstehe nun den Code. Habe den Code nun schon soweit verändert , dass wenn jemand am aktuellen Tag Geburtstag hat , dass dann eine extra MsgBox erscheint mit "Max Mustermann: Heute"

Jetzt versuche ich gerade das Programm so zu verändern, dass erkannt wird wenn mehrere an einem Tag Geburtstag haben. Das habe ich auch schon zum Teil, da hackt es aber schon wieder. Bekomme es nicht hin innerhalb einer Schleife, ein Array von Schleifendurchgang zu Schleifendurchgang mit Daten zu füttern.

Also ich meine in Durchlauf 1 soll ein Array(0) mit einem bestimmten Wert angelegt werden. In durchlauf 2 soll Array(1) einen Wert zugewiesen bekommen, usw. Dass Array soll unendlich lang sein. Habe das so versucht:

globals
dim xgeb(0) as string

z.B. sub button_click
for i = 0 to irgendwas
xgeb(ArrayLen(xgeb()) = irgendeinwertvoneinervariable
next

Da meckert er immer über die Zeile xgeb. Ich bekomme es nicht hin xgeb(0),xgeb(1),.... nacheinander(von Scheifendurchgang u Schleifendurchgang) einen Wert zuzuweisen.


gruß und Frohe Weihnachten

mezzomix

[klaus]

Hallo mezzomix,

So wie Du das machen willst geht es leider nicht.
Dim xgeb(0) As string heisst dass die Anzahl der Werte 0 ist.

Du hast 2 Möglichkeiten:

Dim xgeb(100) As string

und

For i=0 To Anzahl
xgeb(i)="A"
Next


Oder mit einem ArrayList Control den Du auch 'xgeb' nennen kannst.
Und dann mit:

xgeb.Clear ' xgeb lehren falls nötig
For i=0 To Anzahl
xgeb.Add("A")
Next

die ArrayList füllen.

Ich würde Dir die zweite Lösung bevorzugen. Der ArrayList Control hat Alle Möglichkeiten zum Verwalten. Item, Add, Insert, Remove, RemoveAt usw.

Beste Grüsse.

[mezzomix]

Danke!

Habe nun eine Lösung gefunden , wie ich eine extra MsgBox erscheinen lasse wenn die Person am aktuellen Datum Geburtstag hat und wenn mehrere Personen an einem Tag Geb. haben.

Will euch die Datei mal zeigen. Ist aber wahrscheinlich nicht die optimale Lösung, aber es scheint zu funktionieren

Attachment 5072

gruß
mezzomix