VB關於時間顯示的問題很難!!!!!!!!!!!! 緊急！！！！！！！！！！！！！！！！！！

使用 format（）。

在電子文字視窗中顯示的是英文。

現在包含您需要的所有資訊，如果要單獨提取它，您可以：

format(now,"yyyy-mm-dd"） 日期。

format(now,"hh:mm:ss"時間。

text1=time '時間將顯示在文字框中。

沒有收到錯誤訊息？

1 mounth（date） 是錯誤的，應該是 month（date）2 你沒有點選表單，表單上的標籤或文字框，當然可能性比較小。

如果不行，你可以給我來源**，我幫你看看。

= format(date, "YYYYY，公釐，dd，天") &format(time, "HH 小時 mm， 分鐘 SS， 秒")

您可以切換到其他控制項。

空格包含在分隔符內即可。

否，空格包含在值中。

在窗體 home 中，有乙個 txt 控制項和乙個時間控制項。

**如下：選項顯式

private sub form_load()= 1000

trueend sub

private sub timer1_timer()= date & " " & timeend sub

更改為標籤沒有 txt 屬性。

getforegroundwindow lib "user32" ()as long

private declare function sendmessage lib "user32" alias "sendmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, byval lparam as long) as long

const wm_syscommand = &h112&

dim a_time as string

private sub command1_click()

a_time = cdate(time)

trueend sub

private sub form_load()

falseend sub

private sub timer1_timer()

if time = dateadd("s", val(, a_time) then sendmessage getforegroundwindow, wm_syscommand, sc_monitorpower, 2

end sub

備註：您可以直接在文字框中輸入秒數，例如，如果要在 20 秒後關閉，請輸入 20 並單擊按鈕。 如果要在 30 分鐘後單擊，請輸入 30*60=1800。