[求助]个人所得税怎样计算？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]个人所得税怎样计算？

共有26140人关注过本帖树形打印复制链接主题：[求助]个人所得税怎样计算？

lxl

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2008/9/6 14:09:00 [显示全部帖子]

在改进建议版我问过。
以后能自定义函数和过程，也就是常用函数代码可以自己定义。
(其实现在也能，只不过实现以来比较麻烦一点)

lxl

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2008/9/6 14:28:00 [显示全部帖子]

以下是引用还不错在2008-9-6 14:13:00的发言：

你还能做一个文件，就定义一次？不麻烦吗？如果在狐表定义了，能省多少事！
你可能说：可以复制。但要定义比较多的函数，就麻烦了。

写好的函数导入导出很容易的。
就算有很多很多函数也能设计成一次导出导入。

lxl

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2008/9/6 14:29:00 [显示全部帖子]

以下是引用ahljy351在2008-9-6 14:11:00的发言：
这是在窗口计算所得税,我感觉写代码比VB还难啊?请老师帮写代码.

单击计算后,标签"SDS"就换成税额了.

With e.Form
    If .Controls("qzd").Value Is Nothing Then
        Msgbox("请输入起征点")
    ElseIf .Controls("je").Value Is Nothing Then
        Msgbox("请输入金额")
    Else
        Dim q As Double = .Controls("qzd").Value
        Dim j As Double = .Controls("je").Value
        Dim sd As Double = InTax( j - q )
        .Controls("sds").Text = sd
    End If
End With

下一主题 >> << 上一主题

主题：[求助]个人所得税怎样计算？