Office: (Office 2003) Datumsfunktion

Helfe beim Thema Datumsfunktion in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo Also ich habe in einem Formular ein Textfeld in dem das heutige Datum ausgegeben wird. Jetzt will ich in ein anderes Textfeld dieses Datum + 4... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Steffen111222333, 27. Februar 2007.

Seite 1 von 2

STEFFEN111222333

Steffen111222333

Datumsfunktion

Hallo
Also ich habe in einem Formular ein Textfeld in dem das heutige Datum ausgegeben wird.
Jetzt will ich in ein anderes Textfeld dieses Datum + 4 Werkstage!!
Also 4 Tage dazu ist gar kein Problem nur diese 4 Werktage?!

:)

Steffen111222333, 27. Februar 2007

#1
@LEX

@lex

hallo!

so vielleicht als funktion?

Code:

Function WerktagDatum(datDatum As Date, TageDazu) As Date

Dim i As Integer
Dim we As Integer
Dim xdat As Date

For i = 1 To TageDazu
xdat = DateAdd("d", i, datDatum)
If Weekday(xdat) = vbSaturday Or Weekday(xdat) = vbSunday Then we = we + 1
Next

MsgBox DateAdd("d", TageDazu + we, datDatum)

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

grüße

@lex, 1. März 2007

#2
LANZ RUDOLF

Lanz Rudolf

Hallo
@leX Bist Du siche das das auch bei grösseren TagenDazu z.b 15, 20 30 usw. Funktioniert?

Lanz Rudolf, 1. März 2007

#3
FW

FW

Datumsfunktion

\@Ruedi: warum sollte das nicht funktionieren?

FW, 1. März 2007

#4
TOMMYK

TommyK

@Ruedi: warum sollte das nicht funktionieren?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Frage stelle ich mir auch.
Kritisch dürfte es ab 32769 Tagen, aufgrund von i As Integer, werden.

TommyK, 1. März 2007

#5
LANZ RUDOLF

Lanz Rudolf

hallo
@FW und Thommy Habt Ihr es getestet? er durch läuft nur 1 bis DazuTage das gibt aber von heute (01.03.2007) bis dazutage 20 den 27.03.2007 richtig wäre 29.03.2007 da nach 20 abgebrochen (For Ende) wird und er hat nur 3 Wochenende gezält hat. schon möglich das ich falsch liege aber mit denken war meine Ide
das Umgekerte:
Code:

Public Function AnzArbeitstage(VonDat As Date, BisDat As Date) As Long
Dim LngRes As Long
Dim LngWoch As Long
LngRes = DateDiff("y", VonDat, BisDat)
LngWoch = DateDiff("ww", VonDat, BisDat)
LngRes = LngRes - (2 * LngWoch)
If Weekday(VonDat) = vbSunday Then LngRes = LngRes - 1 ' Korrektur für LngWochende
If Weekday(BisDat) = vbSunday Then LngRes = LngRes + 1
AnzArbeitstage = LngRes
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und dann kämmen auch noch die Feiertage aber das ist wieder einanderes Problem oder.(01.03.2007 um 17:53 )

Lanz Rudolf, 1. März 2007

#6
@LEX

@lex

\@Lanz Rudolf du hast recht... hab das jetzt aber hoffe ich wasserdicht gemacht

@TommyK ich hab das mal auf integer gelassen! wobei ich 32769 tage z.b. als zahlunsgziel geil finden würde *Smilie

die feiertage kann "Steffen111222333" selber einbauen... denke eh net das er das ganze hier noch verfolgt!

Code:

Function WerktagDatumOhneFeiertage(datDatum As Date, TageDazu) As Date

Dim i As Integer
Dim we As Integer
Dim we2 As Integer
Dim xdat As Date
Dim xdat2 As Date

For i = 1 To TageDazu
xdat = DateAdd("d", i, datDatum)
If Weekday(xdat) = vbSaturday Or Weekday(xdat) = vbSunday Then we = we + 1
Next

For i = 1 To we
xdat2 = DateAdd("d", i, xdat)
If Weekday(xdat2) = vbSaturday Or Weekday(xdat2) = vbSunday Then we2 = we2 + 1
Next

MsgBox DateAdd("d", TageDazu + we + we2, datDatum)

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

vielleicht net schön aber funktioniert

mit besten grüßen ausm süden

@lex, 1. März 2007

#7
FW

FW

Datumsfunktion

\@Ruedi: super, ist mir tatsächlich nicht aufgefallen! So entstehen Bugs, die dann nicht mehr als solche erkannt werden!

FW, 1. März 2007

#8
LANZ RUDOLF

Lanz Rudolf

Hallo
@FW Danke für das Supper kann ich gut gebrauchen da doch mein Gehiern seit meiner Krankeit letztes Jahr nicht mehr 100%ig ist, da tut so was gut. *Smilie

Wie wäre es mit sowas?:
Code:

Function DatPWerkt(Pdat As Date, Ppt As Integer) As Date
'Aufruf: DatPWerkt("01.03.2007",10)
Dim ftwd As Byte
Dim inWt As Integer
Dim inWe As Integer
Dim inI As Integer
Dim xdat As Date
inWt = 0
inWe = 0
inI = 0
Do Until inWt >= Ppt
' Wenn der 1.Tag(start Tag) auch gezält werden muss inI vor dem Loop erhöhen
inI = inI + 1
xdat = DateAdd("d", inI, Pdat)
ftwd = Weekday(xdat)
If (ftwd = vbSunday) Or (ftwd = vbSaturday) Then
inWe = inWe + 1
Else
inWt = inWt + 1
End If
Loop
DatPWerkt = DateAdd("d", (inWt + inWe), Pdat)
Debug.Print "Gegenprüfung:"; AnzArbeitstage(Pdat, DatPWerkt) 'S. #6
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kann mann sicher noch Verbessern*rolleyes.gif*

