VB獲取伺服器時間，如何獲取遠端Web伺服器的時間

在窗體中建立文字框和時間控制項，以在文字框中顯示退回的伺服器時間。

private sub form_load()= 300

end sub

private sub timer1_timer()dim cnn as new

dim cmd as new

dim rst as new

dim sqlser_time

driver=;" &

server=server;uid=sa;pwd=;database=master"

cnn "select getdate() as sys_sqlser_time"

set rst =

sqlser_time = rst(0)

sqlser_time

end sub

這可以通過單個 dos 命令來實現：

網路時間伺服器名稱設定是

如果伺服器是 SQL Server 資料庫，則可以使用 Select GetDate（） as SJ 語句。

就這麼簡單：

provider=;password...省略 = select getdate（） as sj" '記錄日期和時間。

date = '將計算機 text1 的日期設定為繫結。

time = '設定機器時間。

dim strcnn as string

strcnn = provider=;persist security info=false;"

data source="伺服器名稱 &初始目錄="資料庫 ID &"SQL 使用者名稱 >

password ="SQL 密碼。

dim cnn as new

strcnn

dim rs as new

select getdate() as sj ",cnntime=rs(0)

引用 Microsoft ActiveX 資料物件

獲取遠端 Web 伺服器的時間可以使用伺服器返回的標頭資訊，使用如下 js** 方法，其他語言也是如此：

VB 獲取系統的當前時間可以通過函式 now（） 獲取。還有相關的 time（） time（）。

now（） 獲取系統的當前日期和時間，例如：2015-12-12 22：23：34

time（） 獲取系統的時間，例如： 22：23：

34 不顯示當前日期 date（） 來獲取系統的日期，例如：2015-12-12private sub command1 click（）msgbox now（）。

msgbox time()

msgbox date

end sub

now：系統的日期和時間。

date：系統日期。

time：系統時間。

例如，“顯示系統日期和時間”。

顯示系統日期。

顯示系統時間。

使用 now（） 獲取當前時間，使用 data（） 獲取年、月、日，weekday（） 獲取周。

option explicit

private withevents timer1 as timerprivate sub form_load()set timer1 = "", "timer1")= 1000

end sub

private sub timer1_timer()clsprint now

end sub

你可以通過直接貼上**並執行來看到它。

stringdate=format(now(),"mm/dd/yyyy")

這裡指示月份的部分應該是大寫的，小寫的應該是點。

對於前乙個問題，將本機系統的短日期格式更改為“控制面板”>“區域”"mm/dd/yyyy"形式，它應該能夠解決。

你錯了，我除錯的結果。

這是月、日和年的格式。

貼上你的**。。。我認為你不可能這麼說。

問：如何使用 VBA** 提取系統時間中的年、月、日？

答：可以使用年、月、日函式進行提取，也可以使用資訊功能：

方法一：子年、月、日（）。

msgbox year(date)

msgbox month(date)

msgbox day(date)

end sub

方法二：子年、月、日（）。

msgbox year(now())

msgbox month(now())

msgbox day(now())

end sub

方法3：子年、月、日（）。

msgbox format(now(),"yyyy")msgbox format(now(),"m")msgbox format(now(),"d")end sub