vb obtains the server time, how to get the time of the remote web server

Create a text box and time control in the form to display the bounced server time in the text box.

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

This can be achieved with a single dos command:

net time time server name set yes

If the server is a SQL Server database, you can use the Select GetDate() as SJ statement.

This is as simple as this:

provider=;password...omitted = select getdate() as sj" 'Take the date and time.

date = 'Set the date of the machine text1 to bind.

time = 'Set the machine time.

dim strcnn as string

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

data source="Server Name &initial catalog="database &user id="sql username >

password ="SQL password.

dim cnn as new

strcnn

dim rs as new

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

Referencing Microsoft ActiveX Data Objects

The time to get the remote web server can be obtained using the header information returned by the server, using the js** method as follows, and the same is true for other languages:

vb to get the current time of the system can be obtained with the function now(). There is also the associated time() time().

now() to obtain the current date and time of the system, for example: 2015-12-12 22:23:34

time() to get the time of the system, for example: 22:23:

34 does not show the current date date() to get the date of the system, for example: 2015-12-12private sub command1 click()msgbox now().

msgbox time()

msgbox date

end sub

now: the date and time of the system.

date: the system date.

time: system time.

For example, 'display the system date and time.'

Displays the system date.

Displays the system time.

Use now() to get the present time and data() to get the year, month, day, weekday() to get the week.

option explicit

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

end sub

private sub timer1_timer()clsprint now

end sub

You can see it by directly pasting ** and running.

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

Here the part that indicates the month should be uppercase, and the lowercase should be the point.

As for the former question, change the short date format to "Control Panel" > "Area" of the native system"mm/dd/yyyy"form, it should be able to solve.

You are wrong, the result of my debugging.

This is the format of the month, day, and year.

Paste your **。。。 I don't think it's possible for you to say it.

Q: How to use VBA** to extract the year, month and day in the system time?

A: You can use the year, month, and day functions to extract it, and you can also use the information function:

Method 1: sub year, month, day ().

msgbox year(date)

msgbox month(date)

msgbox day(date)

end sub

Method 2: sub year, month, day ().

msgbox year(now())

msgbox month(now())

msgbox day(now())

end sub

Method 3: sub year, month, day ().

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