共7 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]时段内的工作天数
1楼
舜风 发表于：2009/12/28 22:03:00以下代码问题在哪呢？或求新代码
Dim d1 as Date = #3/17/2002 12:30:29#
Dim d2 as Date = #1/1/2008 10:11:49#
Dim t As TimeSpan = d2 - d1
Dim Count As Integer
Dim Val As Date
For i As integer = 1 To t.Days
Val = New date(d1.year,d1.Month,i)
If Val.DayofWeek > 0 AndAlso Val.DayofWeek < 6 Then
Count = Count + 1
End If
Next
Output.Show(Count)
Dim d2 as Date = #1/1/2008 10:11:49#
Dim t As TimeSpan = d2 - d1
Dim Count As Integer
Dim Val As Date
For i As integer = 1 To t.Days
Val = New date(d1.year,d1.Month,i)
If Val.DayofWeek > 0 AndAlso Val.DayofWeek < 6 Then
Count = Count + 1
End If
Next
Output.Show(Count)
2楼
舜风 发表于：2009/12/29 10:35:00那位帮做个代码
3楼
狐狸爸爸 发表于：2009/12/29 10:42:00其实这个没有意义的，中国传统的节假日，很难在代码中体现：
Dim d1 as Date = #3/17/2002 12:30:29#
Dim d2 as Date = #1/1/2008 10:11:49#
Dim t As TimeSpan = d2 - d1
Dim Count As Integer
Dim Val As Date
For i As integer = 0 To t.Days
Val = d1.adddays(1)
If Val.DayofWeek > 0 AndAlso Val.DayofWeek < 6 Then
Count = Count + 1
End If
Next
Output.Show(Count)
Dim d1 as Date = #3/17/2002 12:30:29#
Dim d2 as Date = #1/1/2008 10:11:49#
Dim t As TimeSpan = d2 - d1
Dim Count As Integer
Dim Val As Date
For i As integer = 0 To t.Days
Val = d1.adddays(1)
If Val.DayofWeek > 0 AndAlso Val.DayofWeek < 6 Then
Count = Count + 1
End If
Next
Output.Show(Count)
4楼
lxl 发表于：2009/12/29 10:42:00这样算出来意义不大吧，
因为国庆、春节、五一这些法定假日加起来天数很多，和实际误差太大了吧
5楼
舜风 发表于：2009/12/29 11:11:00
谢谢，其实这样就可以，因为节假日是没有缺勤的如果没有工作日，那么算工资或奖金时，在一时段天数内算缺勤就会出问题
所以老爹应该考虑如易表一样，自带计算工作日的函数
6楼
舜风 发表于：2009/12/29 21:45:00更正一下:
Val = d1.adddays(1)
应为 Val = d1.adddays(i)
7楼
mr725 发表于：2009/12/30 11:45:00学习～
[此贴子已经被作者于2009-12-30 15:19:57编辑过]
共7 条记录, 每页显示 10 条, 页签:
[1]