Date mit String vergleichen ?

[MrMimi]

Hi Leute

ich hab mir den Wochentag des aktuellen Datums mit Weekday... geholt.

Jetzt will ich überprüfen ob nicht Samstag und Sonntag ist

Mach das aatm mit

If Date <> "Samstag" and Date <> "Sonntag" then...

will aber irgentwie nicht funktionieren...

Funzt das nicht, weil des eine ja ein Datum ist ?!? ^^

hat wer ne andere Idee ?

[xk4fu]

hol dir doch den wochentag so, wie ichs dir gepostet hab. das kannste dann in einem string speichern und dann vergleichen...

[MrMimi]

hol dir doch den wochentag so, wie ichs dir gepostet hab. das kannste dann in einem string speichern und dann vergleichen...

ähh funzt schon

ich hab nur die Variablen durch die Gegend geworfen xD

KANN ZU ^^

[.vash]

Tipp: vielleicht wäre es sinnvoll mit den VB internen Konstanten zu arbeiten, Stichwort: vbMonday, vbTuesday, ..., vbSunday

[gelang(while)t]

So also, wenn ich es richtig verstanden habe, möchtest du überprüfen ob Samstag oder Sonntag ist!

Denn es kann ja nie Samstag und Sonntag gleichzeitig sein^^

Ich habe dir mal ein kleines Prog geschrieben, brauchst nur ein Userform mit Button!!!

_______________________________________________________________

Function GetWochentag(dtmDate As Date) As String

GetWochentag = WeekdayName(Weekday(dtmDate, vbMonday))

End Function

Private Sub CommandButton1_Click()

Dim wochentag As String

wochentag = GetWochentag(Now)

If wochentag = "Samstag" Or wochentag = "Sonntag" Then

MsgBox ("Wochenende!!!")

Else

MsgBox ("Arbeitswoche!!! :-(")

End If

End Sub

________________________________________________________________

Ich hoffe ich konnte helfen!!!

greez gelang(while)t