发表于 2009-1-5 19:48
| 
鏌ユ壘鏈堜唤鐨勬渶鍚庝竴澶
鍙戝竷: 2008-7-15 14:21 | 浣滆: 缃戠粶杞浇 | 鏉ユ簮: 缃戠粶杞浇 | 鏌ョ湅: 4娆
鏌ユ壘鏈堜唤鐨勬渶鍚庝竴澶
In many industries (particularly in the insurance industry), it娉ㄩ噴锛歴 important to know the last day of the month. To find the last day of a given month, add a text box and a command button to a form. Enter the following code in the command button:
Dim TEMP2 As Date
Dim nLastDay As Integer
TEMP2 = InputBox$("Please Enter A Date", "LastDay")
nLastDay = DatePart("d", DateAdd("M", 1, TEMP2 - DatePart("d", TEMP2)))
Text1.Text = nLastDay
When you run the application and click the button, you娉ㄩ噴锛歭l be prompted for a date. Then, the program will display the last day of that month of any year.
