Foxtable(狐表)用户栏目专家坐堂 → 程序代码求教


  共有26627人关注过本帖树形打印复制链接

主题:程序代码求教

帅哥哟,离线,有人找我吗?
btsfdz
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:86 积分:951 威望:0 精华:0 注册:2008/9/2 20:04:00
程序代码求教  发帖心情 Post By:2008/10/9 15:20:00 [显示全部帖子]

在易表中有个函数可以从身份证号里得出性别、出生年月日,在狐表里没有找到这个函数,这段代码该如何写,请大家指教,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
btsfdz
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:86 积分:951 威望:0 精华:0 注册:2008/9/2 20:04:00
  发帖心情 Post By:2008/10/9 16:09:00 [显示全部帖子]

e.row("性别")  = ReadSex("身份证号")
e.row("出生日期") = ReadBirthDay("身份证号")
为什么计算的结果不对啊, 性别列没有计算结果,出生日期为0001-01-01


 回到顶部
帅哥哟,离线,有人找我吗?
btsfdz
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:86 积分:951 威望:0 精华:0 注册:2008/9/2 20:04:00
  发帖心情 Post By:2008/10/9 16:36:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:sy.table



 回到顶部
帅哥哟,离线,有人找我吗?
btsfdz
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:86 积分:951 威望:0 精华:0 注册:2008/9/2 20:04:00
  发帖心情 Post By:2008/10/9 18:08:00 [显示全部帖子]

Dim d As Date = Date.Today
dim b as integer= SubString(Convert("d",'System.String'),1,4)
dim a as Integer = "1975"
dim v as integer = "b"-"a"
output.show(v)
求教这段代码那里错了?

 回到顶部
帅哥哟,离线,有人找我吗?
btsfdz
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:86 积分:951 威望:0 精华:0 注册:2008/9/2 20:04:00
  发帖心情 Post By:2008/10/10 14:27:00 [显示全部帖子]

以下是引用yuanbin在2008-10-10 9:05:00的发言:

有3类错误:一个是Convert的使用环境有问题,一个是整数和字符的数据类型混淆,一个是SubString用法问题。
1、从帮助文件上看,Convert只能用于表达式环境,你看Convert("d",'System.String')中单引号,如果在命令窗口和代码中就当作注释了,显然有问题。
2、SubString,同样是“获取从字符串中的指定点开始,具有指定长度的子字符串”功能,但在表达式和代码中的语法是不同的,表达式式中语法是:SUBSTRING(expression, start, length) ,比如SUBSTRING([电话号码], 7, 8),涉及到表字段,代码中的语法是SubString(StartIndex)或SubString(StartIndex, Length),而且是作为字符串的属性引用。比如:
Dim s1 As String ="中华人民共和国"
Dim
s2 As String
Dim
s3 As String
s2 = s1.SubString(2)
s3 = s1.SubString(2,3)
3、用引号括起来的"1975"是字符型String,数字1975才是整数型Integer,两者不相等也无法相加减。"b"-"a"明显是错误的。

可以改成:
Dim d As Date = Date.Today
Dim b As Integer = d.year
dim a as Integer = 1975
dim v as integer = b-a
output.show(v)

如果要用SubString折腾一下,也可以这样:
Dim d As Date = Date.Today
dim b as string=d.ToString().SubString(0,4)
dim bb as Integer
Integer.TryParse(b, bb)
dim a as Integer = 1975
dim v as integer = bb-a
output.show(v)

多谢,以后还请多多指点啊
写这段代码的目的主要是,通过身份证号码系统自动计算年龄

[此贴子已经被作者于2008-10-10 14:29:37编辑过]

 回到顶部