想写个日期的tll，结果到处碰壁~~~

xiaoling2013

//求大神指教

变量 日期串,长度,日期变量
功能 按钮0_点击()
    昨天("2015-1-31")
结束
功能 昨天(今天日期,格式="2015-12-12",返回昨日日期="假")
    字符串分割(今天日期,"-",日期串)
    如果(数组大小(日期串)!=3)
        消息框("日期格式错误","格式:2015-12-12")
        返回 0
    结束
    选择(日期串[1])
        条件 1
        如果(日期串[2]==1)
            日期串[0]=日期串[0]-1
            日期串[1]=12
            日期串[2]=31
            消息框(日期串[1])
            返回 日期串[0]&"-"&日期串[1]&"-"&日期串[2]
        否则
            返回 日期串[0]&"-"&日期串[1]&"-"&日期串[2]-1
        结束
    结束
结束

言术

xiaoling2013 发表于 2015-12-17 15:40
结果还是一样

你把想要的功能描述一下，比如功能 昨天()  传入什么参数，返回什么参数。

言术

1. 变量 日期串=数组(),大小,日期变量
   
2. 功能 按钮0_点击()
   
3.     昨天("2015-1-31")
   
4. 结束
   
5. 
   
6. 功能 昨天(今天日期,格式="2015-12-12",返回昨日日期="假")
   
7.     大小=字符串分割(今天日期,"-",日期串)
   
8.     如果(大小!=3)
   
9.         消息框("日期格式错误","格式:2015-12-12")
   
10.         返回 0
    
11.     结束
    
12.     选择(日期串[1])//1
    
13.         条件 1
    
14.         如果(日期串[2]==1)//日期串[2]=31
    
15.             日期串[0]=日期串[0]-1//2014
    
16.             日期串[1]=12
    
17.             日期串[2]=31
    
18.             消息框(日期串[1])//12
    
19.             返回 日期串[0]&"-"&日期串[1]&"-"&日期串[2]
    
20.         否则
    
21.             返回 日期串[0]&"-"&日期串[1]&"-"&日期串[2]-1
    
22.         结束
    
23.     结束
    
24. 结束

复制代码

xiaoling2013

言术 发表于 2015-12-17 15:21

结果还是一样

言术

加个括号试试

xiaoling2013

言术 发表于 2015-12-17 15:46
你把想要的功能描述一下，比如功能 昨天()  传入什么参数，返回什么参数。 ...

算出昨天的日期，昨天（2008-3-1）返回昨天的日期2008-2-29

xiaoling2013

言术 发表于 2015-12-17 15:53
加个括号试试

晚上回家试试，谢谢了。