Desetinné na celé číslo – Visual Basic – Fórum – Programujte.com

zdravim. mam zase jeden problem. dejme tomu, že mám nějake desetinné číslo a potřebuju ho rozdělit na 2 (jedno je to před a druhe za desetinnou čarkou) - v podstatě souřadnice, který potřebuju rozdělit na X a Y
na X (před des. čarkou) sem si vytvořil f-ci trunc(sem na ňu zvyklej z pascalu a nevim jestli je něco takovyho i ve VB). nemam tu momentalně ty zdrojaky ale vypada nějak takto

function trunc(x as double)

function=0

while x>=1 then

	x=x-1

	trunc=trunc+1

wend

end function

x=trunc(cislo)

y=cislo - x

pardon, v kodu te f-ce samozřejmě ma byt

trunc=0

ha, tak se mi to asi povedlo vyřešit, použil sem tam funkci len(y) do for cyklu a tolikrát sem to čislo vynasobil 10x, testovat to bud až v patek, snad to nezapomenu :D..

To desetinné číslo získáš díky nepřesnosti matematických operací. IMHO je jednodušší to původní číslo převést na řetězec a ten rozdělit na dva (rozseknout to v místě desetinné čárky) a zpět to převést na integer.

ajo, taky možnost, diky :)

jo a ještě, to rozkouskovávání na 2 menši řetězce (před a za čarkou), jak přesně by se to dalo udělat? jelikož to, jak sem to touhle metodou zkoušel já, mi přijde zdlouhavějši než pomoci tohodle:

y = cislo

a = trunc(y)

b = cislo - a

For i = 3 To Len(b)

    b = b * 10

Next i

vysledek by měl vypadat takhle?

x = InStr(1, cislos, ",")

For i = 1 To x - 1

    cast1 = cast1 & Mid(cislos, i, 1)

Next i

For i = x + 1 To Len(cislos)

    cast2 = cast2 & Mid(cislos, i, 1)

Next i

a = Val(cast1)

b = Val(cast2)

x = InStr(1, cislos, ",")
cast1 = Left(cislos, x - 1)
cast2 = Mid(cislos, x + 1)

a = Val(cast1)
b = Val(cast2)

nemusíš to přidávat po znacích, stačí vzít celou část do a pak od čárky

ajo, to mě nenapadlo :), diky