Hallo oooNOOP,
...hatte ich auch schon in betracht gezogen....
Und das soll ich dir so glauben? Nach noch nicht mal 5 Minuten nach meinem ersten Beitrag verwirfst Du meinen Vorschlag.
wird aber grade wegen der einzuhaltenden ruhezeiten immer eine sehr umfangreiche formel!!
Wird denn die Arbeitszeit ganz individuell, oder aber nach einem fest vorgegebenen Rhythmus erstellt, also immer wiederkehrend? Ich werd da nämlich aus deiner mageren Beschreibung nämlich nicht schlau draus.
Gib uns mal ne Beispieldatei wo die Schichten aufgelistet sind. Und vor allem wie die Regelungen dafür lauten.
Dein selbst umgeschriebener Code kann so nicht funktionieren. Denn Du deklarierst die Variablen zwischen einer leeren Sub und einer Function. Und das bedeutet dann nämlich, das die Variablen der Function nicht zur Verfügung stehen.
Code: Alles auswählen
End Sub
Const TAGOFFSET as Long = 2
Dim dDatum as Date
Dim nLetzteDienstSchicht as Long
Dim r as Long, c as Long
Function....
Entweder Du deklarierst in der Function, oder aber Du schmeißt die Leere Sub raus und machst dadurch eine Öffentliche daklaration.
http://www.dannenhoefer.de/faqstarbasic ... ml#Zweig80
http://www.dannenhoefer.de/faqstarbasic ... ml#Zweig81
Ich habe auch keine große Lust dazu deinen umgeschriebenen Code zu testen, da ich nicht nachvollziehen kann wie Du an
raDatum kommst.
Gruß
balu