Perl获取前后任意月份月末

最新推荐文章于 2019-07-03 15:36:08 发布

weixin_30706691

最新推荐文章于 2019-07-03 15:36:08 发布

阅读量741

点赞数

原文链接：http://www.cnblogs.com/liang3p/p/4819681.html

版权

在BI报表开发中，为了计算同比环比，往往需要获取月末日期。由于某些数据库系统的日期函数限制，例如Teradata的Addmonths函数，可能无法满足需求。本文介绍了如何在Perl中实现获取前后任意月份的月末日期，适用于构建“最近六个月统计数据”、“环比变化”、“同比变化”等报表场景。

摘要由CSDN通过智能技术生成

在BI报表开发时，经常需要计算同比环比，需要用到月末日期，用数据库系统的日期函数操作需要在每处用到日期的地方都把函数写一遍，在某些特殊情形，函数会很复杂，甚至不能实现想要的结果。

比如在Teradata中的Addmonths函数，只计算了月份：

如表格所示，遇到月末的时候，不能统计整月的信息，常常不是想要的结果。

因此有必要在作业中加入变量，实现每月取月末的数据。

perl实现如下，简单测试，生产环境上线前请使用sprintf格式化一下。

#!/usr/bin/perl
# 获取任意月份月末日期
# Liangwl
# 2015/9/18

sub Add_Delta_Month
{
    my ($date,$cnt) = @_;
    my $year = int($date/10000);

关注