[原创]QTP中根据日期计算年龄的解决办法

上一篇 / 下一篇  2007-01-13 14:36:36 / 个人分类：QTP

查看( 1101 ) / 评论( 0 ) / 评分( 0 / 0 )
在论坛上看到有关QTP中根据日期计算年龄的解决办法，所以写了一个function来处理。
涉及函数：
1、date：取当前系统时间；
2、isdate：判断输入的是否日期型的；
3、year：取得年的值。

具体的脚本：
Public Function old(MyDate)
If isdate(MyDate) then
    MyYear = Year(MyDate)
    Cyear=Year(date)
        if (MyYear>Cyear)  then
        msgbox "出生年("&MyYear&")不可以大于当前年 "
        else
        ōld=Cyear-MyYear
        end if
    else
    msgbox "错误的日期"
    end if
End Function
ddate="October 19, 1962"
old1=old(ddate)
msgbox("您的岁数是："old1)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
如许转载，请和作者联系，谢谢。

收藏 举报

TAG: QTP

 

评分：0

我来说两句

Open Toolbar