讨论或者求助个算法

hktkzyz

求一个平均时间：
2018/8/10
2018/8/15
2018/8/15
2018/8/16
2018/8/19
2018/12/3
2019/1/9
2019/1/9
2019/2/15
2019/2/15
2019/2/15
2019/2/15
2019/2/15

举个简单例子，2017-1-1、2018-1-1、2019-1-1，平均时间就是2018-1-1。
那么上面那个如何求出？
请附上过程和结果。


补充内容 (2019-2-15 16:44):
各位大侠，麻烦出个结果，我现在出来两个结果，不知道差在哪里
结果一、2018-11-24（把每个时间弄成时间戳，加起来，求平均）
结果二、2018-12-2（手动，这个加一天，那个减一天，汗）

补充内容 (2019-2-15 16:44):
各位大侠，麻烦出个结果，我现在出来两个结果，不知道差在哪里
结果一、2018-11-24（把每个时间弄成时间戳，加起来，求平均）
结果二、2018-12-2（手动，这个加一天，那个减一天，汗）

npzs

hktkzyz 发表于 2019-2-15 16:41
大哥都用到汇编了啊，能出一下结果吗，我想验证一下我的对不对。

那个汇编实在是没啥可解释的，因为太简单了
首先你得明白易的日期时间，其本质就是个双精度小数，从年到秒都表示在这个双精度里，这与COM中时间格式是一样的；
既然是双精度小数，你想求平均值，全部加起来除以个数就是，太简单了吧；
本质就是这样，但是呢，易里面的 到时间、到数值 功能有限，仅仅能转换一些文本格式的时间和数值，试一下就知道他们根本不能把 日期时间 和 双精度小数 互相转换；
而这两句汇编就是干这个的，因为 日期时间 = 双精度小数，所以汇编里没有任何运算，只是把参数 1 读入 eax 然后用汇编返回子程序了（子程序返回的是 eax 这知道吧，不然更不能多说了）
当然了 双精度小数(日期时间) 实际是 8 个字节，所以我读和返回的是 edx:eax，这就不扩展说了。。
总之，子程序2 就是日期转双小数，子程序3就是双小数转日期

Y罢不能

最大时间  和最小时间的 平均时间吗？

Y罢不能

给你个笨办法



.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 a, 长整数型
.局部变量 b, 长整数型
.局部变量 c, 长整数型
.局部变量 f, 双精度小数型

' 2017-1-1、2018-1-1、2019-1-1
a ＝ 到长整数 (时间_到时间戳 (到时间 (“2017-1-1”), 真, ))
b ＝ 到长整数 (时间_到时间戳 (到时间 (“2018-1-1”), 真, ))
c ＝ 到长整数 (时间_到时间戳 (到时间 (“2019-1-1”), 真, ))
f ＝ (a ＋ b ＋ c) ÷ 3
调试输出 (到时间 (时间_时间戳转文本 (到文本 (取整 (f)))))

npzs

so easy

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
s	文本型		0
d	双精度小数型
a	双精度小数型
i
r	日期时间型

s ＝ 分割文本 ( #常量1, #换行符, )  ' #常量1 就是复制的你那些时间文本，具体你的数据源怎么来你随意，只要能转换成易时间即可，或者你可以直接用时间数组
计次循环首 (取数组成员数 (s), i)
d ＝ 子程序2 (到时间 (s [i]))
a ＝ a ＋ d
计次循环尾 ()
a ＝ a ÷ 取数组成员数 (s)
r ＝ 子程序3 (a)  ' 平均日期时间，不要时间部分自行去掉
调试输出 (r)

子程序名	返回值类型	公开	备 注
子程序2	双精度小数型
参数名	类 型	参考	可空	数组	备 注
d	日期时间型

置入代码 ({ 139, 69, 8, 139, 85, 12, 93, 194, 8, 0 })
返回 (0)

子程序名	返回值类型	公开	备 注
子程序3	日期时间型
参数名	类 型	参考	可空	数组	备 注
f	双精度小数型

置入代码 ({ 139, 69, 8, 139, 85, 12, 93, 194, 8, 0 })
返回 ([100年1月1日])

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 s, 文本型, , "0"<br /> .局部变量 d, 双精度小数型<br /> .局部变量 a, 双精度小数型<br /> .局部变量 i<br /> .局部变量 r, 日期时间型<br /> <br /> s ＝ 分割文本 (#常量1, #换行符, )  ' #常量1 就是复制的你那些时间文本，具体你的数据源怎么来你随意，只要能转换成易时间即可，或者你可以直接用时间数组<br /> .计次循环首 (取数组成员数 (s), i)<br />     d ＝ 子程序2 (到时间 (s <i>))<br />     a ＝ a ＋ d<br /> .计次循环尾 ()<br /> a ＝ a ÷ 取数组成员数 (s)<br /> r ＝ 子程序3 (a)  ' 平均日期时间，不要时间部分自行去掉<br /> 调试输出 (r)<br /> <br /> .子程序 子程序2, 双精度小数型<br /> .参数 d, 日期时间型<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 85, 12, 93, 194, 8, 0 })<br /> 返回 (0)<br /> <br /> .子程序 子程序3, 日期时间型<br /> .参数 f, 双精度小数型<br /> <br /> 置入代码 ({ 139, 69, 8, 139, 85, 12, 93, 194, 8, 0 })<br /> 返回 ([100年1月1日])

hktkzyz

shier2817 发表于 2019-2-15 16:19
so easy

[e=0].版本 2

大哥都用到汇编了啊，能出一下结果吗，我想验证一下我的对不对。

hktkzyz

Y罢不能 发表于 2019-2-15 15:04
给你个笨办法

老兄，出个结果

hktkzyz

Y罢不能 发表于 2019-2-15 15:04
给你个笨办法

你试试，结果是不是2018-11-24？
但我用笨方法加一天，简一天的出来时2018-12-2

Y罢不能

取月份 四舍五入  

Y罢不能

hktkzyz 发表于 2019-2-15 16:41
老兄，出个结果

我的结果是队的呀。

0001.e (99.56 KB, 下载次数: 0)

2019-2-15 17:09 上传

点击文件名下载附件