vb获取服务器时间

在窗体中建一个文本框和时间控件,可以在文本框中显示跳动的服务器时间

Private Sub Form_Load()

Timer1Interval = 300

End Sub

Private Sub Timer1_Timer()

Dim cnn As New ADODBConnection

Dim cmd As New ADODBCommand

Dim rst As New ADODBRecordset

Dim Sqlser_time

cnnConnectionString = "driver={SQL Server};" & _

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

cnnOpen

cmdActiveConnection = cnn

cmdCommandText = "SELECT GETDATE() AS sys_Sqlser_time"

Set rst = cmdExecute

Sqlser_time = rst(0)

Text1Text = Sqlser_time

rstClose

cnnClose

End Sub

Date函数：返回系统的日期。

Now函数：返回系统的日期和时间。

Format函数：根据格式表达式来格式化数据。

date()例子：在PHP中

<php

// 设定要用的默认时区。自 PHP 51 可用：

date_default_timezone_set('UTC');

// 输出类似：

Mondayecho date("l");

// 输出类似：

Monday 15th of August 2005 03:12:46 PMecho date('l dS \of F Y h:i:s A');

// 输出：July 1, 2000 is on a Saturdayecho "July 1, 2000 is on a "

date("l", mktime(0, 0, 0, 7, 1, 2000));

/ 在格式参数中使用常量 /

// 输出类似：Mon, 15 Aug 2005 15:12:46

UTCecho date(DATE_RFC822);

// 输出类似：2000-07-01T00:00:00+0000echo

date(DATE_ATOM, mktime(0, 0, 0, 7, 1, 2000));

>

扩展资料：

作用Date 函数可返回当前的系统日期。

提示：获取时间可参考Time()函数

语法

Date

实例

Dim MyDate

MyDate = Date   ' MyDate 的值为系统当前的日期(如：2010-07-03)。

说明

VB 中Date语句可以用于设置系统日期

如:

Date = "2012-8-8"  '这样就把当前系统日期改为2012-8-8了

PHP中的^代表的一种位运算，VB的^才是指数运算符。。。

这种位运算的方法和二进制运算中的Xor等同，但是VB中的Xor MS是属于逻辑运算符，所以返回值是布尔，和PHP的不同。。。

以上就是关于vb获取服务器时间全部的内容，包括:vb获取服务器时间、在VB中，可获得当前系统日期的函数是什么、php翻译到vb问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！