VBA鐨凢ormatDateTime()鍑芥暟鐢ㄤ簬灏嗘棩鏈熷拰鏃堕棿鍊兼牸寮忓寲涓虹壒瀹氱殑瀛楃涓层€傝鍑芥暟鍙互鎺ュ彈涓や釜鍙傛暟锛氭棩鏈?鏃堕棿鍊煎拰鏍煎紡瀛楃涓层€?/p>

鏃ユ湡/鏃堕棿鍊煎彲浠ユ槸涓€涓棩鏈熷彉閲忋€佹椂闂村彉閲忔垨鏃ユ湡鏃堕棿鍨嬬殑琛ㄨ揪寮忋€傛牸寮忓瓧绗︿覆瀹氫箟浜嗘棩鏈熷拰鏃堕棿鐨勬牸寮忋€?/p>

FormatDateTime()鍑芥暟杩斿洖涓€涓牸寮忓寲鍚庣殑瀛楃涓茶〃绀烘棩鏈?鏃堕棿鍊笺€傛牴鎹牸寮忓瓧绗︿覆鐨勪笉鍚岋紝杩斿洖鐨勫瓧绗︿覆鍙兘鍖呭惈鏃ユ湡銆佹椂闂存垨涓よ€呯殑缁勫悎銆備互涓嬫槸涓€浜涘父鐢ㄧ殑鏍煎紡瀛楃涓茬ず渚嬶細

• 鈥淕eneral Date鈥濓細杩斿洖鍖呭惈鏃ユ湡鍜屾椂闂寸殑闀挎棩鏈熷瓧绗︿覆銆?/li>
• 鈥淪hort Date鈥濓細杩斿洖鍙寘鍚棩鏈熺殑鐭棩鏈熷瓧绗︿覆銆?/li>
• 鈥淟ong Time鈥濓細杩斿洖鍙寘鍚椂闂寸殑闀挎椂闂村瓧绗︿覆銆?/li>
• 鈥淢edium Date鈥濓細杩斿洖鍖呭惈鏃ユ湡鐨勪腑绛夐暱搴︽棩鏈熷瓧绗︿覆銆?/li>
• 鈥淢edium Time鈥濓細杩斿洖鍖呭惈鏃堕棿鐨勪腑绛夐暱搴︽椂闂村瓧绗︿覆銆?/li>

渚嬪锛屼互涓嬩唬鐮佸皢鏃ユ湡鍊兼牸寮忓寲涓哄彧鍖呭惈鏃ユ湡鐨勭煭鏃ユ湡瀛楃涓诧紝骞跺皢缁撴灉瀛樺偍鍦ㄥ彉閲廸ormattedDate涓細

Dim myDate As Date
Dim formattedDate As String

myDate = Date
formattedDate = FormatDateTime(myDate, vbShortDate)

鍦ㄤ笂杩扮ず渚嬩腑锛寁bShortDate鏄竴涓父閲忥紝琛ㄧず鐭棩鏈熸牸寮忋€?/p>