PDA

Vollständige Version anzeigen : Datum vorgeben !!??


AROSTEVE
22.03.2006, 10:32
Hallo Leudz,
ich habe ein Formular mit zwei Textfeldern in die jeweils ein Datum eingegeben werden kann bzw. muss.
Aus Komfortgründen würde ich gerne die beiden Felder "voreinstellen"

Das erste Feld soll das Datum des vorletzten Montags enthalten
(Ausgehend von heute = 22.03.06; dann soll im ersten Feld der 13.03.06 stehen usw.)

Das zwite Feld soll den darauf folgenden Sonntag enthalten
(Ausgehend von heute = 22.03.06; dann soll defakto der 19.03.06 drin stehen usw)

Etwas ähnliches hab ich hier gefunden:
http://www.ms-office-forum.net/forum/showthread.php?t=98008&highlight=Datum+voreinstellen

Ich krieg das aber nicht "umgebastelt"
Kann mir jemand weiterhelfen ?????

Verdener80
22.03.2006, 10:53
Dim myMonday As Date, mySunday As Date

If Weekday(DateAdd("d", -8, Date)) = vbMonday Then
myMonday = DateAdd("d", -8, Date)
ElseIf Weekday(DateAdd("d", -9, Date)) = vbMonday Then
myMonday = DateAdd("d", -9, Date)
ElseIf Weekday(DateAdd("d", -10, Date)) = vbMonday Then
myMonday = DateAdd("d", -10, Date)
ElseIf Weekday(DateAdd("d", -11, Date)) = vbMonday Then
myMonday = DateAdd("d", -11, Date)
ElseIf Weekday(DateAdd("d", -12, Date)) = vbMonday Then
myMonday = DateAdd("d", -12, Date)
ElseIf Weekday(DateAdd("d", -13, Date)) = vbMonday Then
myMonday = DateAdd("d", -13, Date)
ElseIf Weekday(DateAdd("d", -14, Date)) = vbMonday Then
myMonday = DateAdd("d", -14, Date)
End If

mySunday = DateAdd("d", 6, myMonday)

Bitte überprüfe, ob es auch für jeden Wochentag von Montag bis Sonntag funzt. Habe leider keine Zeit dies großartig zu testen

Gruß
Ingo

AROSTEVE
22.03.2006, 12:48
Vielen Dank Ingo, du hast mir sehr weitergeholfen !!!
Jetzt funktioniert das !!! :D

Verdener80
22.03.2006, 13:01
Freut mich, dass ich dir helfen konnte.