Anzahl Tage berechnen

[deepsee3]

Hat jemand ne Idee wie man die Anzahl der Tage aus zwei Datumsfelder berechnet ohne die Samstage und Sonntage zu berücksichtigen ?

Also Problem :
Anfangsdatum Urlaub : 01.01.02 ( Eingabefeld )
Enddatum Urlaub : 02.02.02 ( Eingabefeld )
Anzahl Arbeitstage : xx ( berechnet )

Ich komm da mit meiner @formular irgendwie nicht weiter ...

[fritandr]

Hallo,

ich habe so was in Formelsprache.

--------
tab:=@Char(9);
nl:=@Char(10);
FIELD StartDate:=vom;
FIELD EndDate:=bis;

diffDays := (EndDate - StartDate) / 86400 + 1;
strtDay := @Modulo(@Weekday(StartDate); 7);
endDay := @Modulo(@Weekday(EndDate); 7);
result := (diffDays - endDay + strtDay - * 5 / 7 - @Max(-2; -strtDay) - @Min(1; endDay) + 5 - strtDay + endDay;
@SetField("TageUrlaub"; result)

--------

Achtung! Feiertage werden hier leider nicht berücksichtigt.

Ciao
Andreas

[Gulliver]

Hallo,

ich hab' da was aus LS; ist aber nicht auf meinem Mist gewachsen  , ist aus 'nem Lehrgang (c by R. Krappweis)

Sub Set_CalendarDateTime_HDays (uidoc As NotesUIDocument)
     
     Dim doc As NotesDocument
     Set doc = uidoc.Document
     
     Dim DateList () As Variant
     
     Dim Tag As Variant
     Dim AnzahlTage As Integer
     Dim i As Integer
     Dim j As Integer
     
     AnzahlTage = doc.EndDate(0) - doc.StartDate(0)
     
     Dim tmpDate As Variant
     Dim wd As Integer
     
     For i = 0 To AnzahlTage
           tmpDate = doc.StartDate(0) + i
           wd = Weekday(tmpDate)
           If (wd > 1) And (wd < 7) Then   '-- Falls Wochentag (Mo - Fr)
                 Redim Preserve DateList(j)              
                 DateList(j) = tmpDate
                 j = j + 1
           End If
     Next
     
     doc.CalendarDateTime = DateList
     doc.HDays = j
     
End Sub

[deepsee3]

Hi

fritandr  = funzt

Gulliver = nö

Danke euch beiden ... werde mal versuchen ob ich das mit dem Script noch hinkriege ...

thx