Работа с 16-ти ричными числами

[valerij]

Всем привет и сложнейший вопрос - тема.

Как макросом, формулой выполнить такую задачу(цитата)?

.....Искать по сигнатуре 000024F450000A00.
Это первый элемент массива.
В каждом элементе нас интересуют первые 4 байта, которые представляют собой выдержку в секундах умноженную на 1 миллион. Формат записи Q9.
Например, 0xF4240000 rsh 9 = 0x7A1200 = 8 000 000d / 1 000 000d = (8 сек).
Два других элемента 2-байтовые. 0х0050 / 0х000А = 8. Эти значения более грубые (менее точные) и, судя по всему, служат для связи с другими таблицами и их можно не трогать.

Цветом показал как переставляются числа. Итог - получить значение в секундах.
Для примера приведу несколько чисел.
61AC0A00A09D0A00
F28E0A0059800A00
D5710A0064630A00

Спасибо.

[doober]

Например так

s = "61AC0A00A09D0A00"
s = (StrReverse(s))
s1 = Mid(s, 1, 4)
Dec1 = CLng("&H" & s1)
s2 = Mid(s, 5, 4)
Dec2 = CLng("&H" & s2)
..........................

[Казанский]

valerij, я смотрю по темам, Вы картинки ковыряете. Есть готовые библиотеки для работы с jpeg, например обсуждение
http://social.msdn.microsoft.com/For...orum=vbgeneral

[valerij]

Сообщение от doober

Например так

s = "61AC0A00A09D0A00"
s = (StrReverse(s))
s1 = Mid(s, 1, 4)
Dec1 = CLng("&H" & s1)
s2 = Mid(s, 5, 4)
Dec2 = CLng("&H" & s2)
..........................

Сереж, конечный результат - Dec2?
Тогда неправильно считает.
При s = "000024F450000A00"
MsgBox Dec2 = 5, а должно быть 8

При s = "C676D2F24F000A00"
MsgBox Dec2 = 244, а должно быть 7.956795

Сообщение от Казанский

например обсуждение

Спасибо.
Но, навряд ли я там разберусь.

[Аватар]

s = "000024F450000A00"
s1 = Mid(s, 7, 2) & Mid(s, 5, 2) & Mid(s, 3, 2)
Dec1 = CLng("&H" & s1) / 2

[doober]

Валера,я пример привел преобразования,а ты даже не вник до конца.
DEc1=8 Dec2=5,где солдатская смекалка?

[valerij]

Сообщение от doober

Валера,я пример привел преобразования,а ты даже не вник до конца.
DEc1=8 Dec2=5,где солдатская смекалка?

Серёж, я вник, гляди.
s = "000024F450000A00"
s = (StrReverse(s))
MsgBox s '00A000054F420000
Уже не правильно, как получишь число F4240000 ?
Если откинуть 50000A00, то да, получим F4240000

Сообщение от Аватар

s = "000024F450000A00"
s1 = Mid(s, 7, 2) & Mid(s, 5, 2) & Mid(s, 3, 2)
Dec1 = CLng("&H" & s1) / 2

Так правильно, только нужно разделить на 1000000.

Только теперь как s брать с ячеек, попробую разобраться.

Sub zxc()
v = 1
1: s = Cells(v, 1)
If s = "" Then
Else:
s1 = Mid(s, 7, 2) & Mid(s, 5, 2) & Mid(s, 3, 2)
Dec1 = CLng("&H" & s1) / 2
Cells(v, 2) = Dec1 / 1000000
v = v + 1: GoTo 1
End If
End Sub

[valerij]

Господа, а скажите, можно Excel -ем пользоваться как калькулятором в режиме Программист?
Когда много 16Н встроенным калькулятором крайне неудобно.
Нет такой надстройки?

[SAS888]

А что Вам мешает использовать функции Excel, такие как "ШЕСТН.В.ДЕС" ("HEX2DEC"), "ДЕС.В.ШЕСТН" ("DEC2HEX") и т. п. ?

[valerij]

Всем привет!!!!!
Опять нужна помощь.
Нужен макрос сложения 16hex числа с константой 5F
В В1 есть число к нему прибавить 5F, результат в В8.....
В В9 = В8+1 и + 5F, и ......
Я попытался сделать через калькулятор, но значений очень много, аж до B2729
В прищепке всё понятнее.

Вот так всё работает, но наверное вы упростите?

Sub zxc()
Application.EnableEvents = False
    Application.ScreenUpdating = False
s2 = 95: iCor = 7: x = 8: y = 9: iNac = 1
1: s1 = Cells(iNac, 2)
Dec1 = CLng("&H" & s1) + s2
'MsgBox Dec1
Label2 = Hex(Val(Dec1))
'MsgBox Label2
Cells(iNac + iCor, 2) = Label2
Cells(x, 2).Select
    Selection.AutoFill Destination:=Range(Cells(x, 2), Cells(y, 2))
    iNac = iNac + 8: x = x + 8: y = y + 8
    If y > 2729 Then
    Else
    GoTo 1
    End If
Application.EnableEvents = True
        Application.ScreenUpdating = True
End Sub

Спасибо.