Zeitermittlung zwischen zwei Datumsfeldern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Sigi,
es darf auch gerne eine VBA-Lösung sein. Unten findest du einen Link mit einer Beispieldatei.
ich beschreibe dir mal den Prozess:
Ich arbeite in einem Krankenhaus und im Rahmen des QM wird dokumentiert, wann eine Operation stattgefunden hat und zu welchem Zeitpunkt der dazugehörige OP-Bericht im Krankenhaus-EDV-System abrufbar ist.
An Werktagen soll der Zeitraum nicht größer als 24 Stunden sein.
Jetzt kommt es natürlich vor, dass eine OP am Freitag um 17:00 Uhr stattfindet und der OP-Bericht erst am Montag um 10:00 Uhr erscheint. Im Rahmen des QM wäre das aber im Zeitlimit von 24 Std (nämlich 18 Std. nach Abzug des Wochenendes).
Für Samstag und Sonntag müssten jeweils 24 Std. angesetzt werden. Feiertage brauchen nicht berücksichtigt werden. Ich glaube, dass das den Rahmen sprengen würde.
Wenn eine OP an einem Samstag ist und der Bericht montags erscheint, dann müssten 24 Std. für den Sonntag abgezogen werden. Wenn eine OP am Sonntag stattfindet, dann soll nichts abgezogen werden, sondern der Sonntag wie ein Werktag zählen.
Ich hoffe, dass die Beschreibung einigermassen verständlich ist.
Hier der Link:
https://www.herber.de/bbs/user/54187.xls
Gruß
Holger

Hallo.
Dein Einwand ist natürlich berechnet.
Folgende Lösungsvorschläge:
Variante 1:


=B32-A32-SUMME(WENN((B32-A32+1-(VERGLEICH("Sa";{"Mo";"Di";"Mi";"Do";"Fr";"Sa";"So"};0)
-WOCHENTAG(A32;2))-WENN(WOCHENTAG(A32;2)>
VERGLEICH("Sa";{"Mo";"Di";"Mi";"Do";"Fr";"Sa";"So"};0);7;0))/7VERGLEICH("Sa";
{"Mo";"Di";"Mi";"Do";"Fr";"Sa";"So"};0);7;0))/7;0));WENN((B32-A32+1
-(VERGLEICH("So";{"Mo";"Di";"Mi";"Do";"Fr";"Sa";"So"};0)-WOCHENTAG(A32;2))
-WENN(WOCHENTAG(A32;2)>VERGLEICH("So";{"Mo";"Di";"Mi";"Do";"Fr";"Sa";"So"};0);7;0))/7VERGLEICH("So";{"Mo";"Di";"Mi";"Do";"Fr";"Sa";"So"};0);7;0))/7;0)))

Variante 2 (etwas kürzer, dafür als Matrixformel):


{=B1-A1-SUMME(SUMME((WOCHENTAG(ZEILE(INDIREKT(ABRUNDEN(A1;)&":"&ABRUNDEN(B1;)));2)
=VERGLEICH("Sa";TEXT(ZEILE(2:8);"ttt");0))*1);SUMME((WOCHENTAG(ZEILE(INDIREKT(ABRUNDEN(A1;)
&":"&ABRUNDEN(B1;)));2)=VERGLEICH("So";TEXT(ZEILE(2:8);"ttt");0))*1))}

(Matrixformel, {} nicht eingeben, sondern Formel mit STRG-SHIFT-ENTER abschließen)
Bitte prüfe, ob wirklich alle Konstellationen richtig berechnet werden, da mir dazu die Daten fehlen.
Rückmeldung, obs funzt wäre nett.
Gruß
David

Beliebteste Forumthreads (12 Monate)

	A	B	C
1	06.06.2008 09:22:00	09.06.2008 09:55:00	1,02291666666861
2	5	1
3	Freitag	Montag

Zeitermittlung zwischen zwei Datumsfeldern

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeitermittlung zwischen zwei Datumsfeldern

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread