|
- .版本 2
- .支持库 spec
- .程序集 程序集1
- .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
- _临时子程序 () ' 在初始化代码执行完毕后调用测试代码
- 返回 (0) ' 可以根据您的需要返回任意数值
- .子程序 _临时子程序
- .局部变量 A, 日期时间型, , "0"
- .局部变量 B, 双精度小数型, , "0"
- A = { [2000年1月1日], [2038年1月19日], [2222年2月22日2时22分22秒], [2019年1月1日], [1933年10月18日16时17分37秒] }
- 日期时间型数组到双精度小数型数组 (A, B)
- 调试输出 (A, B)
- B = { 12345.6789, 3.1415926, 0, 123, 22222.2222 }
- 双精度小数型数组到日期时间型数组 (B, A)
- 调试输出 (A, B)
- .子程序 日期时间型数组到双精度小数型数组, , 公开
- .参数 日期时间型数组, 日期时间型, 数组
- .参数 双精度小数型数组, 双精度小数型, 参考 数组, 结果输出,必须为数组变量
- 重定义数组 (双精度小数型数组, 真, 取数组成员数 (日期时间型数组))
- 置入代码 ({ 96, 139, 69, 8, 139, 0, 139, 93, 12, 139, 27, 139, 115, 4, 131, 192, 8, 131, 195, 8, 51, 255, 235, 15, 139, 12, 248, 137, 12, 251, 139, 76, 248, 4, 137, 76, 251, 4, 71, 59, 254, 114, 237, 97 })
- ' pusha
- ' mov eax,[ebp+8]
- ' mov eax,[eax]
- ' mov ebx,[ebp+12]
- ' mov ebx,[ebx]
- ' mov esi,[ebx+4]
- ' add eax,8
- ' add ebx,8
- ' xor edi,edi
- ' .while edi < esi
- ' mov ecx,[eax+edi*8]
- ' mov [ebx+edi*8],ecx
- ' mov ecx,[eax+edi*8+4]
- ' mov [ebx+edi*8+4],ecx
- ' inc edi
- ' .endw
- ' popa
- .子程序 双精度小数型数组到日期时间型数组, , 公开
- .参数 双精度小数型数组, 双精度小数型, 数组
- .参数 日期时间型数组, 日期时间型, 参考 数组, 结果输出,必须为数组变量
- 重定义数组 (日期时间型数组, 真, 取数组成员数 (双精度小数型数组))
- 置入代码 ({ 96, 139, 69, 8, 139, 0, 139, 93, 12, 139, 27, 139, 115, 4, 131, 192, 8, 131, 195, 8, 51, 255, 235, 15, 139, 12, 248, 137, 12, 251, 139, 76, 248, 4, 137, 76, 251, 4, 71, 59, 254, 114, 237, 97 })
- ' pusha
- ' mov eax,[ebp+8]
- ' mov eax,[eax]
- ' mov ebx,[ebp+12]
- ' mov ebx,[ebx]
- ' mov esi,[ebx+4]
- ' add eax,8
- ' add ebx,8
- ' xor edi,edi
- ' .while edi < esi
- ' mov ecx,[eax+edi*8]
- ' mov [ebx+edi*8],ecx
- ' mov ecx,[eax+edi*8+4]
- ' mov [ebx+edi*8+4],ecx
- ' inc edi
- ' .endw
- ' popa
复制代码 |
|