| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1841 人关注过本帖
标题:请帮忙改一下代码!
只看楼主 加入收藏
事业男儿
Rank: 2
等 级:论坛游民
帖 子:317
专家分:14
注 册:2007-4-25
结帖率:82.19%
收藏
已结贴  问题点数:20 回复次数:8 
请帮忙改一下代码!
如何在下面代码中加上 年 月 ,  谢谢!
Dates = Text1.Text
Cls
Text12.Text = Now
s = DateDiff("s", Now, Dates)
D = ((s \ 60) \ 60) \ 24 '天
h = ((s - 86400 * D) \ 60) \ 60 '时
n = ((s - 86400 * D - 3600 * h) \ 60) '分
X = s - 86400 * D - 3600 * h - 60 * n '秒
Label1.Caption = "已过去:" & Abs(D) & " 天 " & Abs(h) & " 时 " & Abs(n) & " 分 " & Abs(X) & " 秒 "
搜索更多相关主题的帖子: 如何 
2016-01-12 11:05
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:7 
描述清楚点,楼主是不是想算出今天距离text1的时间有多少年、月、日、时、分、秒?用datediff函数。

能编个毛线衣吗?
2016-01-12 11:10
事业男儿
Rank: 2
等 级:论坛游民
帖 子:317
专家分:14
注 册:2007-4-25
收藏
得分:0 
回复 2楼 wmf2014
嗯 对的,对不起 没有描述清楚。
2016-01-12 11:30
li702171562
Rank: 1
等 级:新手上路
帖 子:3
专家分:7
注 册:2016-1-12
收藏
得分:7 
看不懂
2016-01-12 14:27
事业男儿
Rank: 2
等 级:论坛游民
帖 子:317
专家分:14
注 册:2007-4-25
收藏
得分:0 
回复 4楼 li702171562
就是计算出text1里面的年月日时分秒 距今是多少年月日时分秒  现在的效果是这样的,我想改成 年月日时分秒
图片附件: 游客没有浏览图片的权限,请 登录注册


[此贴子已经被作者于2016-1-12 14:58编辑过]

2016-01-12 14:56
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:0 
要精确知道天数,必须考虑闰月。

能编个毛线衣吗?
2016-01-12 15:18
事业男儿
Rank: 2
等 级:论坛游民
帖 子:317
专家分:14
注 册:2007-4-25
收藏
得分:0 
回复 6楼 wmf2014
不需要计算天数,就想知道年和月!谢谢!
2016-01-12 19:51
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:0 
s = DateDiff("d", Now, Dates)  //获取总天数
yy=int(s/365)  //年数
mm=(s mod 365)/31  //获取月份数,按每月31天计

能编个毛线衣吗?
2016-01-12 19:57
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:7 
我看了一下,应该是 wmf2014 的算法。

因为你 当前的日期,本身就是一个不确定的数。

如 2015-12-2 到 2016-1-30 ,按一个月算。还是按2个月算,跨了二个月。
再如: 2015-1-2 到 2015-3-3 ,怎么算,这个月,怎么算,
每月天数不固定,没办法确定。

不过,银行业是按天分摊时, 按每月30天,每年 360 天计算。
--------------------------------
DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。例如,可以使用 DateDiff 来计算两个日期之间相隔几日,或计算从今天起到年底还有多少个星期。

为了计算 date1 与 date2 相差的日数,可以使用“一年的日数”(y) 或“日”(d)。当 interval 是“一周的日数”(w) 时,DateDiff 返回两日期间的周数。如果 date1 是星期一,DateDiff 计算到 date2 为止的星期一的个数。这个数包含 date2 但不包含 date1。不过,如果 interval 是“周”(ww),则 DateDiff 函数返回两日期间的“日历周”数。由计算 date1 与 date2 之间星期日的个数而得。如果 date2 刚好是星期日,则 date2 也会被加进 DateDiff 的计数结果中;但不论 date1 是否为星期日,都不将它算进去。

如果 date1 比 date2 来得晚,则 DateDiff 函数的返回值为负数。

firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。

如果 date1 或 date2 是日期文字,则指定的年份成为该日期的固定部分。但是,如果 date1 或 date2 用双引号 (" ") 括起来,且年份略而不提,则在每次计算表达式 date1 或 date2 时,当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。

在计算 12 月 31 日和来年的 1 月 1 日的年份差时,DateDiff 返回 1 表示相差一个年份,虽然实际上只相差一天而已。



授人于鱼,不如授人于渔
早已停用QQ了
2016-01-12 21:07
快速回复:请帮忙改一下代码!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030213 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved