vFP输入年份判断生肖的简单介绍

今天给各位分享vFP输入年份判duàn生肖的知识,其中也会对进行解释,如果能碰巧解决现在面临的问题,别忘了关注本站,现在开始吧!  
vfp 编写生肖自定义函数,输入年份,返回对应的属相?set talk off函数的程序主体  
clear  
answer="y"  
do while lower(answer)="y"  
input "请输入出生期:" to m  
if m0  
? "出生趋超过限制!"  
exit  
endif  
? "该生所属的生肖是:"+shengxiao(m)  
wait "是否继续查询(Y/N)?" to answer  
enddo  
set talk on  
function shengxiao 自定义函数生肖  
parameters m  
x=mod(m,12)  
do case  
case x=1  
p="鸡"  
case x=2  
p="狗"  
case x=3  
p="猪"  
case x=4  
p="鼠"  
case x=5  
p="niú"  
case x=6  
p="虎"  
case x=7  
p="兔"  
case x=8  
p="龙"  
case x=9  
p="蛇"  
case x=10  
p="马"  
case x=11  
p="羊"  
case x=0  
p="猴"  
endcase  
returnp  
zěnyàng用VFP查询出生期VFP都是鼠标操作的多在DBF文件上建一个查询表单可以用向导做,做完之后运行查询表到进行搜索,选择索引为出生期 选着= 在输入1984 点搜索就可以找到1984年的全部学生了  

vFP输入年份判断生肖的简单介绍
  
文章插图  
vfp程序设计 年份与生肖对应 程序 谢谢clear  
input "请输入年份:" to nian  
n=nian-4  
s=mod(n,12)  
ss="鼠niú虎兔龙蛇马羊猴鸡狗猪"  
?allt(str(nian))+"年对应的生肖是",substr(ss,2*s+1,2)  
zěnyàng用VFP语言写任意输入一个期(年月),判duàn是这一年的第多少天简单写一下 。。。。  
先输入一个期  
input  
【vFP输入年份判断生肖的简单介绍】"请输入期"  
to  
myDate  
取得年份  
intYear  
=  
Year(myDate)  
得到该年1月1  
intFirstDate  
=  
Date(intYear,1,1)  
用输入的期减去该年1月1,加上1,得到第几天 。  
intDayOfTheYear  
=  
myDate-intFirstDate+1  
return  
intDayOfTheYear  
vFP输入年份判duàn生肖的介绍就聊到这里吧,感谢花时间阅读本站内容,更多关于、vFP输入年份判duàn生肖的信息别忘了在本站进行查找喔 。  


    特别声明:本站内容均来自网友提供或互联网,仅供参考,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。