03-05-22, 14:48
|
| Super Moderator Όνομα: ΓΙΩΡΓΟΣ Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 14-01-2014
Μηνύματα: 234
| |
Καλησπέρα σας,
Δοκίμασε το παρακάτω αρκεί το Me.imerom.Value να είναι ημερομηνία.
if Weekday(Me.imerom.Value) = vbFriday And Me.id_vardias.Value = 6 Then
Me.sk.Value = True
ElseIf Weekday(Me.imerom.Value) = vbSaturday Or Weekday(Me.imerom.Value)= vbSunday Then
Me.sk.Value = True
Else: Me.sk.Value = False
End If
Ευχαριστώ.
|