如何獲得正在進行中的月份日期4gl

9

/* the last day of this month is one day less than the first day of next month 
* 
* so add one month to the first day of this month and then subtract one day. 
* 
*/ 

function lastDay returns date (input d as date): 

    return add-interval(date(month(d), 1, year(d)), 1, "month") - 1. 

end.

來源

2012-06-19 07:39:36

+1

add-interval（）需要版本10或更高版本。 –

0

PROCEDURE getEndOfMonth: 
    DEFINE INPUT PARAMETER lv-date AS DATE. 
    DEFINE OUTPUT PARAMETER lv-monthEnd AS DATE. 

    lv-monthEnd = DATE(MONTH(lv-date), 31, YEAR(lv-date)) NO-ERROR. 
    IF lv-monthEnd = ? THEN DO: 
     lv-monthEnd = DATE(MONTH(lv-date), 30, YEAR(lv-date)) NO-ERROR.    
     IF lv-monthEnd = ? THEN DO: 
      lv-monthEnd = DATE(MONTH(lv-date), 29, YEAR(lv-date)) NO-ERROR.    
      IF lv-monthEnd = ? THEN 
       lv-monthEnd = DATE(MONTH(lv-date), 28, YEAR(lv-date)) NO-ERROR. 
     END. 
    END. 
END.

來源

2012-06-19 04:29:50

0

如果你沒有你的平臺上「間隔」 - 這會做的一樣好：

DEFINE VARIABLE start-date  AS DATE   NO-UNDO. 
DEFINE VARIABLE end-of-month AS DATE   NO-UNDO. 

ASSIGN 
    start-date = DATE(2, 15, 2012) 
    . 

ASSIGN 
    end-of-month = DATE(MONTH(start-date), 20, YEAR(start-date)) + 15 
    end-of-month = end-of-month - DAY(end-of-month) 
    .

來源

2012-06-19 13:23:21

+0

如果您的開始日期是2012年3月15日，則此操作將失敗。 –

+0

沒有更多。 :) –

1

DEF VAR dt-ref   AS DATE  NO-UNDO. 

DEF VAR dt-end-of-month AS DATE  NO-UNDO. 

ASSIGN dt-ref = DATE(2,12,2012) 

    . 

ASSIGN dt-ref   = dt-ref + 33 

     dt-end-of-month = DATE(MONTH(dt-ref),1,YEAR(dt-ref)) - 1.

來源

2012-08-09 14:15:16 Wander

0

一個簡單的一個，走在最後一天可能如果它失敗了，最後一天是前一天：

def var i as int. 

def var v_eom as date. 


Do i = 27 to 31: 

    v_eom = date(month(today), i, year(today)) no-error. 

    If error-status:error then do: 

     v_eom = date(month(today), (i - 1), year(today)) no-error. 

     leave. 

    End. 

End.

來源

2013-08-30 13:59:13 Carlos

0

DEFINE VAR date1 AS DATE INIT 12/12/2015。

DEFINE VAR datelast AS INT。

DEFINE VAR mont AS int。

mont  = (MONTH (date1) + 1). 

IF mont > 12 THEN 
DO: 
    datelast = 31. 
END. 
ELSE 
DO: 
    datelast = (DATE(STRING (1) + "/" + (STRING(mont)) + "/" + STRING(YEAR(date1))) - DATE(STRING((1)) + "/" + STRING(month(date1)) + "/" + STRING(YEAR(date1)))). 
END. 

MESSAGE datelast VIEW-AS ALERT-BOX INFO BUTTONS OK.

來源

2014-04-22 09:49:55

0

最簡單的方法是使用ADD-INTERVAL函數。

ldEndDate = ADD-INTERVAL(ldBeginDate, 1, "months") - 1.

來源

2014-07-01 07:44:31 user3790173

0

定義變量給出的最新AS DATE NO-UNDO。

PROMPT-FOR給定日期。（add-interval（date（month（INPUT given-date），1，year（INPUT given-date）），1，「month」） - 1）標籤「Lastdate」。

來源

2017-04-24 07:34:54 Purushottam

2

DEF VAR d-Dataa AS DATE NO-UNDO FORMAT "99/99/9999". 

DEF VAR c-Datai AS CHAR NO-UNDO. 

DEF VAR d-Datai AS DATE NO-UNDO FORMAT "99/99/9999". 

DEF VAR c-Dataf AS CHAR NO-UNDO. 

DEF VAR d-Dataf AS DATE NO-UNDO FORMAT "99/99/9999". 

d-Dataa=TODAY. 

c-Datai=("01/" + STRING(MONTH(d-Dataa),"99/") + STRING(YEAR(d-Dataa),"9999")). 

d-Datai=DATE(c-Datai). 

IF MONTH(d-Dataa) = 12 THEN 
c-Dataf="01/01/" + STRING(YEAR(d-Dataa) + 1,"9999").  

ELSE 

c-Dataf=STRING(DAY(d-Datai),"99/") + STRING(MONTH(d-Dataa)+ 1,"99/") + STRING(YEAR(d-Dataa),"9999"). 

d-Dataf=DATE(c-Dataf) - 1. 

MESSAGE 

"Dia Atual: " STRING(d-Dataa, "99/99/9999") SKIP 
"Primeiro dia do Mês: " c-Datai SKIP 
"Ultimo dia do Mês: " STRING(d-Dataf, "99/99/9999") SKIP 

VIEW-AS ALERT-BOX

來源

2017-08-09 14:38:18 user8440517

如何獲得正在進行中的月份日期4gl

回答

相關問題