日期和格式功能

Question

我在用户表单上有一个组合框（下拉列表），列出了昨天的当前日期和日期。代码如下：

With currentDate
.AddItem Date
.AddItem Date - 1 
End With

由于这会返回系统日期，因为宏在不同的计算机上使用并且它们具有不同的系统日期格式，因此我无法格式化它。对于某些人来说，日期格式为＆＃34; mm / dd / yyyy＆＃34;例如＆＃34 11/04/2015＆＃34;有些系统日期格式是＆＃34; dd / mm / yyyy＆＃34;例如＆＃34; 04/11 /到2015年＆＃34 ;.我需要组合框来显示＆＃34; dd / mm / yyyy＆＃34;即使系统日期格式设置为＆＃34; mm / dd / yyyy＆＃34;

我试过这样做：

datefor = Date
datefor = Format(datefor, "dd/mm/yyyy")

With currentDate
.AddItem Date
.AddItem Date - 1
End With

但我一直收到错误。有什么想法吗？

Answer 1

我认为您需要减少日期值，然后格式化。

以这种方式尝试：

With currentDate
.AddItem Format(Date, "dd/mm/yyyy")
.AddItem Format(Date -1, "dd/mm/yyyy")
End With

根据斯科特的评论编辑。