how 2 approximate 0.1 to be 1

[Hazem]

Hi, I want to make a calculation & need to appriximate

any fraction after the point to be added as genuine

like 4.1 = 5

what function or syntax can I use to accomplish that in VB.net ??

Thanks

Hazem

[Charlie Brown]

Dim MyNumber as Single = 4.1
Dim MyWholeNumber as Integer = Math.Ceiling(My Number)
Hazem wrote:

Hi, I want to make a calculation & need to appriximate

any fraction after the point to be added as genuine

like 4.1 = 5

what function or syntax can I use to accomplish that in VB.net ??

Thanks

Hazem

[Hazem]

Many many thanks, it worked

You are wounderful

Thanks & Best Regards
"Charlie Brown" <cb****@duclaw. comwrote in message
news:11******** **************@ 79g2000cws.goog legroups.com...

Dim MyNumber as Single = 4.1
Dim MyWholeNumber as Integer = Math.Ceiling(My Number)
Hazem wrote:

>Hi, I want to make a calculation & need to appriximate

any fraction after the point to be added as genuine

like 4.1 = 5

what function or syntax can I use to accomplish that in VB.net ??

Thanks

Hazem

[_AnonCoward]

"Hazem" <ha*********@gm ail.comwrote in message
news:%2******** *******@TK2MSFT NGP02.phx.gbl.. .
: Hi, I want to make a calculation & need to appriximate
:
: any fraction after the point to be added as genuine
:
: like 4.1 = 5
:
: what function or syntax can I use to accomplish that in VB.net ??
:
: Thanks
:
: Hazem
Two approaches come to mind. Both are illustrated below:

---------------------------------------------------------
Option Strict

Imports System

Public Module [module]

PUblic Sub Main

Print_Combined_ Digits_1(4.0)
Print_Combined_ Digits_1(4.1)
Print_Combined_ Digits_1(4.2)
Print_Combined_ Digits_1(4.3)
Print_Combined_ Digits_1(4.4)
Print_Combined_ Digits_1(4.5)
Print_Combined_ Digits_1(4.6)
Print_Combined_ Digits_1(4.7)
Print_Combined_ Digits_1(4.8)
Print_Combined_ Digits_1(4.9)
Print_Combined_ Digits_1(5.0)

Console.WriteLi ne()

Print_Combined_ Digits_2(4.0)
Print_Combined_ Digits_2(4.1)
Print_Combined_ Digits_2(4.2)
Print_Combined_ Digits_2(4.3)
Print_Combined_ Digits_2(4.4)
Print_Combined_ Digits_2(4.5)
Print_Combined_ Digits_2(4.6)
Print_Combined_ Digits_2(4.7)
Print_Combined_ Digits_2(4.8)
Print_Combined_ Digits_2(4.9)
Print_Combined_ Digits_2(5.0)

End Sub

Private Sub Print_Combined_ Digits_1(Number As Single)

Dim Scratch As String = FormatNumber(Nu mber, 1)

Dim Major As Integer = CInt(Int(Number ))
Dim Minor As Integer = CInt(Int(Number * 10)) Mod (Major * 10)
Dim Combined As Integer = Major + Minor

Console.WriteLI ne(Scratch & ": " & Major & " + " & Minor & _
" = " & Combined)

End Sub

Private Sub Print_Combined_ Digits_2(Number As Single)

Dim Scratch As String = FormatNumber(Nu mber, 1)
Dim Digits() As String = Split(Scratch, ".")

Dim Major As Integer = CInt(Digits(0))
Dim MInor As Integer = CInt(Digits(1))
Dim Combined As Integer = Major + Minor

Console.WriteLI ne(Scratch & ": " & Major & " + " & Minor & _
" = " & Combined)

End Sub

End Module
---------------------------------------------------------
This generates the following output:

4.0: 4 + 0 = 4
4.1: 4 + 1 = 5
4.2: 4 + 2 = 6
4.3: 4 + 3 = 7
4.4: 4 + 4 = 8
4.5: 4 + 5 = 9
4.6: 4 + 6 = 10
4.7: 4 + 7 = 11
4.8: 4 + 8 = 12
4.9: 4 + 9 = 13
5.0: 5 + 0 = 5

4.0: 4 + 0 = 4
4.1: 4 + 1 = 5
4.2: 4 + 2 = 6
4.3: 4 + 3 = 7
4.4: 4 + 4 = 8
4.5: 4 + 5 = 9
4.6: 4 + 6 = 10
4.7: 4 + 7 = 11
4.8: 4 + 8 = 12
4.9: 4 + 9 = 13
5.0: 5 + 0 = 5

Ralf