以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何计算周别  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81691)
--  作者：jerrycao
--  发布时间：2016/3/3 16:01:00
--  如何计算周别
 您好,我需要根据这个日期计算出周别,周一为每周第一天,请帮忙解答,谢谢！
1.时间:2016-03-03 14:46:03
   周别:??????


2.写出表达式计算时段,计算出这个时间是那个时段:

2016-03-03 12:00-12:29     时段为 12:00

2016-03-03 12:30-12:59     时段为 12:30
--  作者：狐狸爸爸
--  发布时间：2016/3/3 16:17:00
--  

1、

 

Dim  d As Date = Date.Today
Dim  n As Integer = DateAndTime.DatePart(DateInterval.WeekOfYear, d, FirstDayOfWeek.Monday )
Return n
--  作者：狐狸爸爸
--  发布时间：2016/3/3 16:20:00
--  

2、

 

Dim  d  As Date = #3/3/2016 12:29#
Dim t As timespan = d - d.Date
Return t
--  作者：大红袍
--  发布时间：2016/3/3 16:22:00
--  
Dim d As Date = Date.now
msgbox(d)
Dim gc As System.Globalization.GregorianCalendar = new System.Globalization.GregorianCalendar()
Dim weekOfYear As Integer = gc.GetWeekOfYear(d,System.Globalization.CalendarWeekRule.FirstDay, DayOfWeek.Monday)
msgbox(weekOfYear)
--  作者：jerrycao
--  发布时间：2016/3/3 16:24:00
--  
 你好,感谢您的帮助,date,不是今天,我有一列是<进入系统时间>
进入系统时间,我会经常添加日期和时间的
--  作者：jerrycao
--  发布时间：2016/3/3 16:24:00
--  
  你好,感谢您的帮助,date,不是今天,我有一列是<进入系统时间>
进入系统时间,我会经常添加日期和时间的
--  作者：大红袍
--  发布时间：2016/3/3 16:26:00
--  

2、

 

Dim d As Date = Date.now
msgbox(d)
If d.Minute >= 30 Then
    d = new Date(d.year, d.Month, d.day, d.hour, 30,0)
Else
    d = new Date(d.year, d.Month, d.day, d.hour, 0, 0)
End If
msgbox(d)
--  作者：狐狸爸爸
--  发布时间：2016/3/3 16:26:00
--  

人家只是以今天为例，告诉你如何计算周别和获取时间部分。
你还是先系统看一下帮助文件吧，否则回复你的问题，也没有多少意义。
 
自带的帮助很详细，图文并茂，按顺序学习即可。
如果看帮助有困难，这里也有个视频教程：
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

不过最详细的还是帮助文件，要掌握好的话，还是需要看帮助的。

 

你若要得急，可以直接上传文件，我们帮你写好

[此贴子已经被作者于2016/3/3 16:27:07编辑过]
--  作者：狐狸爸爸
--  发布时间：2016/3/3 16:35:00
--  

如果是一次性的：

 

For Each dr As DataRow In DataTables("表名").DataRows
    Dim  d As Date = dr("日期列名")
    Dim  n As Integer = DateAndTime.DatePart(DateInterval.WeekOfYear, d, FirstDayOfWeek.Monday )
    dr("周别") = n
Next
--  作者：jerrycao
--  发布时间：2016/3/3 17:22:00
--  
 收到,谢谢,但是发现一个问题,我日期列名是空白时,周别返回1,怎么返回空白