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

EXCEL NEWS,

First, how is this not working? It works for me.......although I don't know
what the expected results should be. Are there errors? Are the results
wrong? Please provide values, expected results, and the incorrect results
you are recieving.

Second, this code consolidates things a little (notice I commented out your
code and replaced it with less code that will accomplish the same thing):

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
If hasu <= 0.24 Then
hasu1 = 0
'ElseIf hasu 0.24 And hasu < 0.74 Then
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



HTH,

Conan










"EXCEL$B!!(BNEWS" wrote in message
...
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

On Jan 29, 5:27 pm, EXCEL$B!!(BNEWS wrote:
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

Because of the vagaries of binary computer representation.
Specifically, 0.74 is represented by exactly
0.739999999999999991118215802998747676610946655273 4375, where the
fractional part of 2.74 ("hasu") is represented by exactly
0.740000000000000213162820728030055761337280273437 5.

You might be happier with the following logic (although I would
replace MsgBox with Debug.Print):

If Round(hasu,2) <= 0.24 Then
hasu1 = 0
ElseIf Round(hasu,2) <= 0.74 Then
hasu1 = 0.5
Else
MsgBox "hasu " & hasu
hasu1 = 1
End If

Note: For the future, be sure to cut-and-paste. There is an obvious
compilation error in what you posted above.

HTH.


----- original posting -----

On Jan 29, 5:27 pm, EXCEL$B!!(BNEWS wrote:
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