Lanz Rudolf, 1. März 2007

#9
LANZ RUDOLF

Lanz Rudolf

Hallo
hat noch niemand meine routine getestet??

Lanz Rudolf, 2. März 2007

#10
BIZ

BIZ

hat noch niemand meine routine getestet??
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hab ich, und sieht gut aus.
Allerdings funktioniert dein Code nur, wenn man Tage dazu addiert, nicht wenn man in die Vergangenheit rechnen will.
Ich hab's mal entsprechend verändert, allerdings noch nicht eingehend getest.

Code:

Function DatPWerkt(Pdat As Date, Ppt As Integer) As Date
Dim ftwd As Byte
Dim inWt As Integer
Dim inWe As Integer
Dim inI As Integer
Dim xdat As Date
inWt = 0
inWe = 0
inI = 0

If Ppt < 0 Then
Do Until inWt = Ppt
inI = inI + 1
xdat = DateAdd("d", inI, Pdat)
ftwd = Weekday(xdat)
If (ftwd = vbSunday) Or (ftwd = vbSaturday) Then
inWe = inWe + 1
Else
inWt = inWt + 1
End If
Loop
End If

DatPWerkt = DateAdd("d", (inWt + inWe), Pdat)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

BIZ, 8. März 2007

#11
FW

FW

... vielleicht solltest Du das mal testen, bzw. erklären, was das Ziel bei negativem Datum sein soll?

FW, 9. März 2007

#12
BIZ

BIZ

Datumsfunktion

Na ja, z.B. welches Datum war heute vor 20 Arbeitstagen?
Analog zur DatAdd-Funktion, nur eben mit Werktagen.

War doch deine Fragestellung hier?
http://www.ms-office-forum.net/forum...75&postcount=3

BIZ, 9. März 2007

#13
FW

FW

... sorry, Du übergibst ja gar kein negatives Datum, sondern eine negative Anzahl...

FW, 9. März 2007

#14
LANZ RUDOLF

Lanz Rudolf

Hallo
Wie währe das????? : (das Negative Datum ist doch das gesuchte oder ? ?????)
Code:

Function DatPWerkt(Pdat As Date, Ppt As Integer) As Date
'Aufruf: DatPWerkt("01.03.2007",10) oder : DatPWerkt("01.03.2007",-10)
Dim ftwd As Byte
Dim inWt As Integer
Dim inWe As Integer
Dim inI As Integer
Dim inIn As Integer
Dim inWa As Integer
Dim intn As Integer
Dim inTo As Integer
Dim xdat As Date
inWe = 0
inI = 0
inWt = 0
inWa = 1
If Ppt < 0 Then inWa = -1
intn = Ppt * inWa
Do Until inWt >= intn
' Wenn der 1.Tag(start Tag) auch gezält werden muss man inI vor dem Loop verändern!!
inI = inI + inWa
xdat = DateAdd("d", inI, Pdat)
ftwd = Weekday(xdat)
If (ftwd = vbSunday) Or (ftwd = vbSaturday) Then
inWe = inWe + 1
Else
inWt = inWt + 1
End If
Loop
inTo = (inWt + inWe) * inWa
DatPWerkt = DateAdd("d", inTo, Pdat)
Debug.Print "Gegenprüfung:"; AnzArbeitstage(Pdat, DatPWerkt) '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lanz Rudolf, 9. März 2007

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Datumsfunktion

Die Seite wird geladen...

Datumsfunktion - Similar Threads - Datumsfunktion
Tage des Monats einer Buchung berechnen
in Microsoft Excel Hilfe
Tage des Monats einer Buchung berechnen: Hallo, für die Vermietung meiner Ferienwohnung muss Monat eine Meldung ans Tourismusbüro abliefern. Für die Statistik muss angegeben werden, wieviel Nächte im vergangenen Monat gebucht wurden. Die...
Auswählen der richtigen Datumsfunktion
in Microsoft Access Tutorials
Auswählen der richtigen Datumsfunktion: Auswählen der richtigen Datumsfunktion Access 2013 Mehr... Weniger Hinweis: Wir möchten Ihnen...
Video: auswählen und Verwenden einer Datumsfunktion
in Microsoft Access Tutorials
Video: auswählen und Verwenden einer Datumsfunktion: Video: auswählen und Verwenden einer Datumsfunktion Access für Microsoft 365 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007...
Frage zur Datumsfunktion (VBA)
in Microsoft Excel Hilfe
Frage zur Datumsfunktion (VBA): Hallo Leute, ich habe folgenden VBA-Code gefunden, mit dem man Tabellenblätter auswählen kann, wenn sie nach Monaten benannt sind. Das funktioniert aber nur bei voll ausgeschriebenen Monaten,...
Zellen färben mit Datumsfunktion
in Microsoft Excel Hilfe
Zellen färben mit Datumsfunktion: Hallo Zusammen, ich habe da ein Problem, ich habe mich jetzt auch schone einige Zeit durch verschiedene ähnliche Themen glesen, aber leider nicht das passende für mich gefunden :( Ich habe...
Serienbrief und Datumsfunktionen
in Microsoft Word Hilfe
Serienbrief und Datumsfunktionen: Hallo. Ich habe folgendes Problem. Ich benutze die Serienbrieffunktion um Einzelbriefe zu erstellen, da es sich um je individuelle Schreiben für eine größere Anzahl Personen handelt. Deren...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden