Visual Basic 疑问

[复制链接]

AhPang

2009-2-5 06:23 AM

e-book 要吗？http://ebooks.tipsclub.com/index.php gooddays贴看到的，很不错有很多书。
介绍你这本http://ebooks.tipsclub.com/index.php?act=view&id=750，写得很详细我也正在读。

[ 本帖最后由 AhPang 于 2009-2-5 06:26 AM 编辑 ]

goodhermit95

2009-2-8 04:46 PM

原帖由 goodday 于 2009-2-4 12:07 AM 发表
最爱你的那句不耻下问

感耻不问的。。。。。。

我也是被炸到了，

子贡问曰：孔文子何以谓之文也？子曰：敏而好学，不耻下问，是以谓之文也！

所以变成……
毛毛小文子！哈哈哈

毛毛小子

2009-2-17 03:52 AM

所以变成……
毛毛小文子！哈哈哈

=="，我无言......

我想问下：

ElseIf PayPerHour <= 25 And (WorkHour <= 60 And WorkHour >= 36) Then
OTPay = ((PayPerHour - 35) * PayPerHour) * 1.5
MsgBox("Your Over Time Pay is = +" & OTPay)

这里面除了什么问题？就是我要的是workhour >35 到 60 是算OT价钱

AhPang

2009-2-17 10:42 AM

Dim OTPay As Single
      Dim PayPerHour As Integer
      Dim WorkHour As Integer
      Dim TotalClaimHour As Integer

      If TextBox1.Text >= 35 Then
         WorkHour = TextBox1.Text
      Else
         MsgBox("Working hours must be greater than 35")
         Exit Sub
      End If

      PayPerHour = 25

      TotalClaimHour = WorkHour - 35

      If (TotalClaimHour <= 25) Then
         OTPay = (TotalClaimHour * 1.5) * PayPerHour
         MsgBox("Your overtime pay is: " & OTPay.ToString())
      ElseIf (TotalClaimHour > 25) Then
         'What u want???
      End If

PayPerHour是工钱不需要放在if
先把claim ot算出来，才不会乱。

goodday

2009-2-17 02:05 PM

OT 的 rate 不要 hardcode

OT 要能跑 normal day(1.5), rest day(2.0) , off day(3.0), holiday(3.0)

还有 over plus time
recall 的

goodday

2009-2-17 02:09 PM

原帖由 AhPang 于 2009-2-5 06:23 AM 发表
e-book 要吗？http://ebooks.tipsclub.com/index.php gooddays贴看到的，很不错有很多书。
介绍你这本http://ebooks.tipsclub.com/index.php?act=view&id=750，写得很详细我也正在读。

你看得我有买书
但翻到烂了