- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 程序代码求教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=812)
-- 发布时间：2008/10/9 15:20:00
-- 程序代码求教
在易表中有个函数可以从身份证号里得出性别、出生年月日，在狐表里没有找到这个函数，这段代码该如何写，请大家指教，谢谢
-- 发布时间：2008/10/9 15:23:00
--
在foxtable中，这两个函数的名称和意表一样，用法也一样
-- 发布时间：2008/10/9 15:31:00
--
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日
下次记得先搜索一下帮助文件哦.
-- 发布时间：2008/10/9 16:09:00
--
e.row("性别") = ReadSex("身份证号")
e.row("出生日期") = ReadBirthDay("身份证号")
为什么计算的结果不对啊， 性别列没有计算结果，出生日期为0001-01-01
-- 发布时间：2008/10/9 16:23:00
--
呵呵，传上来看看
要多看帮助，包括计算代码部分。
-- 发布时间：2008/10/9 16:36:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:sy.table |
-- 发布时间：2008/10/9 16:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:sy.table |
-- 发布时间：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)
求教这段代码那里错了？
-- 发布时间：2008/10/9 19:45:00
--
Convert 只能用于表达式中?!
-- 发布时间：2008/10/10 9:05: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)
求教这段代码那里错了？
有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)