| |
| 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 |
|
|
sevISDN 1.0
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevZIP40 Pro DLL
Zippen und Unzippen wie die Profis!
Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Weitere 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
|
|