关于Format(Date, "yyyy/mm/dd")引伸写法

tanglf188

前天：Format(DateAdd("D", -2, Date), "YYYY/M/D")
今天：Format( Date, "YYYY/M/D")

sampsonpon

今天没分了，明天给你们都上分。谢谢大家的回复！

sampsonpon

kevinchengcw 发表于 2024-5-15 10:51

如图，如下代码，如果当月1号时，把下面划线代码处改成上月1号，如何修改？

1. If Day(Date) = 1 Then
   
2.         session.findById("wnd[0]/usr/ctxtBUDAT-LOW").Text = Format(Date - Day(Date) + 1, "yyyy/mm/dd") '变成上个月1号
   
3.         session.findById("wnd[0]/usr/ctxtBUDAT-HIGH").Text = Format(Date - 1, "yyyy/mm/dd")
   
4.     Else
   
5.         session.findById("wnd[0]/usr/ctxtBUDAT-LOW").Text = Format(Date - Day(Date) + 1, "yyyy/mm/dd")
   
6.         session.findById("wnd[0]/usr/ctxtBUDAT-HIGH").Text = Format(Date - 1, "yyyy/mm/dd")
   
7.     End If
   

复制代码

kevinchengcw

micch

可以写个函数，方便后续别的格式进行扩展

taller

回复13楼：

micch

1. Function dateFormat(Date0 As Date, Optional format0 As Long, Optional month0 As Long)
   
2.     Const str0 As String = "yyyy/mm/dd" '返回结果的显示格式
   
3.     Select Case format0
   
4.     Case 0 '日期本身
   
5.     dateFormat = Format(Date0, str0)
   
6.     Case 1 '返回1号，3参省略是本月，3参负数是往前数，正数向后数
   
7.     dateFormat = Format(VBA.DateAdd("m", montho, Date0 - Day(Date0) + 1), str0)
   
8.     Case 2 '前一天
   
9.     dateFormat = Format(Date0 - 1, str0)
   
10.     End Select
    
11. End Function

复制代码

ykcbf1100

参与一下。。。

1. Sub 日期获取()
   
2.     rq = "2024/5/17" '//任意一天的日期字符串
   
3.     tod = Date       '//今天
   
4.     firstDay = CDate(rq) - Day(rq) + 1   '//获取当月的第一天
   
5.     nextDay = DateAdd("m", 1, firstDay)  '//获取下个月的第一天
   
6.     lmDay = DateAdd("d", -1, firstDay)   '//取得上个月的最后一天
   
7.     nmDay = DateAdd("d", -1, nextDay)    '//取得本月的最后一天
   
8. End Sub
   

复制代码