|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
很不错,精简了很多!
凑一个财务日期函数
Public Function CWRQ(s, z)
nf = Application.Text(s, "[dbnum2]e") '财务年份
yf = Application.Text(Month(s), "[<11][dbnum2]零d;[dbnum2]") '财务月份
'======= '财务日
myday = Day(s): If myday Mod 10 Then rgs = "dd" Else rgs = "零d"
rq = Application.Text(myday, "[dbnum2]" & rgs)
'===============
nyr = nf & " 年 " & yf & " 月 " & rq & " 日" '财务年月日
nyr1 = nf & " " & yf & " " & rq '财务年月日1
CWRQ = Choose(z - 4, nf, yf, rq, nyr, nyr1)
End Function
|
|