Xin chào diễn đàn,
Tôi có thiết lập Form tính tiền tích lũy tiết kiệm nhưng chưa viết code được.
Mức lãi suất 5%/năm, số tiền gửi hàng năm là 20.000.000, thời hạn: tự nhập (dao động từ 10-25 năm)

Xin giúp viết code tính tổng số tiền khi nhập thời hạn năm vào.

Xin cảm ơn diễn đàn.

CSDL đâu? Mượn viết nguyên con à 

Mình đã viết code rồi nhưng không biết thiếu chỗ nào

Private Sub TONGTIEN_Click()
L = LAI
T = SOTIEN
N = THOIHAN
For I = 1 To N
TONGTIEN = (T * L / 100) + T
Next I
End Sub

không có CSDL, biết thiếu chỗ nào. Chán thật

(20-04-20, 12:44 PM)tranthanhan1962 Đã viết: không có CSDL, biết thiếu chỗ nào. Chán thật

Bạn này chỉ ví dụ nhập liệu vào Textbox của Singe Form thôi anh, không phải tính cho nhiều record trong Table.
Chủ yếu xem công thức.

@thanhdau: bạn tính tổng số tiền với điều kiện là tiền lãi gộp vào vốn luôn hay sao?

Bạn khai báo thêm một biến là TongSoTien As Double.

L = LAI
T = SOTIEN
N = THOIHAN
For I = 1 To N
TongSoTien = (T * L / 100) + T
T=TongSoTien
Next I

(20-04-20, 12:54 PM)ongke0711 Đã viết: Bạn này chỉ ví dụ nhập liệu vào Textbox của Singe Form thôi anh, không phải tính cho nhiều record trong Table.
Chủ yếu xem công thức.

@thanhdau: bạn tính tổng số tiền với điều kiện là tiền lãi gộp vào vốn luôn hay sao?

Bạn khai báo thêm một biến là TongSoTien As Double.

L = LAI
T = SOTIEN
N = THOIHAN
For I = 1 To N
TongSoTien = (T * L / 100) + T
T=TongSoTien
Next I

@ongke0711

Sửa nhanh ghê. Vậy mới đúng

(20-04-20, 01:21 PM)Xuân Thanh Đã viết:

(20-04-20, 12:54 PM)ongke0711 Đã viết: Bạn này chỉ ví dụ nhập liệu vào Textbox của Singe Form thôi anh, không phải tính cho nhiều record trong Table.
Chủ yếu xem công thức.

@thanhdau: bạn tính tổng số tiền với điều kiện là tiền lãi gộp vào vốn luôn hay sao?

Bạn khai báo thêm một biến là TongSoTien As Double.

L = LAI
T = SOTIEN
N = THOIHAN
For I = 1 To N
TongSoTien = (T * L / 100) + T
T=TongSoTien
Next I

@ongke0711

Sửa nhanh ghê. Vậy mới đúng

Cám ơn @ongke0711 rất nhiều, nhưng mình phải chỉnh lại 1 chút mới được.