标签： 时间

[控件]unigui移动端下Unidatepicker时间显示解决方案

• Delphi • 暂无评论 • •3,503 次查阅

用unigui搞移动端，需求上需要采用日期，但是默认是不支持时间选择的，怎么办？ 只能改造了@~@。 1.下载以下JS文件放到程序files目录下。 https://raw.githubusercontent.com/tomalex0/senchatouch-datetimepickerv2/master/ux/DateTime.js https://raw.githubusercontent.com/tomalex0/senchatouch-datetimepickerv2/master/ux

获取指定时间的间隔-补充

• 宏代码 • 9 条评论 • •9,318 次查阅

昨天晚上写了个利用DATEDIFF函数计算间隔天数的宏。 今天发现有一点太不方便了，为了一时的计算方便，将指定日期直接固化在宏代码上了，这样一想要想重新计算别的日期还得改代码。 不方便！ 本想写点日记的，没思路。那就继续写点补充代码吧。 这次补充完全实现个性化定义。 上2个代码。   Sub 获取指定时间间隔1()    ' 获取指定时间间隔 Macro    ' 宏由 Kael.

获取指定时间的间隔

• 宏代码 • 3 条评论 • •5,329 次查阅

在很早的时间写过关于今天是今年的第几天一篇文章。 利用的是函数公式=TEXT(TODAY()-DATE(YEAR(NOW()),MONTH(1),DAY(1))+1,"0") 今天在看VBA，看到一个函数DATEDIFF，就是计算两个时间的差的。 比如今天与2011-1-1差距多少天。 所以就顺手了写了个宏。 上代码：   Sub 获取指定时间间隔()    ‘ 获取指定时间间隔 Macro  

VBA记录工作表插入时间

• VBA • 4 条评论 • •5,608 次查阅

平时大家在处理各种账目表时，时不时要插入一张张工作表，今天思路一开，如果能记录每张工作表的插入时间，那就相当于给每张表建立一个出生档案。 代码如下：   Private Sub Workbook_NewSheet(ByVal Sh As Object)    Dim R As Long    R = Range("A65536"