
23-03-23, 12:50
|
| Όνομα: Χρήστος Έκδοση λογισμικού Office: Ms-Office 365 Γλώσσα λογισμικού Office: Αγγλική | | Εγγραφή: 18-11-2012 Περιοχή: Deutschland
Μηνύματα: 212
| |
Ενα παράδειγμα είναι αυτό
Function Shift() as String
If Time() >= #6:00:00 AM# And Time() <= #1:59:59 PM# Then
Shift = "First"
Else
If Time() >= #2:00:00 PM# And Time() <= #9:59:59 PM# Then
Shift = "Second"
Else
Shift = "Third"
End If
End If
End Function
|