Nhờ viết dùm hàm tính toán theo điều kiện thời gian (bằng VBA)

[small11]

Tớ muốn viết một hàm điều kiện thời gian bằng ngôn ngữ VBA, lưu thành Add In. (Dạng như hàm Đổi số ra chữ)
Dữ liệu cụ thể là:

Tại ô A1, nhập vào ngày bất kỳ: 19/5/2005. Tại ô A2 dùng hàm ví dụ tên là ĐKTG: =ĐKTG(A1) sẽ cho ra các kết quả theo điều kiện như sau:

Nếu ngày ở ô A1 nằm trong khoảng 1/9/2005 - 30/9/2006, giá trị A2 là 2400
Nếu ngày ở ô A1 nằm trong khoảng 1/10/2006 - 31/12/2006, giá trị A2 là 3200
Nếu ngày ở ô A1 nằm trong khoảng 1/1/2007 - 31/12/2007, giá trị A2 là 4500
Nếu ngày ở ô A1 nằm trong khoảng 1/1/2008 - 30/04/2009, giá trị A2 là 5600
Nếu ngày ở ô A1 nằm trong khoảng 1/5/2009 - 30/4/2010, giá trị A2 là 6500

* Cái này tớ dùng hàm if để tính rồi. Tớ muốn nhờ mọi người viết giúp bằng ngôn ngữ VBA

Cảm ơn rất nhiều

 

[SA_DQ]

Thích thì chìu

Option Explicit
Function DateToNum( Dat As Date ) As Long
 Dim D0 As Date, D1 As Date, D2 As Date, D3 As Date, D4 As Date
 Dim D5 As Date, D6 As Date
  
 D0 = #9/1/2005#:                               D1 = #10/1/2006#
 D2 = #1/1/2007#:                               D3 = #1/1/2008#
 D4 = #5/1/2009#:                               D5 = #5/1/2010#
 D6 = Date
 DateToNum = 100 * Switch(Dat < D0, 0, Dat < D1, 24, Dat < D2, 32, Dat < D3, 45, _
   Dat < D4, 56, Dat < D5, 65, Dat < D6, 99)
End Function

 

[small11]

Thanks bạn. Tớ đã làm được rồi