更改为美国的日期格式从用户表格

Question

我有一个用户表单需要日期输入，直到今天还没有引起问题（用于过去2周）。

当输入日期时，它将信息发布到可打印页面上可见的登台页面。

原来工作的格式是 -

ActiveCell.FormulaR1C1 = TextBox4.Value 

但随着现在的日期是2014年3月11日它被切换这一轮以2014年11月3日。

然后我试着改变这段代码，把它作为一个日期格式化。

ActiveCell.FormulaR1C1 = Format(TextBox4.Value, "DD/MM/YYYY") 

但是日期显示为11/03/2014。

有没有人有解决这个日期格式错误？

感谢 铝

Answer 1

我会做什么，以避免与日期格式的任何问题是：

With ActiveCell 
    .Value = TextBox4.Text 
    .NumberFormat = "DD/MM/YYYY" 
End With 

这样你使显示值进入细胞内独立于它是如何被用户插入，只要它是一个日期时间值。

P.s.由于您插入的是值，而不是公式，所以我没有任何意愿将您的文本框值插入到活动单元格的公式属性中，因为我们已经任意删除了.FormulaR1C1。