nam96
Yêu THVBA
đoạn code của mình bị lỗi không tính biểu thức trong Then. mọi người có thể cho mình biết sai ở đâu được không ạ?
[
Private Sub cmdTinh_Click()
If txtT < (txtDD / 6) Then
txtP = 2 * txtT * txtS * txtE * txtW / (txtDD - 2 * txtT * txtY)
Else
txtP = 2 * txtT * txtS * txtE * txtW / (txtd + 2 * txtC + 2 * txtT * (1 - txtY))
End If
End Sub
]
[
Private Sub cmdTinh_Click()
If txtT < (txtDD / 6) Then
txtP = 2 * txtT * txtS * txtE * txtW / (txtDD - 2 * txtT * txtY)
Else
txtP = 2 * txtT * txtS * txtE * txtW / (txtd + 2 * txtC + 2 * txtT * (1 - txtY))
End If
End Sub
]