Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Datumsberechnung
Autor: Quincy
Datum: 13.11.03 12:55
Danke erstmal für Deinen Tipp VBRunner Ich verhau mich auch oft mit den Operatoren statt Dim A&, B& A = DateDiff("d", "Anfangsdatum", "Enddatum") B = DateDiff("d", "Anfangsdatum", "Feiertag") If A >= B Then MsgBox "Der Feiertag fällt in den Urlaub" If A < B Then MsgBox "Der Feiertag fällt nicht in den Urlaub" müsste es wohl so heißen Dim A&, B& A = DateDiff("d", "Anfangsdatum", "Enddatum") B = DateDiff("d", "Anfangsdatum", "Feiertag") If A <= B Then MsgBox "Der Feiertag fällt in den Urlaub" If A > B Then MsgBox "Der Feiertag fällt nicht in den Urlaub" Nun muss ich ja für neun Feiertage prüfen ob sie zwischen Urlaubsanfang und Ende liegen. Habe, um nicht den Verstand zu verlieren, ne ganze Reihe Kontrolltextfelder geschaffen, die ggf. dann alle mal wegfallen könnten. Der Code (jetzt mal nur für zwei Kontrollrechnungen) sieht so aus. Sub Berechnung() Text2 = DateDiff("d", Text1(0), Text1(1)) ' Datediff zwischen Ulaubsanfang und Urlaubsende Text1(33) = DateDiff("d", Text1(0), Text1(6)) 'Datediff zwischen Urlaubsanfang und erstem Feiertag Text1(34) = DateDiff("d", Text1(0), Text1(7)) 'Datediff zwischen Urlaubsanfang und zweitem Feiertag If Text1(33) <= Text2 Then Text1(24) = Text1(24) + 1 If Text1(33) > Text2 Then Text1(24) = Text1(24) If Text1(34) <= Text2 Then Text1(25) = Text1(25) + 1 If Text1(34) > Text2 Then Text1(25) = Text1(25) End Sub Für den Zeitraum vom 1. Januar bis 4. Januar(Anfangsdatum bis Enddatum) ist die Diff = 3 Die Diff zum ersten Feiertag (Neujahr) = 0 Die Diff zum zweiten Feiertag(Karfreitag) = 107 Es werden aber beide Berechnungsfelder (Text1(24) u. (25) um + 1 erhöht. Es ist zum Auswachsen Wers nicht glaubt, kann sich gerne mal das Projekt angucken. Quincy

Datumsberechnung	538	Quincy	12.11.03 14:55
Re: Datumsberechnung	298	Master	12.11.03 16:13
Re: Datumsberechnung	369	Quincy	12.11.03 17:38
Re: Datumsberechnung	437	VBRunner	13.11.03 00:36
Re: Datumsberechnung	358	Quincy	13.11.03 12:55
Re: Kann nicht klappen!!	320	Quincy	13.11.03 13:55
Re: Kann nicht klappen!!	318	VBRunner	13.11.03 14:50
Re: Datumsberechnung	320	VBRunner	13.11.03 14:39
Re: Datumsberechnung	292	Quincy	13.11.03 15:51

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen