DayName

Returns the day name in several formats
When En1En2Ar3 = 1: Sunday
= 2: Sun
= 3: الأحد

Function DayName(DateSe, En1En2Ar3)
 DayID  = Weekday(DateSe)
 If En1En2Ar3 = 1 Then
  Select case DayID
  Case 1: DayName = "Sunday"
  Case 2: DayName = "Monday"
  Case 3: DayName = "Tuesday"
  Case 4: DayName = "Wednesday"
  Case 5: DayName = "Thursday"
  Case 6: DayName = "Friday"
  Case 7: DayName = "Saturday"
  End Select
 ElseIf En1En2Ar3 = 2 Then
  Select case DayID
  Case 1: DayName ="Sun"
  Case 2: DayName ="Mon"
  Case 3: DayName ="Tue"
  Case 4: DayName ="Wed"
  Case 5: DayName ="Thu"
  Case 6: DayName ="Fri"
  Case 7: DayName ="Sat"
  End Select
 ElseIf En1En2Ar3 = 3 Then
  Select case DayID
  Case 1: DayName ="الأحد"
  Case 2: DayName ="الإثنين"
  Case 3: DayName ="الثلاثاء"
  Case 4: DayName ="الأربعاء"
  Case 5: DayName ="الخميس"
  Case 6: DayName ="الجمعة"
  Case 7: DayName ="السبت"
  End Select
 End If
End Function

DateSe
En1En2Ar3

Views 261 Downloads 107

'Arabic'

ANmarAmdeen
313
Date+Time Classic ASP
Revisions

v1.0

Tags