在 VB.net 中将 ActiveDs.LargeInteger 转换为 Long？

Question

我正在尝试计算密码到期日期，大部分示例代码都是 C# 中的

一个示例：

IADsLargeInteger largeInt;
largeInt = (IADsLargeInteger) largeIntVal;   
myLong = (long)largeInt.HighPart << 32 | (uint)largeInt.LowPart;

如果我在 VB.net 中尝试类似的操作：

dim myLong as Long
myLong = largeInt.HighPart << 32 Or largeInt.LowPart

那么我似乎会得到一个无效值。如何在VB中获得类似的结果？

Answer 1

根据 this ，问题是因为 VB.Net 没有无符号整数类。

解决办法是：

props = resultDE.Properties("pwdLastSet")
Dim prop As ActiveDs.LargeInteger
prop = props(0)

Dim int64Value As Long
Dim strTemp As String
strTemp = "&H" + CStr(Hex(prop.HighPart)) + CStr(Hex(prop.LowPart))
int64Value = Val(strTemp)