易语言MASM置入代码实现星期转换 星期日:1，一:2 转换为 星期日:7，一:1 (返回字节型)

EAX

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 _临时子程序
    
12. 
    
13. 输出调试文本 (取星期几B (取现行时间 ()))
    
14. 
    
15. 
    
16. .子程序 取星期几B, 字节型, 公开, 返回一个值为 1 到 7 之间的整数，表示一个星期中的某一日。星期日为 7，星期一为 1，依此类推。
    
17. .参数 时间, 日期时间型
    
18. 
    
19. 返回 (星期转换 (取星期几 (时间)))
    
20. 
    
21. .子程序 星期转换, 字节型, , 星期日为1(转换为7)，星期一为2(转换为1)，失败返回0
    
22. .参数 星期, 字节型, , 范围:1~7
    
23. 
    
24. 置入代码 ({ 138, 69, 8, 60, 7, 119, 4, 60, 1, 115, 4, 50, 192, 235, 10, 60, 1, 117, 4, 176, 7, 235, 2, 254, 200, 15, 182, 192, 201, 194, 4, 0 })
    
25. ' mov al,[ebp+8]
    
26. ' .if al > 7 || al < 1
    
27. ' xor al,al
    
28. ' .elseif al == 1
    
29. ' mov al,7
    
30. ' .else
    
31. ' dec al
    
32. ' .endif
    
33. ' movzx eax,al
    
34. ' leave
    
35. ' retn 4
    
36. 返回 (0)
    

复制代码