从用户表单中将日期写入单元格更改VBA中的顺序

Question

我有一个单元格和一个用户表单。在单元格中是日期12-10-2015。加载用户窗体时，日期将加载到文本框中。此文本框将显示12-10-2015。究竟我是如何需要它的。但是，当我将其写回单元格时，它会将值更改为10-12-2015

代码：

开启用户形式：

frmChangeData.txtBirthDate.value = shtData.cells(row, clmnBirthDate) 
'Loads 12-10-2015

保存用户表单：

shtData.Cells(row, clmnBirthDate) = frmChangeData.txtBirthDate.Value
'Returns 10-12-2015

上述情况不会改变userform中的任何内容。怎么解决这个问题？

Answer 1

为puprose使用format关键字

ext {
    mainClassName = 'com.izeye.throwaway.Application'
}

task myBootRepackage(type: BootRepackage, dependsOn: jar) {
}

Answer 2

使用CDate使用您的区域设置将日期字符串转换为真实日期值：

shtData.Cells(row, clmnBirthDate).Value = CDate(frmChangeData.txtBirthDate.Value)