关于插入日期的问题

sxz4494 · 发表于 2004-2-4 13:52

我想在一个文件中插入当前时间的前7日（当然是自动更新了），该怎么办？

cxffxc · 发表于 2004-2-4 17:05

在EXCEL中很好办

守柔 · 发表于 2004-2-5 07:24

试一下这个，请指定一个快捷键： Sub beforedate()
Dim bedt
bedt = Date - 7
Selection.InsertAfter bedt
End Sub

sxz4494 · 发表于 2004-2-5 09:23

谢谢3楼帮助，是可以插入，但我还有一个问题，就是日期格式的问题，比方说，今天是2004年2月5日，我要另外的一个地方显示为 2004年1月29日至2月4日（即当前日期的前7日至前1日，有何跟好的办法，在此，先行谢过了

守柔 · 发表于 2004-2-5 10:48

试一下，这个： Sub beforedate()
Dim bedt, ladt
bedt = Date - 7
ladt = Date - 1
Selection.InsertAfter bedt & "至" & ladt
End Sub

fisher · 发表于 2004-2-5 11:00

sxz4494 · 发表于 2004-2-5 11:41

3楼兄，办法可以，但格式还是没有办法呀

守柔 · 发表于 2004-2-5 12:25

格式，你想要什么格式，日期格式有好几种，就是年月日？调整格式的方法也有好几种。

守柔 · 发表于 2004-2-5 12:59

Sub beforedate()
Dim bedt, ladt
bedt = Format(Date - 7, "yyyy年m月d日")
ladt = Format(Date - 1, "yyyy年m月d日")
Selection.InsertAfter bedt & "至" & ladt
End Sub
以上是通过代码方式，还有一种是在控制面板/区域/日期中设置

sxz4494 · 发表于 2004-2-5 15:15

好了，可以用了，谢谢守柔

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