两个日期之间的星期/月的差异

我需要找到两个日期之间的差异并加上一些限制。两个日期之间的星期/月的差异

如果在几个月的差大于6，然后显示在个月的差
如果小于6个月，在周
显示它最后，总是向上舍入到下一个整数（6.2周---> 7）

我已经试过这

Dim startDate As Date = txtStartDate.DateValue 
    Dim endDate As Date = txtEndDate.DateValue 
    Dim dateDiff As TimeSpan = endDate - startDate 

    Dim totalDays As Double = dateDiff.TotalDays 
    'Divide by 7 to get the number of weeks 
    Dim weeks As Double = totalDays/7 
    '6 months, average of 4.34812 weeks per month 
    If (weeks >= 26.08872) Then 
     txtDuration.Text = Math.Ceiling((weeks/4.34812)).ToString() + " Months" 
    Else 
     txtDuration.Text = Math.Ceiling(weeks).ToString() + " Weeks" 
    End If

它适用于一些日期，但并不适用于所有情况。

2014年9月1日 - > 2015年3月1日给我26周，要6个月

任何想法？有没有在vb.net中的内置函数，我可以使它更容易？

感谢

来源

2014-09-25 Marc-André Therrien

有这些日期间181天，它是25.857142857周 – 2014-09-25 20:32:56

马克，

尝试。

diff = dateDiff(DateInterval.Month, startDate, endDate) 

If (diff > 6) Then 
    TxtDuration.Text = diff 
Else 
    TxtDuration.Text = dateDiff(DateInterval.WeekOfYear, startDate, endDate) 
End If

你将不得不重新命名的时间跨度变量DATEDIFF，因为它会与DateDiff的方法发生冲突。

我希望这有助于

来源

2014-09-25 20:58:44

我修改了一周部分可以四舍五入到下一个整数。 Dim days As Long = DateDiff（DateInterval.Day，startDate1，endDate1） txtFirstDuration.Text = Math.Ceiling（days/7）.ToString – 2014-09-26 13:25:56

两个日期之间的星期/月的差异

回答

相关问题