Tel: 0203-2814763

 
Home


Access-Entwickler
Referenzen


Access-Forum
Access-Downloads
Access-Suchmaschine
knowhow.mdb
Artikel
Access-Links
Access-Codebeispiele
Access-FAQ
Verschiedenes
Autoren-Login

 

newsletter
Kontakt
English

 

 

 
  Willkommen Gast. Bitte Einloggen oder Registrieren
   
  ÜbersichtHilfeSuchenEinloggenRegistrieren  
 
Seitenindex umschalten Seiten: 1
Thema versenden Drucken
Datum bzw bestimmte Tage ausgrenzen (Gelesen: 777 mal)
AAndreas
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 6
Datum bzw bestimmte Tage ausgrenzen
02.01.2017 um 08:25:40
 
Guten Tag , kann mir jemand bei folgendem Inhalt helfen ?
Ich habe in einem Formular einen Button
"Heute"
VBA = Private Sub Befehl100_Click()
Datum = Date + 3
End Sub

Nun möchte ich aber eine Liste bestimmter Tage ausgefiltert haben.
Z.B. das ich an einem Donnerstag den "Heute" Button klicke , die Funktion 3 Tage darauf rechnet ( was schon geht ) aber das WE nicht mit berücksichtigt wird .
Das Ergebnis müsste dann sein Heute + 3 ( - SA,SO ) also sollte dann da das Datum vom folgenden Montag stehen.

Danke im Voraus für eure Hilfe.

LG
Andreas
Zum Seitenanfang
 
 
IP gespeichert
 
df6gl
YaBB Moderator
*****
Offline


DF6GL

Beiträge: 4134
Geschlecht: male
Re: Datum bzw bestimmte Tage ausgrenzen
Antwort #1 - 02.01.2017 um 10:09:19
 
Hallo,

die Aufgabe ist nicht hinreichend erklärt.

Was soll passieren, wenn das Ergebnisdatum auf einen Samstag oder Sonntag fällt?

Welcher Wochentag soll herangezogen werden, wenn das Ausgangsdatum auf einen Sa oder So fällt?
Zum Seitenanfang
 

Gruß
Franz, DF6GL
PS: Bitte Feedback nicht vergessen!
 
IP gespeichert
 
AAndreas
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 6
Re: Datum bzw bestimmte Tage ausgrenzen
Antwort #2 - 02.01.2017 um 10:34:11
 
Hallo ,

danke erstmal für die schnelle Antwort.

wenn innerhalb der " heute + 3 ) ein Samstag oder Sonntag ist dann soll die Funktion das nächste Datum anzeigen:
Bsp :

Heute ( 05.01. +3 ) wäre Sonntag , Sontag geht aber nicht deswegen muss Montag der 09.01 ausgewählt werden.
Geht es das ich wie oben :

Private Sub Befehl100_Click()
Datum = Date + 3

Z.B
Wenn Datum = 07.01.2017&08.01.2017&14.01.2017&15.01.2017 usw dann nicht +3 sonder nächst möglicher Montag ??

hoffe ich konnt es best möglich erklären.
End Sub
Zum Seitenanfang
 
 
IP gespeichert
 
df6gl
YaBB Moderator
*****
Offline


DF6GL

Beiträge: 4134
Geschlecht: male
Re: Datum bzw bestimmte Tage ausgrenzen
Antwort #3 - 02.01.2017 um 12:38:43
 
Hallo,

etwa so

Code:
Public Function fktAdd3Workdays(Dat As Date)


If Weekday(Dat, 2) > 2 Then
   fktAdd3Workdays = Dat + 8 - Weekday(Dat, 2)
Else
   fktAdd3Workdays = Dat + 3
End If

End Function
 



und Aufruf:

Code:
Private Sub btnPlus3Tage_Click()
Me![Datum] =fktAdd3Workdays(Date)
End Sub 




btw: 

--"Datum" ist ein reserviertes Wort und muss in Eckklammern geschrieben werden. Deshalb als Name für ein Control/Variable zu vermeiden.

-- Variablen-Deklaration nicht vergessen. In allen(!) Modulköpfen "Option Explicit" hinzufügen.

-- bei Referenzen auf Steuerelemente mit "Me" arbeiten.

-- sinnvollere Benamsung verwenden. "Befehl100"  sagt unheimlich viel aus.

Zum Seitenanfang
« Zuletzt geändert: 02.01.2017 um 12:42:01 von df6gl »  

Gruß
Franz, DF6GL
PS: Bitte Feedback nicht vergessen!
 
IP gespeichert
 
AAndreas
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 6
Re: Datum bzw bestimmte Tage ausgrenzen
Antwort #4 - 02.01.2017 um 14:12:24
 
Hallo ,

nun habe ich wahrscheinlich einen Denkfehler.
muss ich beide von dir gesendete Codes hinterlegen ?
Zum Seitenanfang
 
 
IP gespeichert
 
Maggie
Full Member
***
Offline



Beiträge: 193
Geschlecht: female
Re: Datum bzw bestimmte Tage ausgrenzen
Antwort #5 - 02.01.2017 um 18:14:52
 
Hallo,

der erste Code ist eine Funktion, die das Zieldatum berechnet und welche im zweiten Code aufgerufen wird.

Die Funktion liefert allerdings nicht genau das was du beschrieben hast, versuche es mal hiermit:

Code:
Public Function fktAdd3Workdays(Dat As Date) As Date
    Select Case Weekday(Dat, 2)
    Case < 3    ' Mo, Di
        fktAdd3Workdays = Dat + 3
    Case 3       ' Mi
        fktAdd3Workdays = Dat + 5
    Case 4       ' Do
        fktAdd3Workdays = Dat + 4
    Case Else    ' Fr - So
        fktAdd3Workdays = Dat + 3
    End Select
End Function 


wobei Case <3 natürlich auch in den Else-Zweig einfließen kann.
Zum Seitenanfang
« Zuletzt geändert: 02.01.2017 um 18:36:07 von Maggie »  

Gruß Maggie
 
IP gespeichert
 
AAndreas
YaBB Newbies
*
Offline


Ohne Signatur!

Beiträge: 6
Re: Datum bzw bestimmte Tage ausgrenzen
Antwort #6 - 03.01.2017 um 10:41:49
 
Vielen Dank an euch für das schnelle Beantworten meiner Fragen.

Hat alles geklappt.

LG
Andreas Smiley
Zum Seitenanfang
 
 
IP gespeichert
 
Seitenindex umschalten Seiten: 1
Thema versenden Drucken