| |
| In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im vb@rchiv gelisteten Tipps und Workshops zu posten.
Hinweis: Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden! | Fragen zu Tipps & Tricks und Workshops im vb@rchivTipp 42: Wochenendtage zwischen zwei Datumswerten | | | Autor: manu86 | Tipp anzeigenDatum: 25.04.09 20:44 |
| Hallo
ich muss die Arbeitstage von zwei Datums errechnen!!! ich habe eine 5 Tage Woche!!!
ich weis aber nicht wie ich den Rückgabe ausgeben soll!!!
( habs zu einer Function umgeschrieben )
Public Function Wochenendtage(ByVal Datum1 As Object, _
ByVal Datum2 As Object) As Integer
Dim BisDatum As Object
Dim Datum As Object
Dim WTag As Integer
Dim Jahr As Integer
Dim Monat As Integer
Dim Tag As Integer
Dim Sacount As Integer
Dim Socount As Integer
' Datum 1
Jahr = Val(Format$(Datum1, "yyyy"))
Monat = Val(Format$(Datum1, "mm"))
Tag = Val(Format$(Datum1, "dd"))
' Datum 2
BisDatum = Format$(Datum2, "yyyymmdd")
Datum = DateSerial(Jahr, Monat, Tag)
While Format$(Datum, "yyyymmdd") <> BisDatum
WTag = Format$(Datum, "d")
If WTag = 1 Then
' Sonntag
Socount = Socount + 1
ElseIf WTag = 7 Then
' Samstag
Sacount = Sacount + 1
End If
Tag = Tag + 1
Datum = DateSerial(Jahr, Monat, Tag)
End While
End Function und so wollte ich es ausgeben: Aber es funktioniert nicht:
Dim Tage As Integer
Dim Wochenende As Integer
Tage = DateDiff("d", UrlaubsanfangDateTimePicker.Value, _
UrlaubsendeDateTimePicker.Value).ToString + 1
Wochenende = Wochenendtage(UrlaubsanfangDateTimePicker.Value, _
UrlaubsendeDateTimePicker.Value) Vielleicht habt ihr eine Idee | |
Re: Wochenendtage zwischen zwei Datumswerten | | | Autor: manu86 | Datum: 28.04.09 07:31 |
| Danke Dieter!!!
aber wenn ich den Code bei der Funktion am ende eingebe was muss ich dann bei der Ausgabe in den Code eingeben wenn nur die Arbeitstage ausgegeben werden sollen!!!
meine funktion heißt Wochenendtage und mein Ausgabefeld ( Textbox)heißt Gesamttage
Public Function Wochenendtage(ByVal Datum1 As Object, _
ByVal Datum2 As Object) As Integer
Dim BisDatum As Object
Dim Datum As Object
Dim WTag As Integer
Dim Jahr As Integer
Dim Monat As Integer
Dim Tag As Integer
Dim Sacount As Integer
Dim Socount As Integer
' Datum 1
Jahr = Val(Format$(Datum1, "yyyy"))
Monat = Val(Format$(Datum1, "mm"))
Tag = Val(Format$(Datum1, "dd"))
' Datum 2
BisDatum = Format$(Datum2, "yyyymmdd")
Datum = DateSerial(Jahr, Monat, Tag)
While Format$(Datum, "yyyymmdd") <> BisDatum
WTag = Format$(Datum, "d")
If WTag = 1 Then
' Sonntag
Socount = Socount + 1
ElseIf WTag = 7 Then
' Samstag
Sacount = Sacount + 1
End If
Tag = Tag + 1
Datum = DateSerial(Jahr, Monat, Tag)
End While
Return (Socount + Sacount)
End Function
ausgabe geht aber icht so...!!!!)
Dim Tage As Integer
Dim Wochenende As Integer
Tage = DateDiff("d", UrlaubsanfangDateTimePicker.Value, UrlaubsendeDateTimePicker.Value).ToString + 1
Wochenende = Wochenendtage(UrlaubsanfangDateTimePicker.Value, UrlaubsendeDateTimePicker.Value)
GesamttageTextBox.Text = Tage - Wochenende | |
Re: Wochenendtage zwischen zwei Datumswerten | | | Autor: manu86 | Datum: 28.04.09 07:52 |
| aber das hab ich hoch mit dem gemacht oder???
Dim Tage As Integer
Dim Wochenende As Integer
Tage = DateDiff("d", UrlaubsanfangDateTimePicker.Value, UrlaubsendeDateTimePicker.Value).ToString + 1
Wochenende = Wochenendtage(UrlaubsanfangDateTimePicker.Value, UrlaubsendeDateTimePicker.Value)
GesamttageTextBox.Text = Tage - Wochenende
aber er zeigt mir die falschen Tage an!!!!! | |
| Sie sind nicht angemeldet! Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevCoolbar 3.0
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|