如何修改VBA代码将周数格式化为带前导零的两位数字？

嘿，这个需求超常见，我给你分享几个好用的办法：

办法1：嵌套Format一步搞定 #

如果你想保留用Format(Date, "ww")拿周数的思路，直接把结果再套一层Format强制转成两位就行：

txtWeek = Format(Format(Date, "ww"), "00")

这里的"00"格式会自动给小于10的周数补上前导零——比如第一周就显示01，第十周还是10，完全符合你的要求。

办法2：用Right函数补零 #

另一种更直白的方式，先拿到周数，再通过字符串拼接补零：

txtWeek = Right("0" & Format(Date, "ww"), 2)

原理很简单：先给周数字符串前面加个0，周数是1的话就变成01，周数是12的话变成012，然后取右边两位，就得到了我们要的01和12，简单粗暴还靠谱。

办法3：WeekNum+Format组合拳 #

如果你更习惯用WeekNum函数获取周数，也可以这么写：

txtWeek = Format(WeekNum(Date), "00")

这里提个小细节：WeekNum默认以周日作为一周的第一天，如果你的业务需要以周一为起始，加个参数就行：

txtWeek = Format(WeekNum(Date, vbMonday), "00")

这样算出来的周数会更贴合很多地区的习惯。

另外，要是你用Format的时候想调整周数的计算规则（比如一周从哪天开始、第一周怎么判定），可以这么写：

txtWeek = Format(Format(Date, "ww", vbMonday, vbFirstFourDays), "00")

第二个参数vbMonday指定周一为一周第一天，第三个参数vbFirstFourDays表示新年第一周只要有至少4天在当年，就算作第一周，这个可以根据你的需求灵活调整。

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