主题：程序代码求教

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

在foxtable中，这两个函数的名称和意表一样，用法也一样

 

ReadSex

从身份证号码中读取性别。

语法

ReadSex(Value)

Value：身份证号码

例如：

Dim Identify As String = "410110197109172433"
Dim Sex As String = ReadSex(Identify)
Output.Show(Sex)

上述代码的输出结果是“男”。

　
 

ReadBirthDay

从身份证号码中读取出生日期。

语法

ReadBirthDay(Value)

Value：身份证号码

例如：

Dim Identify As String = "410110197109172433"
Output.Show(ReadBirthDay(Identify))

上述代码的输出结果是“1971-9-17”，即1971年9月17日

下次记得先搜索一下帮助文件哦.

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

呵呵，传上来看看
要多看帮助，包括计算代码部分。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:sy.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:sy.table

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)
求教这段代码那里错了？

Convert 只能用于表达式中?!

有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)