日期转换

神秘风暴 · 发表于 2024-2-28 16:04

公司规定每月的25日以前为当月，当月的26日至次月25日之前为下一个月，请问不用公式用VBA怎么写。
例如：
A2单元格内输入：2024-02-25，则B2自动生成2024年2月
A2单元格内输入：2024-02-26，则B2自动生成2024年3月

请各位老师赐教！

chxw68 · 发表于 2024-2-28 16:09

Sub test()
Dim r%, i%
Dim arr, brr
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
If r > 1 Then
arr = .Range("a2:b" & r)
For i = 1 To UBound(arr)
arr(i, 2) = DateSerial(Year(arr(i, 1)), Month(arr(i, 1)) + IIf(Day(arr(i, 1)) <= 25, 0, 1), 1)
Next
.Range("a2:b" & r) = arr
End If
End With
End Sub

复制代码

chxw68 · 发表于 2024-2-28 16:10

详见附件。

大灰狼1976 · 发表于 2024-2-28 16:10

本帖最后由大灰狼1976 于 2024-2-28 16:12 编辑

日期加7再判断就行了吧（25日+7天的话肯定是下个月）
不对，24日+7也可能变成下个月，还是判断处理比较好

tanglf188 · 发表于 2024-2-28 16:17

本帖最后由 tanglf188 于 2024-2-28 16:21 编辑

公式：=IF(DAY(A2)>25,YEAR(A2) & "年" & MONTH(A2)+1 & "月",TEXT(A2,"YYYY年M月"))
VBA用IIF判断

神秘风暴 · 发表于 2024-2-28 16:24

chxw68 发表于 2024-2-28 16:10
详见附件。

谢谢老师，功能已完美实现，虽然有点儿看不懂

hcm19522 · 发表于 2024-2-28 16:32

=TEXT(EOMONTH(A2,0)+(DAY(A2)>25),"YYY年M月")

A刘志勇 · 发表于 2024-2-28 16:40

你试试参考一下

神秘风暴 · 发表于 2024-2-29 15:05

A刘志勇发表于 2024-2-28 16:40
你试试参考一下

非常感谢，这个我可以理解了

ykcbf1100 · 发表于 2024-2-29 15:40

本帖最后由 ykcbf1100 于 2024-2-29 21:38 编辑

附件更新一下。。。

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

[求助] 日期转换