Chuyển đổi THỨ trong ngày thành SỐ (1 người xem)

[bun_bo_hue]

Chào cả nhà GPE,

Mình muốn viết 1 hàm chuyển thứ trong ngày thành các kí hiệu số nhưng chưa biết phải làm thế nào. Mong các CAO THU EXCEL chỉ giúp ạ.

Cụ thể chúng ta quy định : Mon là 2, Tue là 3, ... , Sun là 8

Ví dụ : Mon-Sun --> chuyển thành --> 2-8.
Mon,Tue,Fri -->chuyển thành --> 2,3,6.
Mon-Fri,Sun --> chuyển thành --> 2-6,8.

Cám ơn các bác rất nhiều ạ.

 

[ndu96081631]

Hình như đã hiểu làm ý tác giả rồi thì phải
Xem thử code này:

Function WeekDayNum(WeekName As String) As String
  Dim Arr, i As Long
  Arr = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
  WeekDayNum = WeekName
  For i = 0 To UBound(Arr)
    WeekDayNum = Replace(WeekDayNum, Arr(i), i + 2)
  Next
End Function

 

[bun_bo_hue]

Không hiểu sai đâu ạ. Quá đúng luôn bác ơi. Cám ơn bác nhiều nhé.

À, bác giải thích chi tiết từng dòng code giúp mình với đc không? Tui dốt lập trình nên đọc cũng không hiểu lắm.

Cám ơn bác nhiều ạ.

 

[ndu96081631]

Không hiểu sai đâu ạ. Quá đúng luôn bác ơi. Cám ơn bác nhiều nhé.

À, bác giải thích chi tiết từng dòng code giúp mình với đc không? Tui dốt lập trình nên đọc cũng không hiểu lắm.

Cám ơn bác nhiều ạ.

Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun") là 1 mảng gồm có 7 phần tử
Ta dùng vòng lập duyệt qua tất cả các phần tử này, rồi thay từng phần tử bằng 1 số tương ứng
Vòng lập trên ta có thể diển giải ra thành 7 công đoạn như sau:
- Thay "Mon" thành số 2
- Thay "Tue" thành số 3
- Thay "Wed" thành số 4
- Thay "Thu" thành số 5
- Thay "Fri" thành số 6
- Thay "Sat" thành số 7
- Thay "Sun" thành số 8
Tức nếu viết đầy đủ thì code nó thế này:

Function WeekDayNum(WeekName As String) As String
  WeekDayNum = WeekName
  WeekDayNum = Replace(WeekDayNum, "Mon", 2)
  WeekDayNum = Replace(WeekDayNum, "Tue", 3)
  WeekDayNum = Replace(WeekDayNum, "Web", 4)
  WeekDayNum = Replace(WeekDayNum, "Thu", 5)
  WeekDayNum = Replace(WeekDayNum, "Fri", 6)
  WeekDayNum = Replace(WeekDayNum, "Sat", 7)
  WeekDayNum = Replace(WeekDayNum, "Sun", 8)
End Function

Cảm thấy rằng viết vậy có vẽ rườm rà và vì các công đoạn có tính lập lại nên ta đưa vào vòng lập cho nó gọn, thế thôi!