如何将日期分别保存为年、月、日，谢谢！(已解决)

rjtang · 发表于 2013-8-27 10:00

本帖最后由 rjtang 于 2013-8-27 13:05 编辑

请教各位老师如何将下列代码的日期按年月日分别保存到相应的单元格，谢谢

ActiveSheet.Cells(b, 1) = Sheets("凭证录入").Cells(6, 8) '（2005=2005年1月31日）年
ActiveSheet.Cells(b, 2) = Sheets("凭证录入").Cells(6, 8) '（1=2005年1月31日）月
ActiveSheet.Cells(b, 3) = Sheets("凭证录入").Cells(6, 8) '（31=2005年1月31日）日

年月日

代码不变，只要将数据库的格式全部改成数字型，录入凭证后，就分别保存为 2005 1 31

jsxjd · 发表于 2013-8-27 10:20

Year,Month,Day

rjtang · 发表于 2013-8-27 10:31

jsxjd 发表于 2013-8-27 10:20
Year,Month,Day

我原来只会用不会编，现在才开始学别人的代码套用，我不知如何加到代码中，能否请帮改一改，谢谢！

dajiahaoxinku12 · 发表于 2013-8-27 13:20

上传个附件吧，好帮你调试

rjtang · 发表于 2013-8-27 15:14

dajiahaoxinku12 发表于 2013-8-27 13:20
上传个附件吧，好帮你调试

我把数据库中的日期格式改成数据型，就把问题解决了，谢谢再次关注！

cf7315752 · 发表于 2013-9-17 14:43

year month day

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

[求助] 如何将日期分别保存为年、月、日，谢谢！(已解决)