Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Werktage pro Monat eines Von- und Bis-Zeitraums

Frage Microsoft Microsoft Office

Mitglied: moeller67

moeller67 (Level 1) - Jetzt verbinden

22.02.2008, aktualisiert 13:31 Uhr, 4551 Aufrufe, 4 Kommentare

Ich möchte die Werktage pro Monat eines Von- und Bis-Zeitraums bestimmen.
In einer Tabelle habe ich ein von-und bis-Datumsfeld. Bei Monatsübergreifenden Zeiten,
möchte ich nur die Anzahl Werktage des von mir ausgewählten Monats ausgeben.

Beispiel:

VonDatum BisDatum ausgewählte_Monat Werktage_ausgewählteMonat
18.02.2008 12.03.2008 2 10
02.03.2008 05.03.2008 2 0
11.02.2008 13.02.2008 2 3
25.02.2008 14.03.2008 2 15

Bitte hilfe!!!
Mitglied: misterdemeanor
22.02.2008 um 12:44 Uhr
Hallo,

lade Dir mal die KnowHow MDB herunter

Dort findest Du die optimale lösung Deines Problems.

BG, Felix -misterdemeanor-
Bitte warten ..
Mitglied: moeller67
22.02.2008 um 13:12 Uhr
Die Datenbank habe ich bereits, doch da habe ich nicht das Passende gefunden. Trotzdem schonmal danke.
Bitte warten ..
Mitglied: misterdemeanor
22.02.2008 um 13:15 Uhr
?

Im Suchformular fktAnzWerktage eingeben.

01.
Function fktAnzWerktage(datumvon As Date, datumbis As Date, Bundesland As String) As Long 
02.
 
03.
'Die Funktion ermittelt die Anzahl der Werktage (Mo - Fr) zwischen Datumvon und Datumbis
Bitte warten ..
Mitglied: misterdemeanor
22.02.2008 um 13:31 Uhr
Wenn es Dir aber wirklich nur darum geht Sa´s und So´s auszuschließen, sprich keine Berücksichtigung von Feiertagen:

01.
Public Function DateDiffWorkdays(Date1 As Date, Date2 As Date, Optional ByVal SaturdayIsWorkday As Boolean) As Integer 
02.
    Dim nDay1 As Date 
03.
    Dim nDay2 As Date 
04.
    Dim nDays As Integer 
05.
    Dim nWeeks As Integer 
06.
    Dim nWeekday1 As Integer 
07.
    Dim nWeekday2 As Integer 
08.
     
09.
    If Date1 < Date2 Then 
10.
        nDay1 = CDate(CLng(CDbl(Date1))) 
11.
        nDay2 = CDate(CLng(CDbl(Date2))) 
12.
    Else 
13.
        nDay1 = CDate(CLng(CDbl(Date2))) 
14.
        nDay2 = CDate(CLng(CDbl(Date1))) 
15.
    End If 
16.
    nDays = nDay2 - nDay1 
17.
    nWeeks = nDays \ 7 
18.
    nWeekday1 = Weekday(nDay1, vbMonday) 
19.
    nWeekday2 = Weekday(nDay2, vbMonday) 
20.
    If SaturdayIsWorkday Then 
21.
        nDays = nDays - nWeeks 
22.
        Select Case nWeekday1 
23.
            Case 7 
24.
                Select Case nWeekday2 
25.
                    Case 7 
26.
                    Case Else 
27.
                        nDays = nDays - 1 
28.
                End Select 
29.
            Case Else 
30.
                Select Case nWeekday2 
31.
                    Case 7 
32.
                    Case Else 
33.
                        If nWeekday1 > nWeekday2 Then 
34.
                            nDays = nDays - 1 
35.
                        End If 
36.
                End Select 
37.
        End Select 
38.
    Else 
39.
        nDays = nDays - 2 * nWeeks 
40.
        Select Case nWeekday1 
41.
            Case 6 
42.
                Select Case nWeekday2 
43.
                    Case 7 
44.
                        nDays = nDays - 1 
45.
                    Case Else 
46.
                        nDays = nDays - 2 
47.
                End Select 
48.
            Case 7 
49.
                Select Case nWeekday2 
50.
                    Case Is < 7 
51.
                        nDays = nDays - 1 
52.
                End Select 
53.
            Case Else 
54.
                Select Case nWeekday2 
55.
                    Case 6 
56.
                    Case 7 
57.
                        nDays = nDays - 1 
58.
                    Case Else 
59.
                        If nWeekday1 > nWeekday2 Then 
60.
                            nDays = nDays - 2 
61.
                        End If 
62.
                End Select 
63.
        End Select 
64.
    End If 
65.
    DateDiffWorkdays = nDays 
66.
End Function
Quelle:http://www.aboutvb.de/khw/artikel/khwdatediffworkdays.htm
Bitte warten ..
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
Netzwerkgrundlagen
gelöst Aufbau mittlerer bis großer Netzwerke (5)

Frage von MasterPhil zum Thema Netzwerkgrundlagen ...

Microsoft Office
Internext explorer about:blank auslesen, schleife bis gelanden (1)

Frage von thomas1972 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Windows Netzwerk
Windows 10 RDP geht nicht (16)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...