输入身份证号算命
- 急求 vb编程 输入一个身份证号，计算其的出生日期和星座
- Dim 身份证号码 As String Dim 生日 As Date Dim 星座 As String Private Sub 提取生日按钮_Click(sender As Object, e As EventArgs) Handles 提取生日按钮.Click If 十五位.Checked And 身份证输入框.TextLength = 15 Then 身份证号码 = 身份证输入框.Text ElseIf 十八位.Checked And 身份证输入框.TextLength = 18 Then 身份证号码 = 身份证输入框.Text Else MsgBox("身份证号码输入有误，") Exit Sub End If If 十五位.Checked Then 生日 = 十五位生日(身份证号码) ElseIf 十八位.Checked Then 生日 = CDate(十八位生日(身份证号码)) End If MsgBox(生日) End Sub Private Function 十五位生日(ByVal 身份证号码 As String) As String If 身份证号码.Length = 15 Then Return "19" & 身份证号码.Substring(6, 2) & "/" & 身份证号码.Substring(8, 2) & "/" & 身份证号码.Substring(10, 2) Else Return Nothing End If End Function Private Function 十八位生日(ByVal 身份证号码 As String) As String If 身份证号码.Length = 18 Then Return 身份证号码.Substring(6, 4) & "/" & 身份证号码.Substring(10, 2) & "/" & 身份证号码.Substring(12, 2) Else Return Nothing End If End Function 有了生日、星座很简单了，生3625日.month 获取 生日的月份,然后测试 生日.day、大于 20 是啥座、小于等于 20 是另一个座！太多了不写了、 Select Case 生日.Month Case 4 If 生日.Day >= 21 Then 星座 = "金牛座" Else 星座 = "" End If End Select、
- excel中如果前一列输入身份证号，后一列自动生成生日？
- =if(len(d3)=15,"19"&mid(d3,7,2）&"年"&mid(d3,9,2)&"月"&mid(d3,11,2)&"日",mid(d3,7,2）&"年"&mid(d3,11,2)&"月"&mi弗(d3,13,2)&"日")!这个公式不管身份证号是15位还是18位都可以用、。
- 手机号码办理的时候是用我爸爸的身份证办理的，现在微信都需要实名制，用零钱支付的时候让输入身份证号姓
- 可以的！微信实名是微信实名、他只要要求你是本人的银行卡，身份6475证能对应,手机号是谁的他是没发验证的。！
- 求一个不用输入姓名而且算命准的网站 5分
- 尊敬的朋友：你好! 斗数世家很高兴为你解答:没有准的！免费的网站都是电脑程序自动分析，这样就是一个字 快，但不准 祝你生活愉快、财源亨通，心想事成、一生平安 希望我的回答对你有所帮助、如果满意的话、请采纳！真心感谢你你的好评！谢谢。
- 三点水一个水字怎么输入
- 冰的异体字！和冰读音音一样？。
- 怎么在EXCEL里输入出生年月？
- 你可以设置：先选中要输入出生年月的表格，点击格式式单元格日期、在类型中选择你需要的日期格式。或者选择自定义中的日期格式，，
- 输入中文名起英文名胡丽红
- 胡丽红英文名： Rachel Hu ['reitʃəl] 中文名：拉赫尔 性别：女生 名字来源：古英语;德语 寓意：有责任心的 Reiko 中文名：令荒 性别：女生 名字来源5199：芬兰语,
- 怎样输入八卦符号?!
- 由于在GB，GBK字库中！都没有设置八卦符号！为此！作者特地制作了一套八卦字体及配合该款字体的八卦符号输入法！使用八卦字体与八卦符符号输入法配合,即可解决八卦的输入！显示！打印输出等问题，用WINDOWS自带的输入法生成器，即可加加载到输入法列表中。文件内容见后,其编码规则说明如下：是： 一．单纯的八卦符号以卦名的拼音字母为编码，如： 乾（乾三连） QIANGUA 坤（坤六断） KUNGUA 坎 KANGUA 兑 DUIGUA 离 LIGUA 艮 GENGUA 巽 XUNGUA 震 ZHENGUA 二．六十四经卦以单字卦名和双字卦名为编码外！同时另配有上下卦象组合的编码,详见后表！ 六十四经卦中“毕卦”和“贲卦”(bi)重码、 “旅卦”和“履卦”(lv。lu)重码、 “益卦”和“颐卦”(yi)重码。 三．八卦符号输入法的加载： 调出WINDOWS自带的输入法生成器（C:\WINDOWS\SYSTEM\IMEGEN.EXE）！直接点击“浏览”找到下载的文本文件“八卦符号.TXT”，然后点击“排序”、点点击“转换”！转换结束、生成三个输入法文件！后缀分别是IME！MB，CMB、再点击“创建”、然后确定几次、提示“输入法已生成、是否安装”，即可安装加载到输入法列表中， 四．八卦字体的安装： 按开始=>设置=>控制面板=>字体=>文件=>安装新字体=>找到 BAGUA.TTF 选中 按确定即可。 五．在在WORD等编辑器中。输入6286八卦符号! 在需需要输入八卦符号的地方!把当前字体设置为 BAGUA.TTF,调出“八卦符号输入法”。即可按卦名输入完后敲空格，在输入法提示框中！卦名名显示的日文字!但在WORD等编辑器器中八卦字体GAGUA.TTF的支持下？即可显示示你想要的八卦符号,如要输入另外的汉字，请把当前字体设置为宋体或别的什么字体即可， 在这里下载八卦字体GAGUA.TTF 八卦符号输入法码表.TXT，
- 什么软件输入姓名得情侣网名
- 百度搜索 情侣网名 会出现一个网站 输入名字字配出情侣网名!
- 求excel算法输入年龄可得属相。 只看到输入出生年得属相，但没有输入年龄得属相，只用1-49岁就
- 按你的需求！来个直接的 在B2输入 =CHOOSE(MOD(2015-A2,12)+1,"猴","鸡","狗","猪","鼠","牛","虎","兔","龙","蛇","马","羊") 下拉,、
