如意134 发表于 2020-6-20 11:01:03

取日期前五天,增减时间咋写。。

本帖最后由 如意134 于 2020-6-21 13:35 编辑

取现在日期例如20200620,减去五天,取出前五天为20200615。
我想取现日期的前五天日期 。用到时间操作的增减时间。
提示类型转换错误,求例子不会弄了。。


函数:增减时间(时间 为 日期时间型,被增减部分 为 整数型,增加值 为 整数型)为 日期时间型
分类:核心类库---时间操作
注释:返回一个时间,这一时间被加上或减去了一段间隔。
参数二 被增减部分 指定增加或减少时间的哪一部分 1、年份 2、月份 3、日 4、星期 5、小时 6、分钟 7、秒
参数三 增加值 要增减的时间值,正数为增加,负数为减少。



toorup 发表于 2020-6-20 11:01:04

还没弄好?

我写给你吧:


事件 主窗口.创建完毕()
       
        变量 文本1 为 文本型
        文本1=时间到文本(增减时间(取现行时间(),3,-5))
        标签2.标题=日期取数(文本1)
       
结束 事件

函数日期取数(文本日期 为 文本型) 为 文本型
        变量 txtN 为 文本型
        变量 txtY 为 文本型
        变量 txtR 为 文本型
        txtN=分割文本(分割文本(文本日期,"GMT")(0),"年")(0)
        txtY=分割文本(分割文本(分割文本(文本日期,"GMT")(0),"年")(1),"月")(0)
        如果 取文本长度(txtY)<2 则
                txtY= "0" & txtY
        结束 如果       
        txtR=分割文本(分割文本(分割文本(分割文本(文本日期,"GMT")(0),"年")(1),"月")(1),"日")(0)
                如果 取文本长度(txtR)<2 则
                txtR= "0" & txtY
        结束 如果
        日期取数=txtN & txtY & txtR
结束 函数

绝版ren物 发表于 2020-6-20 11:18:00

先把日期转为数字,再减5

yudave 发表于 2020-6-20 12:00:42

就来看看了

唯独♂奇光 发表于 2020-6-20 14:31:32

本帖最后由 唯独♂奇光 于 2020-6-20 14:33 编辑

增减时间(取现行时间(),3,-5)-5就是减去

如意134 发表于 2020-6-20 15:41:58

我也是这样写,测试时 标签5 =增减时间(取现行时间(),3,-5)   提示无法执行从 日期时间型 到 文本型 的类型转换

如意134 发表于 2020-6-20 15:42:47

唯独♂奇光 发表于 2020-6-20 14:31
增减时间(取现行时间(),3,-5)-5就是减去


我也是这样写,测试时 标签5 =增减时间(取现行时间(),3,-5)   提示无法执行从 日期时间型 到 文本型 的类型转换

toorup 发表于 2020-6-20 20:37:07

你标签5后面掉了个.标题,这样错误就不是时间到文本,时间到对象了!

你写成标签5.标题=时间到文本(增减时间(取现行时间(),3,-5))
试试看

如意134 发表于 2020-6-20 21:09:24

toorup 发表于 2020-6-20 20:37
你标签5后面掉了个.标题,这样错误就不是时间到文本,时间到对象了!

你写成标签5.标题=时间到文本(增减 ...

E4A里我有标题,不行,因为增减时间不是文本,是日期时间型,还是提示转换错误错误,这里是忘加了,你也很细心

toorup 发表于 2020-6-20 21:23:38

你像我下面写的那句那样,加个时间到文本!

没看完哦!
页: [1] 2
查看完整版本: 取日期前五天,增减时间咋写。。