物联网软件开发价格 Excel VBA 从身份证号码提真金不怕火性别和年事

发布日期：2024-11-05 05:35    点击次数：108

众人好，我是捌贰春秋VBA。如何从身份证号码中提真金不怕火性别和年事呢？在Excel中有很多手艺不错责罚，今天就用VBA数组的手艺从身份证号码中提真金不怕火性别和年事。

图片

数据提真金不怕火成果

念念路

1、从身份证号码中第17为提真金不怕火1位，取得的数组若为偶数，则性别是女；反之性别为男。

2、从身份证号码中第7为提真金不怕火4位，取得出身年份，再用当昨年份减去出身年份则野心出年事。

3、输出成果到单位格之前，将身份证号码调整为文执行式，单引号+身份证号码。

代码

Private Sub CommandButton1_Click()

Dim arr, i%

arr = Range('A1').CurrentRegion

For i = 2 To UBound(arr)

If Mid(arr(i, 2), 17, 1) Mod 2 = 0 Then

arr(i, 3) = '女'

Else

arr(i, 3) = '男'

号码四区分析：上期奖号四区比为5：6：7：2，其中第一区走温，开出奖号：03、04、12、16、17，第二区走热，开出号码：23、28、30、31、34、37，第三区走热，开出号码：46、48、50、51、56、58、59，第四区较冷，物联网软件开发公司开出号码：65、66；最近10期奖号四区比为53：43：59：45，总体上第二区表现较冷，第三区表现活跃，本期号码四区比参考6：5：5：4。

龙头分析：上期龙头上升2个点位，开出0路号码03，最近10期龙头分布在01-07之间，012路比为2：5：3，0路龙头走势较冷，1路龙头表现活跃，最近3期龙头升降走势为下降→下降→上升，本期预计龙头逐渐下降，关注1路龙头号码01。

End If

app

arr(i, 4) = Format(Now(), 'yyyy') - Mid(arr(i, 2), 7, 4)

arr(i, 2) = ''' & arr(i, 2)

Next i

Range('A1').CurrentRegion = arr

End Sub物联网软件开发价格

本站仅提供存储奇迹，通盘内容均由用户发布，如发现存害或侵权内容，请点击举报。

• 身份证
• VBA
• excel
• 物联网软件开发价格
• 号码