如何在SQR中从日期获取星期几？实现日期范围内周末自动计算

需求说明 #

我正在编写程序，需要实现给定起始日期后，自动找出日期范围内的所有周六和周日，直到结束日期，以此替代旧的SQR程序中手动输入每个周末日期的操作。我知道SQL有weekday()函数，想了解SQR中是否有类似的实现方式。目前我的代码存在大量语法错误，正在逐步修复，希望得到相关建议与帮助。

SQR的WEEKDAY函数说明 #

SQR确实提供了WEEKDAY()函数，作用和SQL的weekday()类似，但返回值规则不同：

• 返回值范围为1（代表周日）到7（代表周六），这是和多数SQL实现的核心区别，必须注意。

现有代码的核心问题 #

你的代码存在以下几个关键错误：

• DATEADD参数顺序错误：SQR的DATEADD语法是DATEADD(目标日期, 增减数量, 时间单位)，你错误地将时间单位放在了增减数量前面。
• 类型不匹配的比较：你将WEEKDAY返回的星期数值（$end_day）和日期值（$sun1）直接比较，两者类型不同，无法正确判断。
• 硬编码多层IF分支：这种写法只能处理最多9个周末，无法适配任意长度的日期范围。
• 后期偏移值计算错误：从$sat5开始错误调整了周六、周日的偏移公式，导致日期计算错误。

优化后的代码示例 #

使用循环替代硬编码的IF分支，适配任意日期范围，同时修正所有语法逻辑错误：

! 获取起始日期对应的星期数（1=周日，7=周六）
LET $start_weekday = WEEKDAY(&AC.FROM_DATE)

! 计算第一个周六的日期：若起始日是周六则直接取当天，否则推算到本周六
LET $current_sat = DATEADD(&AC.FROM_DATE, (7 - $start_weekday), 'day')

! 计算第一个周日的日期：若起始日是周日则直接取当天，否则取周六的下一天
IF $start_weekday = 1
  LET $current_sun = &AC.FROM_DATE
ELSE
  LET $current_sun = DATEADD($current_sat, 1, 'day')
END-IF

! 循环遍历所有周末，直到周六超出结束日期
WHILE $current_sat <= &AC.TO_DATE
  ! 处理周六日期（此处可替换为你的业务逻辑，比如存入变量或输出）
  DISPLAY '周六: ' $current_sat(1, 'YYYY-MM-DD')
  
  ! 检查周日是否在结束日期范围内，避免最后一周周日超出
  IF $current_sun <= &AC.TO_DATE
    DISPLAY '周日: ' $current_sun(1, 'YYYY-MM-DD')
  END-IF

  ! 推算下一周的周末日期
  LET $current_sat = DATEADD($current_sat, 7, 'day')
  LET $current_sun = DATEADD($current_sun, 7, 'day')
END-WHILE

代码说明 #

• 严格遵循SQR的WEEKDAY返回值规则，确保周末日期计算准确
• 使用WHILE循环替代多层IF，支持任意长度的日期范围
• 修正了DATEADD的参数顺序，符合SQR语法要求
• 添加了周日的边界判断，避免生成超出结束日期的无效日期

内容的提问来源于stack exchange，提问作者Ethan Morris