hi,help me please,

what is wrong with my fun ,thanks
--------------------------------------------------------
Function Length024Round(l As Double) As Double
Dim seisuu As Double
Dim hasu As Double
Dim hasu1 As Double
seisuu = Fix(l)
MsgBox seisuu
hasu = l - seisuu
MsgBox hasu
If hasu < 0.24 Or hasu = 0.24 Then
hasu1 = 0
ElseIf hasu 0.24 And hasu < 0.74 Then
hasu1 = 0.5
ElseIf hasu = 0.74 Then
hasu1 = 0.5
ElseIf hasu 0.74 Then
MsgBox "hasu" & hasu
hasu1 = 1
End If
MsgBox hasu1
Length024Round = seisuu + hasu1
End Function '


Sub Length024RoundTest()
Debug.Print Length024Round(0.74)----0.5--ok
Debug.Print Length024Round(2.74))----3.0--why$B!!(Bnot$B!!(B2.5,why 0.740.74
End Sub