本人最近自学VFP想给店里做一个管理系统，到了顾客生日的前一个月就可以提醒。建了一个表   客户 其中字段  生日（字，10），输入形式是19880103
set Date YMD &&把日期设置为年月日格式
x=date（） &&把当前日期赋给x
Start=Right(Dtos(x),4)   &&截取月日的部分赋给start
End=Right(Dtos(Gomonth(x,1)),4)  &&给end 赋值，其中gomonth函数是返回当前日期之后一个月的日期。
y1=Left(Dtos(x),4)        &&截取当前日期的年份赋给 y1
y2=Left(Dtos(Gomonth(x,1)),4)     &&截取当前日期过一个月的日期的年份赋给y2
If(y1=y2)        &&判断是否在同一年，考虑到年末的情况
Select 姓名,生日 From 客户 Where Between(Right(Dtos(生日),4),Start,End)  &&从客户表中选取姓名，生日两个字段，要求满足生日在start和end之间
Else
Select 姓名,生日 From 客户 Where Between(Right(Dtos(生日),4),Start,"1231") Or Between(Right(Dtos(生日),4),"0101",End)  &&年末的情况
Endif
这个代码好像也没法实现生日提前一个月提醒，不知道各位有没有更好的实现方法，或者我的方法到底出错在哪，俺先谢谢大家了

[ 本帖最后由 jsbsj 于 2011-4-1 13:49 编辑 ]

没人回答，大家帮帮忙啊

本人最近自学VFP想给店里做一个管理系统，到了顾客生日的前一个月就可以提醒。建了一个表   客户 其中字段  生日（字，10），输入形式是19880103
set Date YMD &&把日期设置为年月日格式
x=date（） &&把当前日期赋给x
Start=Right(Dtos(x),4)   &&截取月日的部分赋给start
End=Right(Dtos(Gomonth(x,1)),4)  &&给end 赋值，其中gomonth函数是返回当前日期之后一个月的日期。
y1=Left(Dtos(x),4)        &&截取当前日期的年份赋给 y1
y2=Left(Dtos(Gomonth(x,1)),4)     &&截取当前日期过一个月的日期的年份赋给y2
If(y1=y2)        &&判断是否在同一年，考虑到年末的情况
Select 姓名,生日 From 客户 Where Between(Right(Dtos(生日),4),Start,End)  &&从客户表中选取姓名，生日两个字段，要求满足生日在start和end之间
Else
Select 姓名,生日 From 客户 Where Between(Right(Dtos(生日),4),Start,"1231") Or Between(Right(Dtos(生日),4),"0101",End)  &&年末的情况
Endif
这个代码好像也没法实现生日提前一个月提醒，不知道各位有没有更好的实现方法，或者我的方法到底出错在哪，俺先谢谢大家了

今年生日是通过year函数提取今年的年份再加上生日的月份和日子么？？我的那个生日用的是字符型的，是今年生日=ctod（"str(year(date()),4,0)"+“right(生日，4)”）还是怎么实现？没什么思路，能说的再详细点么

谢谢！已经实现了，非常感谢论坛的各位前辈

谢谢大侠的指导，功能已经实现了，嘿嘿

谢谢前辈指导，功能已经实现了，论坛强大啊，各大版主更强大

哈哈，当初只是想着字符型比较好输入，而且可以自定义各种格式，不过还好各位前辈的鼎力相助，功能已经实现，小弟在此先谢谢各位了，其实我之前搜了不少相关的提醒信息，每次都搜到这个论坛，看到好几次都是你回复的，比较喜欢你的头像，哈哈