date和格式function

我有一个combobox(下拉列表)在用户窗体上列出昨天的当前date和date。 代码如下:

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

由于这将返回系统date,所以我在格式化时遇到了问题,因为macros在不同的计算机上使用,并且它们具有不同的系统date格式。 对于某些date格式是“mm / dd / yyyy”,例如“2015年11月4日”,有些系统date格式是“dd / mm / yyyy”,例如“04/11/2015”。 即使系统date格式设置为“mm / dd / yyyy”,我也需要combobox显示“dd / mm / yyyy”

我试过这样做:

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

但是我不断收到错误。 有任何想法吗?

我想你会需要减lessdate值,然后格式。

试试这个方法:

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

按照Scott的意见编辑。