vba鎬庝箞杩斿洖褰撳墠鏃ユ湡
扬州沐宇科技
2023-11-23 22:19:43
鍦╒BA涓紝鍙互浣跨敤Date鍑芥暟鏉ヨ繑鍥炲綋鍓嶆棩鏈熴€傚彲浠ュ皢璇ュ嚱鏁扮殑杩斿洖鍊艰祴鍊肩粰涓€涓彉閲忥紝骞跺湪闇€瑕佺殑鍦版柟浣跨敤銆?/p>
浠ヤ笅鏄竴涓ず渚嬩唬鐮侊細
Sub GetCurrentDate()
Dim currentDate As Date
currentDate = Date
MsgBox "褰撳墠鏃ユ湡鏄細" & currentDate
End Sub
姝や唬鐮佷腑锛屾垜浠娇鐢?code>Date鍑芥暟鑾峰彇褰撳墠鏃ユ湡锛屽苟灏嗗叾璧嬪€肩粰鍚嶄负currentDate鐨勫彉閲忋€傜劧鍚庯紝浣跨敤MsgBox鍑芥暟鍦ㄦ秷鎭涓樉绀哄綋鍓嶆棩鏈熴€?/p>
