# difference between two dates **URL:** \ **Category:** Forum\ **Tags:** Adabas-Natural, Natural, Natural-on-Mainframes\ **Created:** [July 26, 2017, 11:56am UTC](https://techcommunity.softwareag.com/t/difference-between-two-dates/195770 "2017-07-26T11:56:58Z")\ **Posts on this page:** 5\ **Page:** 1
**Author:** ![Murthy\_P](https://avatars.discourse-cdn.com/v4/letter/m/7bcc69/32.png) [@Murthy\_P](https://techcommunity.softwareag.com/u/Murthy_P)\ **Post date:** [July 26, 2017, 11:56am UTC](https://techcommunity.softwareag.com/t/difference-between-two-dates/195770/1 "2017-07-26T11:56:58Z")
Hi, There is one DB date field DB-DATE (A 8 ) : YYYYMMDD. I need to get the #days i.e. difference between \*Current date - DB-DATE. Could you please provide sample code in Natural (Mainframe). Thanks & Regards MP ---
**Author:** ![Steve\_Robinson](https://sea1.discourse-cdn.com/techcommunity/user_avatar/techcommunity.softwareag.com/steve_robinson/32/107_2.png) [@Steve\_Robinson](https://techcommunity.softwareag.com/u/Steve_Robinson)\ **Post date:** [July 26, 2017, 12:31pm UTC](https://techcommunity.softwareag.com/t/difference-between-two-dates/195770/2 "2017-07-26T12:31:12Z")
DEFINE DATA LOCAL 1 #DB-DATE (A8) INIT \<‘20160214’\> 1 #DB-DATEX (D) 1 #DAYS (P6) END-DEFINE \* MOVE EDITED #DB-DATE TO #DB-DATEX (EM=YYYYMMDD) \* COMPUTE #DAYS = \*DATX - #DB-DATEX WRITE 5T ‘DAYS BETWEEN’ #DB-DATE ‘AND TODAY:’ #DAYS END Page 1 17-07-26 06:29:05 ``` DAYS BETWEEN 20160214 AND TODAY: 528 ``` ---
**Author:** ![system](https://global.discourse-cdn.com/techcommunity/original/3X/c/d/cd19967bb605d28a72d77eb83a1cae22f3df2eb8.svg) [@system](https://techcommunity.softwareag.com/u/system)\ **Post date:** [July 26, 2017, 12:36pm UTC](https://techcommunity.softwareag.com/t/difference-between-two-dates/195770/3 "2017-07-26T12:36:33Z")
```auto DEFINE DATA LOCAL 1 #DA (A8) INIT<'20170701'> 1 #D (D) 1 #DD (I4) END-DEFINE * #D := VAL(#DA) #DD := *DATX - #D * WRITE *DATX #D #DD * END ``` ---
**Author:** ![Murthy\_P](https://avatars.discourse-cdn.com/v4/letter/m/7bcc69/32.png) [@Murthy\_P](https://techcommunity.softwareag.com/u/Murthy_P)\ **Post date:** [July 26, 2017, 12:56pm UTC](https://techcommunity.softwareag.com/t/difference-between-two-dates/195770/4 "2017-07-26T12:56:21Z")
Hi Gurus(both Wolfgang & Steve) Thank you very much for your immediate response. Regards MP ---
**Author:** ![system](https://global.discourse-cdn.com/techcommunity/original/3X/c/d/cd19967bb605d28a72d77eb83a1cae22f3df2eb8.svg) [@system](https://techcommunity.softwareag.com/u/system)\ **Post date:** [April 2, 2021, 3:39pm UTC](https://techcommunity.softwareag.com/t/difference-between-two-dates/195770/5 "2021-04-02T15:39:00Z")