VBA日期代码求助

gqx3563610 · 发表于 2019-4-27 17:18

求当前日期date减去下面这个日期中包含多少个周天。

2019-04-03 18:23:51

2019-04-04 10:36:32

2019-04-04 15:33:04

爱疯 · 发表于 2019-4-27 17:18

Sub test()
Dim i
For i = 1 To 3
Cells(i, 2) = VBA.DateDiff("w", Cells(i, 1), Date)
Next
End Sub

1.rar (7.88 KB, 下载次数: 4)

gqx3563610 · 发表于 2019-4-28 10:43

就是附件判断附件内当前日期减去附件内日期之间包含多少个周天，怎么计算

爱疯 · 发表于 2019-4-28 11:32

gqx3563610 发表于 2019-4-28 10:43
就是附件判断附件内当前日期减去附件内日期之间包含多少个周天，怎么计算

做几个数据和结果测试下

无为123456 · 发表于 2019-5-17 10:55

本帖最后由无为123456 于 2019-5-17 13:44 编辑

因无学分，再此求助：：如何将网址中的日期改为当天日期http://dcfm.eastmoney.com/em_mutisvcexpandinterface/api/js/get?type=DZJYXQ&token=70f12f2f4f091e459a279469fe49eca5&cmd=&st=SECUCODE&sr=1&p=1&ps=50&js=var%20WFXgwIcI={pagestp),datax)}&filter=(Stype=%27EQA%27)(TDATE%3E=^2019-03-19^%20and%20TDATE%3C=^2019-05-17^)&rt=51890217

无为123456 · 发表于 2019-5-17 11:12

" & Format(Date, "dd-mm-yyyy") & "

无为123456 · 发表于 2019-5-17 11:13

^如何应对

无为123456 · 发表于 2019-5-17 13:47

本帖最后由无为123456 于 2019-5-17 13:50 编辑

传个附件

		自动登录	找回密码
密码			注册

VBA日期代码求助

最佳答案