FUNCTION KHÔNG CHẠY

[brian.ban.ng]

Xin chào mọi người, em là Newbie đang viết 1 số Function phục vụ công việc.
Mọi người giúp e test đoạn function này với ạ! Em bị lỗi #Value! mà không hiểu lí do
Cám ơn mọi người nhiều!

Function ze(z, b, h As Single) As Single

If h <= b Then ze = h
End If

If b < h And h <= 2 * b Then
If z > b Then ze = h
Else: ze = b
End If

If h >= 2 * b Then
If z >= h - b Then ze = h
Else: If b < z And z < h - b Then ze = z
Else: ze = b
End If


End Function

 

[bebo021999]

Chạy thử code này nhé...

Function ze(z, b, h As Single) As Single
If h <= b Then
    ze = h
    Exit Function
End If
If h <= 2 * b Then
    If z > b Then
        ze = h
        Exit Function
    End If
Else
    ze = b
    Exit Function
End If
If z >= h - b Then
    ze = h
    Exit Function
ElseIf b < z And z < h - b Then
    ze = z
    Exit Function
Else
    ze = b
    Exit Function
End If
End Function

 

[ongke0711]

Khai báo biến kiểu này lạ nhỉ...

 

[VetMini]

Đã không rành code thì viết cho nó nghiêm chỉnh. Bày đặt dùng dấu hai chấm (":") tùm lum. vừa đọc vừa cố suy lô gic muốn sặc máu.

Code có vài chỗ không bình thường lắm. Không rõ là do cố tình vậy hay do viết sai. Phải biết chính xác cái Function này nó làm gì mới refactor được.

 

[bebo021999]

Khai báo biến kiểu này lạ nhỉ...

z, b dạng variant, chỉ có h là Single.
Mà không ảnh hưởng đến kết quả thôi kệ

 

[VetMini]

z, b dạng variant, chỉ có h là Single.
Mà không ảnh hưởng đến kết quả thôi kệ

So sánh số thực là điểm pivot của hàm này. z, và b bắt buộc phải là số thực.
Chỉ là thớt học code từ dân tiền sử.
Single là dạng của thế kỷ trước, thời cần giảm bộ nhớ. Bi giờ là thời đại 1 triệu bytes giảm bộ nhớ chỉ làm trò cười (cỡ 1 tỷ bytes thì nói được). Single chỉ dùng khi có lý do gì bắt buộc, bằng không thì cứ Double hết.