WorksheetFunction.WeekNum(now, vbMonday)

答案 1 :(得分:6)

使用VBA将日期转换为isoWeeknumber,您只需要DatePart函数(其中DT是感兴趣的日期):

isoWeekNumber = DatePart("ww", DT, vbMonday, vbFirstFourDays)

如果您想使用ISO 8601中指定的其他定义,请调查FirstDayOfWeek和FirstWeekOfYear的其他一些选项

答案 2 :(得分:3)

在周数方面要小心,因为周围有不同的定义。 Excel定义与ISO定义不同。获取ISO周数使用(复制自http://www.rondebruin.nl/win/s8/win001.htm)

Public Function IsoWeekNumber(d As Date) As Integer

Dim d2 As Long

d2 = DateSerial(Year(d - Weekday(d - 1) + 4), 1, 3)

IsoWeekNumber = Int((d - d2 + Weekday(d2) + 5) / 7)

End Function

答案 3 :(得分:0)

使用datepart和错误解决方法来计算ISO年:

'Test 2007-12-31 should return W01Y2008

myDate = "2007-12-31"

6 个答案:答案 0 :(得分:12)要将周数作为第一天的星期一,请使用以下内容:WorksheetFunction.WeekNum(now, vbMonday)答案 1 :(得分:6)使用VBA将日期转换为isoWeeknumber,您只需要DatePart函数(其中DT是感兴趣的日期):isoWeekNumber = DatePart("ww", DT, vbMonday, vbFirstFo... v_date = Date ' 今天,格式为:yyyy-MM-dd v_time = Now ' 此时,格式为:yyyy-MM-dd HH:mm:ss v_date2 = #"2021-06-01" '指定时间 v_date3 = CDate("2021-06-01") 日期 格式化 Format(Date, "yyyy-MM-dd") 日期 处理 对 日期 进行处理,得到想要的目标 日期 today = Date yesterday = today - 1
第一,vba 日期 和时间函数的基本用法 Excel 中vba 日期 函数和时间函数分别是DATE和TIME。   VBA提供了三个无参数函数:Date、Time、Now,分别返回当前电脑系统的 日期 、时间、 日期 +时间。   下面的代码我们以三个消息框来结合 日期 和时间函数,分别提示当前的 日期 、时间。 Sub vba时间和 日期 函数()     MsgBox Date     MsgBox Tim
1、强制转 日期 格式,yyyy-m-d Sheet2.Cells(2, 1) = Format(Sheet2.Cells(2, 1), "yyyy-m-d")Sheet2.Cells(2, 25) = Format(Sheet2.Cells(2, 25), "yyyy-m-d") 2、取 日期 格式中的年 、月。 Sheet2.Cells(2, 3) = Month(Sheet2.Cells(2,...
Dim dt As Date, t1 As Integer, t2 As Date, i As Date, temp As Integer dt = Application.InputBox("请输入 日期 :" & Chr(10) & _ "如:2021-09-08", _ "选择 日期 ", "2021-09-08", , , , 1) t1 = Weekday(dt, 2)
详细介绍见 Calculating the ISO week number. Jan Stout. http://www.proesite.com/timex/wkcalc.htm  Simple week number的定义如下: 1. 第一周开始于该年的一月一号 2. 第n+1周开始于第n周后的7天 SWN( y, m, d ) = 1 + ( DP( y, m ) +
了解VBA与 Excel 内置的函数,能够使我们处理起任务来事半功倍。这些函数不仅使用方便,而且效率一般都比较高(有些是例外的,特别是某些工作表函数),比我们自己写的要高效的多。 1. VBA内置的函数  VBA内置函数是VBA种可以直接使用的函数,很多处理函数也相当有用。 调用方式:直接使用函数,或者使用VBA调用。例如Shell()或者VBA.Shell()。 VBA内置的函数主要涉及...
1. 首先定义了三个整型变量 `days`、`weeks` 和 `remain`,分别表示输入的天数、 转换 后的 周数 和剩余的天数。 2. 使用 `printf` 函数输出提示信息,并使用 `scanf` 函数读取用户输入的天数。 3. 使用除法运算符 `/` 计算 周数 ,使用取模运算符 `%` 计算剩余的天数。 4. 使用 `printf` 函数输出 转换 后的结果。