Εμφάνιση ενός μόνο μηνύματος
  #4  
Παλιά 23-03-23, 12:50
pctechdr Ο χρήστης pctechdr δεν είναι συνδεδεμένος
Όνομα: Χρήστος
Έκδοση λογισμικού 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
Απάντηση με παράθεση