subasatran > 15-12-20, 11:20 PM
Public Function Get_Actual(ByVal Ccase As Double) As Double
Dim Actual As Double
Actual = Ccase
If IsNull(Actual) Or Nz(Actual, "") = "" Or Actual <= 0 Then
Get_Actual = 0
Else
Get_Actual = Actual
End If
End Function
tranthanhan1962 > 16-12-20, 01:18 AM
ongke0711 > 16-12-20, 07:51 AM
Public Function Get_Actual(ByVal Ccase As Variant) As Double
If Len(Nz(Ccase, "")) = 0 Or Ccase <0 Then
Get_Actual = 0
Else
Get_Actual = Ccase
End If
End Function
subasatran > 16-12-20, 05:26 PM
tranthanhan1962 [/font Đã viết:]
ongke0711[/font Đã viết:[font=Tahoma, Verdana, Arial, sans-serif]]
ongke0711 > 16-12-20, 05:54 PM
(16-12-20, 05:26 PM)subasatran Đã viết: => Do mình còn có một biểu thức trong function này nên gán luôn trong ví dụ.
Cho mình hỏi thêm là kiểu Variant nó có ảnh hưởng gì khi biểu thức trả về giá trị theo kiểu double không vậy ?
Sau khi kiểm tra số này mình sẽ lấy số này để đưa vào một biểu thức tính toán khác với kiểu dữ liệu là double