مثال علي استخدام select case

[محمد طاهر عرفه]

هذا مثال لاستنتاج اسم الوردية بناء علي توقيت البدء

باستخدام

SELECT CASE

Function getshift(mycell)

    Dim x As Double

   x = Round(mycell.Value, 1)


Select Case x

 Case 7 To 15.5

getshift = "صباحية"

Case 15.51 To 24

getshift = "وسطــي"

Case 0 To 6.5

getshift = "مسائية"

Case Is > 24

getshift = "توقيت خاطيء"

 End Select


End Function

shifts.zip