7,762
社区成员
发帖
与我相关
我的任务
分享
for(int i=0x8000;i>0x8;i=i>>1){
if ((lunarInfo[y - 1900] & i) != 0){
sum+=1;
}
}
Dim i As Long
Dum Sum As Long
Sum = 348
i = &H8000
While i > &H8
If (lunarInfo(y - 1900) And I) <> 0 Then Sum = Sum + 1
i = i \ 2
Wend