其中:MyWeek 是第N周的数字,DateA是某年度, 第一周的是从第一个无跨年度的星期开始算
Function DateInWeek(MyWeek, DateA)
DateB = DateSerial(DateA, 1, 1)
dte = DateAdd("ww", MyWeek - 1, DateB)
DateInWeek = DateAdd("d", 8 - Weekday(dte, vbMonday), dte)
End Function
测试程序:
sub test()
Sub aaa()
a = 2012
b = 2
dte2 = DateInWeek(b, a)
'以下用 DatePart 函数验证该日期是否正确
MsgBox a & "年,第" & DatePart("ww", dte2, vbMonday, vbFirstFullWeek) & "周,周一是" & dte2
End Sub。
问：日期计算我想知道用电子表格的日期是什么计算的.(因为有一些货要计算库存日期)我不会计算啊.
答：在A1中输入品名，B1中输入入库日期，C1中输入出库日期，如果要计算库存时间，在D2输入公式：=DATEDIF（B2,TODAY（）,"D"),D2中得到的是当...详情>>
答：下图是DVB-T、DVB-C、DVB-S各自的信道编码方式：信道编码3.7伪随机序列扰码进行基带信号传输的缺点是其频谱会因数据出现连“1”和连“0”而包含大的低...详情>>
答：除非你能有权限直接访问对方数据库，而且还要知道数据库表的关系以及表中数据条目的含义。否则是无法修改的,正常情况下对于数据的读取修改都是在服务器后台进行，而且会有...详情>>
