使用VBA获取Microsoft Project中的视图选项

Question

例如，如果我想将当前日期格式更改为20，我可以使用命令

OptionsViewEx DateFormat:=20

但我如何获取当前日期格式（或任何其他视图选项）？

Answer 1

如果您使用Date函数获取当前格式的日期，但如果您需要更改，请使用format(Date,"yyyy-mmmm-dd")。

Answer 2

DefaultDateFormat应该是要使用的功能。

oldvalue = Application.DefaultDateFormat
Application.DefaultDateFormat = 20 ' or = pjDate_mm_dd_yyyy

这将获取或设置默认日期格式。 （technet）

This提供了完整的格式类型列表。