宏从星期几的日期范围字符串中提取日期,并添加7天以打印下一个日期范围

用户名

我正在编写一个处理大量数据的Excel宏。其中一行包含日期范围,例如wkstartdate-wkenddate,我想使用dateadd函数每周打印下一个日期范围(如以下情况,例如“ 27-01-14-02-02-14”),但无法执行所以。'06 -01-14-12-01-14''13 -01-14-19-01-14''20 -01-14-26-01-14'我在以下摘录中使用了失败的内容:

Range("E" & Lastrow).Select
prwk = Split(ActiveCell.Value, "-")
'curr_wkstart = DateAdd("d", 7, prwk(1)) 'error as maybe prwk(1) isnt correct format
'curr_wkend = DateAdd("d", 7, prwk(2))   'error 
Range("E" & Lastrow + 1).Value = curr_wkstart & curr_wkend  'no result

为了进行测试,我在diff单元格中打印prwk(1)(在上述情况下20/01/14并添加7天,这给了我1/21/2020而不是'27 / 01/14 '我也尝试使用Cdate函数,但仍然出错

你能给些建议么??

吉姆·西姆森

我认为您要在此处使用FormatDateSerial功能。这是我的想法:

Function GetNextWeek(TheStartWeek)
    a = Split(TheStartWeek, " - ")
    b = Split(a(1), "-")
    c = DateSerial(b(2), b(1), b(0)) + 1
    d = c + 6
    GetNextWeek = Format(c, "dd-mm-yy") & " - " & Format(d, "dd-mm-yy")
End Function

Sub Test()
    Debug.Print GetNextWeek("13-01-14 - 19-01-14") 'Givs you "20-01-14 - 26-01-14"
End Sub

希望这可以帮助。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

分析日期并每月打印下一个日期

PHP日期和时间:在下一个星期二与7天之间

如何在下一个日期和上一个日期之间添加 7 天的间隔

字符串捕获并打印下一个字符。

给定 ISO 日期,以 ISO 字符串范围的形式获取星期几

部分日期(月份和日期)出现在一个范围中的次数及其星期几

将时间字符串转换为日期并找到下一个

日期:获取日期的下一个星期一或星期二

从日期范围中提取日期

假设星期几从星期一开始,从PostgreSQL的日期字段中提取星期几

从 Postgres 的日期范围中获取星期几

从数据框中的字符串中提取第一个日期

如何从熊猫数据框中的字符串中提取最后一个日期

将日期字符串转换为星期几

PHP,以字符串形式标识日期和星期几

过滤特定星期几的字符串日期列表

Excel 宏可在范围内查找日期,然后计算相邻列中的下一个值更改

根据可变的开始日期+天间隔,我需要找到当天的下一个日期

Python 从字符串中提取值并移至下一个

获取php中字符串数组中日期范围之间的每一天

在字符串的日期部分添加一个空格

带有日期时间字段的Rails模型下一个/上一个导航范围

日期范围选择器不显示下一个箭头,但显示上一个箭头

有条件地返回日期范围之外的上一个或下一个匹配结果

如何基于Java中提供的天数来计算下一个日期(天,月和年)?

按给定日期获取上一个和下一个星期一的日期

从日期范围中提取天数

调整下一个日期

从日期范围中提取日期并分配值