Nhờ lập hàm tự tạo cho bài toán huy động tiền gửi (1 người xem)

[nguyentunhitung]

Hàm tự tạo theo yêu cầu. Các bạn xem yêu cầu về hàm tự tạo trong file dưới đây rồi giúp mình chút nha. Mình loay hoay mãi mà không làm được

 

[ndu96081631]

Hàm tự tạo theo yêu cầu. Các bạn xem yêu cầu về hàm tự tạo trong file dưới đây rồi giúp mình chút nha. Mình loay hoay mãi mà không làm được

[WARNING1] Đã post bài rồi thì cứ chờ người ta trả lời
Dù không ai trả lời thì bạn cũng không được post bài hỏi lung tung nhé[/WARNING1]

 

[hungpecc1]

Hàm tự tạo theo yêu cầu. Các bạn xem yêu cầu về hàm tự tạo trong file dưới đây rồi giúp mình chút nha. Mình loay hoay mãi mà không làm được

Không hiểu ý tưởng của bạn cho lắm :
- sao không dùng luôn hàm trong excle --> viết code làm gì cho mệt
- mình viết tạm 1 công thức ( hơi lộn xộn 1 tẹo ) bạn tự tùy biến và chỉnh sửa lại nhé

Public Function tien(tiengui As Double, ngui As Date, nrut As Date, khan As String, lsuat As Double) As Double
    Dim ngay, i As Integer, arr1(), arr2()
        arr1 = Array(3, 6, 9, 12, 24)
        arr2 = Array(7.5, 11.2, 11.2, 11.25, 11.5)
        ngay = nrut - ngui
        If khan = "Không TH" Then
            tien = tiengui * (1 + 0.035 / 12 * ngay)
            Exit Function
        End If
        i = Int(ngay / Val(Left(khan, 2)) / 30)
        If i <> 0 Then
            tien = (tiengui * (1 + i * lsuat)) * ((ngay - i * 30) * 0.035 + 1)
        Else
            If ngay / 30 > 3 Then
                khan = arr1(WorksheetFunction.Match(ngay / 30, arr1))
                lsuat = arr2(WorksheetFunction.Match(ngay / 30, arr1))
                i = Int(ngay / Val(Left(khan, 2)) / 30)
                tien = (tiengui * (1 + i * lsuat)) * ((ngay - i * 30) * 0.035 + 1)
            Else
                 tien = tiengui * (1 + 0.035 / 12 * ngay)
            End If
        End If
End Function

 

[nguyentunhitung]

Cám ơn bạn hungpecc1!
Cái hàm này rắc rối ở chõ nếu đến hạn mà khách không rú thì vốn+lãi = vốn mới để tính lãi cho thời hạn sau.
Để đơn giản hóa hơn thì mình có 1 ý tưởng là tạo 1 nút cập nhật. khi nhấp nút cập nhật thì số tiền lãnh khi đáo hạn sẽ tự động cập nhật sang bên tiền vốn(tiền gửi). khi đó ta sẽ loại được trường hợp quá hạn mới rút mà chỉ cần tính tiền chưa đến hạn hoặc đủ hạn mà rút thôi. Bạn nào giúp mình được không???