|
查看上一个主题 :: 查看下一个主题
|
| 作者 |
信息 |
srvk_2k2
新的用户
加入时间：2008年5月7日
帖子：36
地点：钦奈
|
|
|
|
你好
如何处理日期...
我的要求是从COBOL中的系统日期获取以前的日期
有什么可能和简单的方法？
提前致谢
萨拉瓦那 |
|
| 回到顶部 |
|
 |
the_gautam
活跃用户
已加入：2005年6月5日
职位：165
地点：班加罗尔
|
|
|
|
| 您在程序中使用DB2吗？ |
|
| 回到顶部 |
|
|
srvk_2k2
新的用户
加入时间：2008年5月7日
帖子：36
地点：钦奈
|
|
|
|
没有Yaar ..这是简单的COBOL程序
问候，
萨拉瓦娜S |
|
| 回到顶部 |
|
|
srvk_2k2
新的用户
加入时间：2008年5月7日
帖子：36
地点：钦奈
|
|
|
|
我已经尝试过使用功能'SUBTRACT-DURATION
'。但这不起作用，我认为它适用于其他版本的COBOL，我不确定。
问候，
萨拉瓦娜S |
|
| 回到顶部 |
|
|
the_gautam
活跃用户
已加入：2005年6月5日
职位：165
地点：班加罗尔
|
|
|
|
从系统接受日期后，将其存储在WORKING-STORAGE变量中。
那么，为什么不能简单地从日期部分中减去1来获得前一个日期呢？
当然，如果当前日期是月份/年份的第一天，则需要注意月份和年份的值。 |
|
| 回到顶部 |
|
|
srvk_2k2
新的用户
加入时间：2008年5月7日
帖子：36
地点：钦奈
|
|
|
|
感谢您的回复Gautam。还有其他方法/内置功能可以简单地获取上一个日期。如果是这样，那会有所帮助
问候，
萨拉瓦娜S |
|
| 回到顶部 |
|
|
the_gautam
活跃用户
已加入：2005年6月5日
职位：165
地点：班加罗尔
|
|
|
|
| 不确定。我使用了一个程序来计算日期差/日期验证，现在每当我需要此逻辑时，便会使用该程序。 |
|
| 回到顶部 |
|
|
srvk_2k2
新的用户
加入时间：2008年5月7日
帖子：36
地点：钦奈
|
|
|
|
你可以张贴吗？
问候，
萨拉瓦娜S |
|
| 回到顶部 |
|
|
the_gautam
活跃用户
已加入：2005年6月5日
职位：165
地点：班加罗尔
|
|
|
|
| 抱歉，我不应该发布公司资产。 |
|
| 回到顶部 |
|
|
dbzTHEdinosauer
全球主持人
已加入：2006年10月20日
帖子：6967
位置：瓷宝座
|
|
|
|
萨拉瓦那
几乎每家商店都有某种约会套路/服务。我会问你的同龄人/系统人员。 |
|
| 回到顶部 |
|
|
ashimer
活跃的成员
已加入：2004年2月13日
帖子：551
地点：班加罗尔
|
|
|
|
您好Saravana，
尝试这个 ...
| 码： |
01 YYYYMMDD图片9(8).
01 日期到整数 Pic S9(9).
移动功能当前日期(1:8) to YYYYMMDD
计算日期到整数=函数日期整数(YYYYMMDD)
Subtract 1 from 日期到整数
计算YYYYMMDD =函数整数(date-to-Integer)
|
这将为您提供数字格式的上一个日期...
试试这个..i还没有测试这个...让我们知道...
谢谢，
ashimer |
|
| 回到顶部 |
|
|
比尔·奥博伊尔
CICS 主持人
已加入：2008年1月14日
帖子：2504
地点：美国乔治亚州亚特兰大
|
|
|
|
您的COBOL版本/发行版是什么？
最小为COBOL / 370（在15年前发布）以支持FUNCTION，它是COBOL2的后继产品。
不管COBOL版本/发行版如何，FUNCTION SUBTRACT-DURATION都不是有效的COBOL FUNCTION。
当您说需要“上一个系统日期”时，需要从当前日期中减去多少时间？分钟，小时，天数等？我们都不确定。
要使用受支持的COBOL功能，请签出-
01）功能当前日期
02）日期功能整数
03）从日期整数调整结果
04）功能日期
但是，我赞同Dick关于标准化日期方法子系统的建议，您应该与其他同事交谈。
问候，
法案 |
|
| 回到顶部 |
|
|
srvk_2k2
新的用户
加入时间：2008年5月7日
帖子：36
地点：钦奈
|
|
|
|
是的ashimer。您的建议奏效了...非常感谢
问候，
萨拉瓦娜S |
|
| 回到顶部 |
|
|
srvk_2k2
新的用户
加入时间：2008年5月7日
帖子：36
地点：钦奈
|
|
|
|
终于奏效了。...感谢大家的答复
问候，
萨拉瓦娜S |
|
| 回到顶部 |
|
|
|
|
