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

今天给各位分享vFP输入年份判断duàn生肖的知识，其中也会对进行解释，如果能碰巧解决你nǐ现在面临的问题，别忘了关注本站，现在开始吧！
vfp 编写生肖自定义函数，输入年份，返回对应的属相？set talk off函数的程序主体
clear
answer="y"
do while lower(answer)="y"
input "请输入出生日rì期：" to m
if m0
? "出生日rì趋超过限制！"
exit
endif
? "该生日rì所属的生肖是："+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ěn样yàng用VFP查询出生日rì期VFP都是鼠标操作的多你nǐ在DBF文件上建一个查询表单可以用向导做，做完之后运行查询表到进行搜索，选择索引为出生日rì期选着= 在输入1984 点搜索就可以找到1984年的全部学生了

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