超难的代码合并及相关问题？？很急啊！！

wx-x

我想把以下两段（'一、平时加班计算代码  '二、双休日加班计算代码）代码合并到“保存工时”按钮里，运行时加班贴分总是双倍，无法达到加班贴分时单倍而双休日加班是贴分是双倍的结果，相关的要求我存放在excel表里的问题1和问题2里,请兄弟们帮帮忙可以吗？谢谢。

  Dim FID As String, FStr As String
    FStr = "UPDATE 工时信息 SET 分数小计 = " & Me.分数小计 & ",产量合计 = " & Me.产量合计 & ", 有效分数 = " & Me.有效分数 & ", 平均分 = " _
        & Me.平均分 & ", 加班贴分 = " & Me.加班贴分 & ", 总分数 = " & Me.总分数 _
        & " WHERE 录入ID = '" & Me.录入ID & "'"
    DoCmd.SetWarnings True
        CurrentDb.Execute FStr
      
        
'如何才能把以下两段代码写进来，以实现自动化操作!!!!!!!!!!!!!!!
        
'一、平时加班计算代码
If 加班时间 <> 0 And 星期 <> "Y" Then                         '当控件  星期 的值不为  "Y"且加班时间不为0时，只需要计算平时加班工资
If 工作时间 <> 0 Then
Text233 = [工时明细子窗体].[Form]![Text6] / 工作时间
Else
Text233 = 0
End If
Text87 = ([工时明细子窗体].[Form]![Text6] + 贴分分数 * 贴分时间) / (工作时间 + 贴分时间)
If Text87 > 59.99 Then
加班贴分 = Int((Text233 * 工作时间 + 贴分分数 * 贴分时间) / (工作时间 + 贴分时间) * 加班时间 / 2 + 0.5)
ElseIf Text87 = 0 Then
加班贴分 = 贴分分数 * 加班时间 / 2
End If
End If


'二、双休日加班计算代码
If 加班时间 <> 0 And 星期 = "Y" Then                                 '当控件  星期 的值为  "Y"时，需要计算双休日加班
If 工作时间 <> 0 Then
Text233 = [工时明细子窗体].[Form]![Text6] / 工作时间
Else
Text233 = 0
End If
Text87 = ([工时明细子窗体].[Form]![Text6] + 贴分分数 * 贴分时间) / (工作时间 + 贴分时间)
If Text87 > 59.99 Then
加班贴分 = Int((Text233 * 工作时间 + 贴分分数 * 贴分时间) / (工作时间 + 贴分时间) * 加班时间 + 0.5)
ElseIf Text87 = 0 Then
加班贴分 = 贴分分数 * 加班时间
End If
End If

        MsgBox "更新完毕...", vbInformation, "程序提示"
    DoCmd.SetWarnings False
   
On Error GoTo Err_Command52_Click
    DoCmd.GoToRecord , , acNewRec
Exit_Command52_Click:
    Exit Sub
Err_Command52_Click:
    MsgBox Err.Description
    Resume Exit_Command52_Click

[ 本帖最后由 wx-x 于 2011-4-15 06:25 编辑 ]

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

wx-x

版主，可以帮忙解决解决吗？

roych

没看出哪段代码判断是双休还是班后。原则上应该建立一个日期字段，根据日期的星期数来判断。

wx-x

原帖由 roych 于 2011-4-15 00:16 发表
没看出哪段代码判断是双休还是班后。原则上应该建立一个日期字段，根据日期的星期数来判断。

是否双休是根据文本框“星期”的显示值来判断的，是否“还班”也是根据还班的值来判断，如是还班，就不能享受加班贴分，再增加一个字段是可以的。谢谢