Как преобразовать GUID в Long и обратно?

@urachins · Регистрация: 16.09.2008

Author24 — интернет-сервис помощи студентам

Нигде не могу найти, подскажите, пожалуйста.
Юра.

17.11.2009, 19:00

Хм... А как ты хочешь запихнуть 16 байт в 4?

@urachins · 17.11.2009, 19:23 **[ТС]**

Да, в общем случае это невозможно, но речь шла о том, чтобы сначала из Long получить псевдо-гуид, а потом если надо вернуться от него обратно. Вот как я сейчас это делаю:

Const DEF_GUID_EMPTY = '{00000000-0000-0000-0000-000000000000}'

Public Function DecToGuid(nn As Long)
Dim ss As String
ss = CStr(Hex(nn))
DecToGuid = Left(DEF_GUID_EMPTY, 37 - Len(ss)) & ss & '}'
End Function

@urachins 0 / 0 / 0 Регистрация: 16.09.2008 Сообщений: 38
		1
	Как преобразовать GUID в Long и обратно? 02.11.2009, 13:24. Показов 2110. Ответов 2 Метки нет (Все метки) Нигде не могу найти, подскажите, пожалуйста. Юра. 0

Newbie
	17.11.2009, 19:00	2
	Хм... А как ты хочешь запихнуть 16 байт в 4?

@urachins 0 / 0 / 0 Регистрация: 16.09.2008 Сообщений: 38
	17.11.2009, 19:23 [ТС]	3
	Да, в общем случае это невозможно, но речь шла о том, чтобы сначала из Long получить псевдо-гуид, а потом если надо вернуться от него обратно. Вот как я сейчас это делаю: Const DEF_GUID_EMPTY = '{00000000-0000-0000-0000-000000000000}' Public Function DecToGuid(nn As Long) Dim ss As String ss = CStr(Hex(nn)) DecToGuid = Left(DEF_GUID_EMPTY, 37 - Len(ss)) & ss & '}' End Function 0

Опции темы