如何在下面代码中加上 年 月 ，  谢谢！
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) & " 秒 "

嗯 对的，对不起 没有描述清楚。

就是计算出text1里面的年月日时分秒 距今是多少年月日时分秒  现在的效果是这样的，我想改成 年月日时分秒

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

不需要计算天数，就想知道年和月！谢谢！