安卓获取网络北京时间的接口,有大神能提供一个么

public static void main(String[] args) throws Exception {

URL url=new URL("http://wwwbjtimecn");//取得资源对象

URLConnection uc=urlopenConnection();//生成连接对象

ucconnect(); //发出连接

long ld=ucgetDate(); //取得网站日期时间

Date date=new Date(ld); //转换为标准时间对象

//分别取得时间中的小时，分钟和秒，并输出

Systemoutprint(dategetHours()+"时"+dategetMinutes()+"分"+dategetSeconds()+"秒");

}

电脑主板CMOS电池没电了，经常会出现开机后系统时间归零的现象。虽然更换CMOS电池可以一劳永逸。也可以不换电池来解决系统时间归零的烦恼，让系统自动对时，但前提是需要连上互联网。STEP1：右键点击系统托盘下的时钟图标，选择“调整日期/时间”命令，或者双击电脑右下角的时间显示。在d出的对话框中，选择第三个子选项“Internet时间”。STEP2：在“Internet时间”选项下的“自动与Internet时间服务器同步”选项前打上钩，然后服务器中选择“2107214544”这个IP地址，点击确定。这样开机后系统就会自动读取最准确的北京时间并自动更新，即使CMOS没电池没电了！也可以点击“立即更新”来对时。

Public Function GetBeijingTime() As DateTime

        Dim dt As DateTime

        Dim wrt As WebRequest = Nothing

        Dim wrp As WebResponse = Nothing

        Try

            wrt = WebRequestCreate("http://wwwbeijing-timeorg/timeasp")

            wrp = wrtGetResponse()

            Dim html As String = StringEmpty

            Using stream As Stream = wrpGetResponseStream()

                Using sr As New StreamReader(stream, EncodingUTF8)

                    html = srReadToEnd()

                End Using

            End Using

            Dim tempArray As String() = htmlSplit(";"c)

            For i As Integer = 0 To tempArrayLength - 1

                tempArray(i) = tempArray(i)Replace(vbCr & vbLf, "")

            Next

            Dim year As String = tempArray(1)Split("="c)(1)

            Dim month As String = tempArray(2)Split("="c)(1)

            Dim day As String = tempArray(3)Split("="c)(1)

            Dim hour As String = tempArray(5)Split("="c)(1)

            Dim minite As String = tempArray(6)Split("="c)(1)

            Dim second As String = tempArray(7)Split("="c)(1)

            dt = DateTimeParse(year & "-" & month & "-" & day & " " & hour & ":" & minite & ":" & second)

        Catch generatedExceptionName As WebException

            Return DateTimeParse("2011-1-1")

        Catch generatedExceptionName As Exception

            Return DateTimeParse("2011-1-1")

        Finally

            If wrp IsNot Nothing Then

                wrpClose()

            End If

            If wrt IsNot Nothing Then

                wrtAbort()

            End If

        End Try

        Return dt

    End Function

版本

2

支持库

EXMLParser

支持库

internet

程序集

窗口程序集1

子程序

_按钮1_被单击

编辑框1内容

＝

到文本

(北京时间

())

子程序

北京时间,

文本型,

公开,

简单的获取北京时间，因网络延时可能会有1-2秒的误差，成功返回类似“2010年10月10日20时21分50秒”的格式，失败返回空文本。

参数

是否同步本地时间,

逻辑型,

可空,

选择是否更新本地时间

局部变量

XML对象,

XML树

局部变量

时间,

文本型

局部变量

临时文本,

文本型

是否同步本地时间

＝

选择

(是否为空

(是否同步本地时间),

假,

是否同步本地时间)

如果真

(取反

(XML对象导入

(HTTP读文件

(“http://wwwtimeaccn/timeflashaspuser=flash”))))

返回

(“”)

如果真结束

XML对象取节点值

(“@1/@1/year”,

临时文本)

时间

＝

临时文本

XML对象取节点值

(“@1/@1/month”,

临时文本)

时间

＝

时间

＋

“年”

＋

临时文本

XML对象取节点值

(“@1/@1/day”,

临时文本)

时间

＝

时间

＋

“月”

＋

临时文本

XML对象取节点值

(“@1/@1/hour”,

临时文本)

时间

＝

时间

＋

“日”

＋

临时文本

XML对象取节点值

(“@1/@1/minite”,

临时文本)

时间

＝

时间

＋

“时”

＋

临时文本

XML对象取节点值

(“@1/@1/second”,

临时文本)

时间

＝

时间

＋

“分”

＋

临时文本

＋

“秒”

如果真

(是否同步本地时间)

置现行时间

(到时间

(时间))

如果真结束

返回

(时间)

需要一个客户组件 客户1连接(“time-atimefreqbldrdocgov”,13)'他的返回时间是英国格林威治时间 反馈代码如下 版本2 子程序_客户1_数据到达局部变量取回数据,文本型局部变量时间,文本型,,"0"局部变量日期,文本型,,"3"局部变量sj1,日期时间型 取回数据＝取字节集数据(客户1取回数据(),#文本型,)时间＝分割文本(取回数据,“”,)日期＝分割文本(时间[2],“-”,)日期[1]＝“20”＋日期[1]sj1＝增减时间(到时间(日期[1]＋“/”＋日期[2]＋“/”＋日期[3]＋“/”＋时间[3]),#小时,8)信息框(sj1,0,)客户1断开连接()

#include <timeh>

#include <stdioh>

void main( void )

{

time_t ltime;

time( &ltime );

printf( "The time is %s\n", ctime( &ltime ) );

}

Output

The time is Sat May 26 10:25:12 2012