求助怎么在屏幕上输出当前时间加上一段时间

怎么能把时间显示在手机屏幕上_百度知道
怎么能把时间显示在手机屏幕上
怎么能把时间显示在手机屏幕上
  添加时间或天气工具就可以显示时间和天气信息了。  请用下面的方法操作:  1、在桌面空白处长按。  2、屏幕下面会自动出现插件添加窗口。  3、选择时间或天气插件,点击,自动添加到桌面。
你用的是什么系统IOS(iphone)或者安卓的话本身就是在屏幕上的如果是windows系统需要进设置-系统-时间里面设置一般的手机都是默认显示时间在首屏的如果你安装过手机主题的话可能会有所更改换回默认主题就OK了
本回答被提问者采纳
系统设置,
为您推荐:
其他类似问题
您可能关注的内容
手机屏幕的相关知识
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 2839|回复: 4
==求助==大家快来看看
怎么去掉电脑时间显示里面的年月日
签到天数: 242 天[LV.8]以坛为家I
马上注册,欢迎加入IT之家社区大家庭。
才可以下载或查看,没有帐号?
怎么去掉电脑时间显示里面的年月日&&只显示小时 分钟 秒 最好附上图文解说 谢谢大家了
签到天数: 274 天[LV.8]以坛为家I
本帖最后由 天堂鸟2011 于
01:11 编辑
想要系统默认的那种或者自己设置的方法:
在时间上鼠标左键,然后按照图做:
1.jpg (59.24 KB, 下载次数: 0)
01:00 上传
2.jpg (55.48 KB, 下载次数: 0)
01:00 上传
3.jpg (61.4 KB, 下载次数: 0)
01:00 上传
4.jpg (78.63 KB, 下载次数: 0)
01:00 上传
5.jpg (63.62 KB, 下载次数: 0)
01:00 上传
如果想要默认的 就点重置即可。window不知道怎么设置长时间,好像不支持显示秒的。
楼主可以用魔方小助手:
详细见图:
1.jpg (54.91 KB, 下载次数: 1)
01:09 上传
图中红框的是不是楼主想要的效果?
签到天数: 162 天[LV.7]常住居民III
这个看起来不错哦,呵呵~非常感谢分享!支持一下!
& & & & & & & & & & & & & & & &
签到天数: 309 天[LV.8]以坛为家I
沙发已经很详细了
签到天数: 1127 天[LV.10]以坛为家III
用魔方小助手的说
版权所有 (C)欢迎加入我们,一同切磋技术。 &
用户名: &&&
密 码: &
共有 5959 人关注过本帖
标题:求助!网页中的时间如何获取并修改本机时间。
来 自:警察学院
等 级:新手上路
结帖率:50%
&&已结贴√
&&问题点数:20&&回复次数:10&&&
求助!网页中的时间如何获取并修改本机时间。
http://www.wlmqtljzbw.com/GetDBTime.aspx&&我想获取这个网页上的时间,并将自己电脑的时间修改成获取的时间,但是这个时间从网页的源码里看是来自它的数据库的。时间服务器也不好使。请大神说说有什么办法。
搜索更多相关主题的帖子:
等 级:版主
威 望:189
帖 子:4072
专家分:25071
&&得分:20&
Private Sub Command1_Click()
Dim url As String
Dim s As String
url = &http://www.wlmqtljzbw.com/GetDBTime.aspx&
s = GETHTML(url)
Dim i As Long, j As Long
i = InStr(1, s, &lb_DBTIM&)&&&&&&&&&'先找ID
i = InStr(i, s, &&&)&&&&&&&&&&&&&&& '再找这个标记的关闭字符
j = InStr(i, s, &&&)&&&&&&&&&&&&&&& '找下一个标记开始的字符
If j & i Then
&&& MsgBox &获取时间:& & Mid(s, i + 1, j - i - 1)
&&& MsgBox &获取时间失败&
Public Function GETHTML(url As String)
'使用 a814153 的代码 进行封装
&&& With CreateObject(&WinHttp.WinHttpRequest.5.1&)
&&&&&&&&.Open &GET&, url, False
&&&&&&&&.Send
&&&&&&&&GETHTML = .responsetext
&&& End With
End Function
授人于鱼,不如授人于渔
早已停用QQ了
来 自:警察学院
等 级:新手上路
回复 2楼 风吹过b
大神,果然获取成功了,但是没有更改本机的时间。更改本机时间的语句应该怎么实现呢?win7和XP是否通用呢?
等 级:版主
威 望:189
帖 子:4072
专家分:25071
改时间,忘了 API 函数用哪个了。
命令行倒有二个命令。
date 日期&&& 改日期
time 时间&&& 改时间
s=Mid(s, i + 1, j - i - 1)
dim fj() as string&&&&&&&&&&&&&&&&&
fj=split(s,& &)&&&&&&&&&&&&&&&&&&&&'按空格分成二段,第一段是日期,第二段时时间
shell &cmd /c date & & fj(0),vbHide&&&&&&'运行 CMD 命令进行更改 日期
shell &cmd /c time & & fj(1),vbHide&&&&&&'运行 CMD 命令进行更改 时间
授人于鱼,不如授人于渔
早已停用QQ了
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
date=& 0:0:0&&&& '修改日期
time=& 0:0:0&&&& '修改时间,无需api或dos命令,风兄忘了
等 级:版主
威 望:189
帖 子:4072
专家分:25071
真是忘了。 因为一般情况下都没去用过这个命令。
这个命令还是 ROM-BASIC 一直流传下来的吧,那个年代需要。
授人于鱼,不如授人于渔
早已停用QQ了
来 自:警察学院
等 级:新手上路
回复 5楼 lowxiong
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Command1.Caption = &已获取时间&
Public Function GETHTML(url As String)
'使用 a814153 的代码 进行封装
&&& With CreateObject(&WinHttp.WinHttpRequest.5.1&)
&&&&&&&&.Open &GET&, url, False
&&&&&&&&.Send
&&&&&&&&GETHTML = .responsetext
&&& End With
End Function
Private Sub Command2_Click()
Time = Right(Label1.Caption, 8)
Function GetTime()
Dim url As String
&&Dim s As String
&&url = &http://www.wlmqtljzbw.com/GetDBTime.aspx&
&&s = GETHTML(url)
&&Dim i As Long, j As Long
&&i = InStr(1, s, &lb_DBTIME&)&&&&&&&&&'先找ID
&&i = InStr(i, s, &&&)&&&&&&&&&&&&&&& '再找这个标记的关闭字符
&&j = InStr(i, s, &&&)&&&&&&&&&&&&&&& '找下一个标记开始的字符
&&If j & i Then
&&&&&&Label1.Caption = &服务器的时间:& & Mid(s, i + 1, j - i - 1)
&&&&&&'MsgBox &服务器时间:& & Mid(s, i + 1, j - i - 1)
&&&&&&'MsgBox &获取时间失败&
End Function
Private Sub Timer1_Timer()
Private Sub Timer2_Timer()
Label2.Caption = &本机电脑时间:& & Format(Now, &yyyy-mm-dd hh:mm:ss&)
我这个做出来,校对时间怎么样都有1S的误差。我哪儿弄错了吗?
等 级:版主
威 望:189
帖 子:4072
专家分:25071
Private Sub Command2_Click()
Time = Right(Label1.Caption, 8)
时间误差产生在这里。
====================
这个函数改一下:
Function GetTime()
Dim url As String
&&Dim s As String
&&url = &http://www.wlmqtljzbw.com/GetDBTime.aspx&
&&s = GETHTML(url)
&&Dim i As Long, j As Long
&&i = InStr(1, s, &lb_DBTIME&)&&&&&&&&&'先找ID
&&i = InStr(i, s, &&&)&&&&&&&&&&&&&&& '再找这个标记的关闭字符
&&j = InStr(i, s, &&&)&&&&&&&&&&&&&&& '找下一个标记开始的字符
&&If j & i Then
&&&&&&GetTime=Mid(s, i + 1, j - i - 1)
&&&&&&'Label1.Caption = &服务器的时间:& & Mid(s, i + 1, j - i - 1)
&&&&&&'MsgBox &服务器时间:& & Mid(s, i + 1, j - i - 1)
&&&&&&'MsgBox &获取时间失败&
End Function
Private Sub Timer1_Timer()
Label1.Caption = gettime
-----------
Private Sub Command2_Click()
'Time = Right(Label1.Caption, 8)
dim j as string
dim t1 as date,t2 as date
t1=time&&&&&&&&&&&&&&&&&&&&&&&&&&&'调用前时间
j=gettime&&&&&&&&&&&&&&&&&&&&&&&& '重新读时间,在这个过程中,有时间误差
t2=time&&&&&&&&&&&&&&&&&&&&&&&&&&&'调用后时间
Time = Right(j, 8) + (t2 -t1)&&&&&&&&& '这步不确定,没测试, t2-t1 是读取网页时的开销时间。你要测试一下,才能知道是不是要加上去。
label1.caption=j
[ 本帖最后由 风吹过b 于
21:46 编辑 ]
授人于鱼,不如授人于渔
早已停用QQ了
等 级:版主
威 望:189
帖 子:4072
专家分:25071
使用远程时间。
其实应该是使用多次(〉2)读取网络时间来测算网络开销。
采取的应该是连续读2次,或几次,然后得到的时间与 本地时间相比较,然后在本地的基础上进去修正显示。
t1=time&&&&&&&&&&&&&&&&&&&&&本地时间
t2=right(gettime,8)&&&&&&&&&远程时间&&&这两个初始值
for i=1 to 2&&&&&&&&&&&&&&& 再读2次远程
&&&t3=right(gettime,8)&&&&&&保留最后一次的远程时间
t4=time&&&&&&&&&&&&&&&&&&&&&结束后的本地时间
t5=((t2-t1)+(t4-t3) )/2&&&&&两时间差值的平均值,反映本地与远程的时间差
t6=time + t5&&&&&&&&&&&&&&& 本地时间+差值,得到服务器时间
不考虑时间是否相同的情况下。
授人于鱼,不如授人于渔
早已停用QQ了
来 自:警察学院
等 级:新手上路
回复 9楼 风吹过b
版主大神,我实在是改不出来了。整了一天也没有把误差整掉。你能帮我弄一个成品吗?实在是能力有限。
版权所有,并保留所有权利。
Powered by , Processed in 0.091494 second(s), 7 queries.
Copyright&, BCCN.NET, All Rights Reserved怎样让vivox6手机主屏幕显示时间天气日期星期_百度知道
怎样让vivox6手机主屏幕显示时间天气日期星期
我有更好的答案
您可以进入手机桌面--点击左菜单键进入--桌面挂件--点击i挂件(轻.悦)即可释放到桌面中进行使用的。
vivo,专注智能手机领域。
主营:智能手机
为您推荐:
其他类似问题
换一换
回答问题,赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。控制台打印输出信息如何加上时间 - BAT求助&讨论 -
批处理之家 批处理_BAT_CMD_DOS_VBS_Perl_Python_PowerShell - Powered by Discuz!
帖子7&积分19&技术0 &捐助0 &注册时间&
控制台打印输出信息如何加上时间
本帖最后由 lvzhaofei 于
15:28 编辑
具体情况是这样的,我用批处理运行一个导入程序,程序在控制台输出的子信息如下,
---begin import e:/test\sql7982---
---import e:/test\sql7982 success!---
---begin import e:/test\sql9633---
---import e:/test\sql9633 success!---
---begin import e:/test\sql1379---
---import e:/test\sql1379 success!---
---begin import e:/test\sql2651---
---import e:/test\sql2651 success!---
---begin import e:/test\sql7788---
---import e:/test\sql7788 success!---
---begin import e:/test\sql2147---
如果是用&&重定向到文件打印日志,因为程序不修改,所以如果想打印时间,
有什么方法能在打印日志的每一条,将当前系统时间打印出来? 或者 可以统计打印每条的时间间隔
例如类似下面这种:
---begin import e:/test\sql7982---&&10:22:22
---import e:/test\sql7982 success!--- 10:22:23
另外,执行的程序是在线状态,没有end状态,所以也没法统计程序总共执行的时间
帖子2865&积分7005&技术334 &捐助0 &注册时间&
代码贴出来看看
帖子7&积分19&技术0 &捐助0 &注册时间&
其实都没什么代码,执行的语句就是下面这种
Import.exe -h192.168.1.188 -ddb -p2010 -udba/dba -fe:/test -e-1 && e:/testlog.txt
这个exe程序会打印出来上面的子信息,后面的&&是我自己加的,不知道有没有办法重定向的时候加上打印的时间,或者不用bat,在windows命令行还有别的方法实现么
帖子2865&积分7005&技术334 &捐助0 &注册时间&
echo %date% %time% && e:/testlog.txt
Import.exe -h192.168.1.188 -ddb -p2010 -udba/dba -fe:/test -e-1 && e:/testlog.txt复制代码
帖子7&积分19&技术0 &捐助0 &注册时间&
& & 这样的不对啊,我要的是在每条子信息打印出时间,上面举出例子了,你这种的只会在开始打印一个日期和时间
帖子1769&积分8797&技术351 &捐助0 &注册时间&
for 里 执行呢
帖子2865&积分7005&技术334 &捐助0 &注册时间&
& & 你的整个BAT脚本就是那一条import命令,这个命令会输出很多行信息,是吗?
帖子7&积分19&技术0 &捐助0 &注册时间&
& & sorry,之前没上网
帖子7&积分19&技术0 &捐助0 &注册时间&
& & 对的,就是exe输出的信息
帖子2865&积分7005&技术334 &捐助0 &注册时间&
& & 这种情况只能修改exe的源代码了
帖子7&积分19&技术0 &捐助0 &注册时间&
& & 恩,那就没办法了.3Q
[通过 QQ、MSN 分享给朋友]

我要回帖

更多关于 vba 当前时间上个月 的文章

 

随机推荐