【VB6】【全网首发】64位无符号整数的运算和显示

W741 · 发表于 2023-4-24 15:28:53

向大佬学习下

scdn2022 · 发表于 2023-5-7 00:47:56

学习

tlwh163 · 发表于 2023-5-7 18:51:15

Public Function UADD(ByVal AX As Long, ByVal BX As Long) As Long '无符号整数加法
Dim w As Long: w = CBool((AX Xor BX) And &H80000000) '符号不同直接相加
BX = BX And w Or Not w And (BX Xor &H80000000) '否则翻转BX符号位
UADD = AX + BX Xor (Not w And &H80000000) '再相加并翻转结果符号位
End Function

angelindark55 · 发表于 2023-6-20 16:57:33

谢谢分享

逍遥爱迪生 · 发表于 2023-7-5 07:25:47

64位无符号整数的运算和显示

woeoio · 发表于 2023-7-5 09:07:58

好东西啊，谢谢

liu496324 · 发表于 2023-7-6 08:39:19

大神啊，真牛，膜拜你

get43639 · 发表于 2023-8-14 02:49:00

新人學習，感謝版主的奉獻。
讓VB6可以支持64bit，真的要好好學習。

btrong · 发表于 2023-9-10 08:21:37

看看有何不同

btrong · 发表于 2023-9-10 08:23:51

系统消息发表于 2021-3-8 10:01
阉割来说，VB6确实是没有Decimal类型，只是oleaut32.dll让Variant支持Decimal这个子类型而已。同样的我们 ...

还是我偶像能一针见血

smartgkk · 发表于 2023-9-26 17:57:58

谢谢分享！

cheweidian · 发表于 2023-10-8 21:12:18

哇卡卡卡

楼神- · 发表于 2023-11-5 15:57:26

Currency申请出战

zhongez · 发表于 2023-12-26 17:16:47

学习一下

wgwangjiang · 发表于 2024-4-6 14:02:19

学习一下

sandruse · 发表于 2024-7-16 15:50:43

感谢分享，查看学习

mugenknight · 发表于 2025-1-20 08:53:29

來學習，謝謝分享

账号		自动登录	找回密码
密码			立即注册→加入我们