Xin hỏi về hàm tính tiền thực lãnh

[tiendinho]

Mình có bài excel về tính tiền thực lãnh, mình đã suy nghĩ làm ra trong vba nhưng khi đưa công thức vào excel thì hàm chỉ tính đúng 1 trường hợp ngày rút đúng hạn, còn các trường hợp còn lại tính không đúng. Các bạn có thể xem và chỉ giúp mình hàm viết sai ở chỗ nào không. Cảm ơn các bạn rất nhiều.
Đề bài excel như sau: nếu ngày thực rút nhỏ hơn ngày đáo hạn thì tính theo lãi suất gửi không kỳ hạn; nếu ngày thực rút lớn hơn ngày đáo hạn thì số ngày quá tính theo kỳ hạn gửi, số ngày không đủ kỳ hạn sẽ tính theo lãi suất không kỳ hạn (VD: gửi từ ngày 01/01/2010 kỳ hạn 2 tháng, ngày 15/05/2010 thì rút, vậy từ 01/01/2010 đến 01/05/2010 sẽ được tính là gửi 2 kỳ theo lãi suất kỳ hạn 2 tháng, còn từ ngày 02/05/2010 đến 15/05/2010 sẽ được tính theo lãi suất không kỳ hạn). Công thức tính chung là FV=PV*((1+i)^n) với i là lãi suất, n là số kỳ gửi.

Code VBA
Public Function Tienlanh(ByVal Tiengui As Double, ByVal Ngaygui As Date, ByVal Ngaydaohan As Variant, ByVal Ngaythucrut As Date, ByVal Kyhan As String, ByVal Laisuat As Double) As Double
'Khai bao bien
Dim Kyhangui As Byte
Dim Tienthuclanh, LaisuatKKH As Double
Dim Chuky, Songayle As Byte
Dim tam As Double

'Lay lai suat khong ky han
LaisuatKKH = Worksheets("Phuongan").Range("J7").Value

'Tim ky han gui
Kyhangui = Timkyhan(Kyhan)

If Ngaydaohan = "" Then
Songaygui = Ngaythucrut - Ngaygui
Tienthuclanh = Tiengui * (1 + (LaisuatKKH / 360)) ^ Songaygui
ElseIf (Ngaythucrut - Ngaydaohan) < 0 Then
Songaygui = Ngaythucrut - Ngaygui
Tienthuclanh = Tiengui * (1 + (LaisuatKKH / 360)) ^ Songaygui
ElseIf (Ngaythucrut - Ngaydaohan) = 0 Then
Tienthuclanh = Tiengui * (1 + (Laisuat / 12)) ^ Kyhangui
Else
Songaygui = (Ngaythucrut - Ngaydaohan)
tam = Songay / (Kyhangui * 30)
Chuky = Int(tam)
Songayle = Songaygui - (Chuky * Kyhangui * 30)
Tienthuclanh = (Tiengui * (1 + ((Laisuat * Kyhangui) / 12)) ^ Chuky) + (Tiengui * (1 + (LaisuatKKH / 360)) ^ Songayle)
End If
'Lay ten ham gan gia tri tra ve
Tienlanh = Tienthuclanh
End Function