Large_Integer -> String

[GM]

У меня переменная с типом Large_Integer, как мне представить ее содержимое в виде cтроки.
В принципе все работает когда число < 2 млрд., нужно просто возвращать LowPart. Но когда число больше надо что-то делать и с HighPart. Не подскажите что?

Для тех кто не знает о Large_Integer:

Код: Выделить всё

type Large_Integer
LowPart as long
HighPart as long
end type


[tyomitch]

GM, наводящий вопрос: умеешь делить Large_Integer на 10?

[GM]

GM, наводящий вопрос: умеешь делить Large_Integer на 10?

Не понял, так что-ли

Код: Выделить всё

li.lowpart =li.lowpart /10
li.highpart =li.highpart /10


Ты имееш ввиду свести число до 2 млрд, или что?

[tyomitch]

Конечно, не так.
Столбиком вас в школе учили делить?

[GM]

Пока поискал в инете, вот что нашел,

Код: Выделить всё

Private Function CLargeInt(Lo As Long, Hi As Long) As Double
    Dim dblLo As Double, dblHi As Double   
    If Lo < 0 Then
        dblLo = 2 ^ 32 + Lo
    Else
        dblLo = Lo
    End If   
    If Hi < 0 Then
        dblHi = 2 ^ 32 + Hi
    Else
        dblHi = Hi
    End If
    CLargeInt = dblLo + dblHi * 2 ^ 32
End Function


Такой вариант будет работать или лучше делить

Конечно, не так.
Столбиком вас в школе учили делить?

Да, вроде бы

[tyomitch]

Пока поискал в инете, вот что нашел,

Код: Выделить всё

Private Function CLargeInt(Lo As Long, Hi As Long) As Double
    Dim dblLo As Double, dblHi As Double   
    If Lo < 0 Then
        dblLo = 2 ^ 32 + Lo
    Else
        dblLo = Lo
    End If   
    If Hi < 0 Then
        dblHi = 2 ^ 32 + Hi
    Else
        dblHi = Hi
    End If
    CLargeInt = dblLo + dblHi * 2 ^ 32
End Function


Такой вариант будет работать или лучше делить

Если тебя не смущает огрубление результата до скольки-то (порядка 12) цифр, то будет работать.
Если тебе нужна точность до байта, тогда нужно делить.

[d3drm]

снос разряда вправо?