ElapsedbyIno ( StartDate ; EndDate ; Type )

For rest of us ISO: D M Y or ANSI: Y M D

Average rating: 4.2 (36 votes) Log in to vote

Aleksandar RubeÅ¡a - Show more from this author
Q.com doo
http://q-com.hr

Sample input:

ElapsedbyIno ( 1/1/2000 ; 15/7/2004 ; 1 )

Sample output:

4 Years 6 Months 13 Days

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/* Calculating Elapsed Time Between Two Dates Broken Into Year, Month, And Day
for rest of us iso D M Y or ansi Y M D original by Lee Smith, Smith and Associates, 
recreated by Ino Aleksandar Rubesa, Q.com doo, Zagreb Croatia (Hrvatska) 
ElapsedbyIno ( StartDate ; EndDate ; Type )
*/

Let([

Tp = Case(Type="ISO";0;1);

M = Case(

Month(StartDate) = "1" or "3" or "5" or "7" or "8" or "10" or "12"; "31"; 
Month(StartDate) = "2" ; "28" ;  "30");
NofDays = EndDate - StartDate;

d1 = Int( NofDays / 365,25 ) & " Years " ;
dm = If((Round( Mod( NofDays ; 30,4375 ) ; 0 )) <= M and ((Int(NofDays / 30,4375))) < "1" ; "0" ; ((Int(NofDays / 30,4375) - (12 * (Int( NofDays / 365,25 ))))))
 & " Months " ;
d2 = (Round( Mod( NofDays ; 30,4375 ) ; 0 )) & " Days "
];
Case( Tp = 1; d1 & dm & d2; d2 & dm & d1))

For rest of us I little beet recreated Lee Smiths function: Elapsed ( ISO D M Y or ANSI Y M D with changeable Date Names for Y M D )in 6 languages
(sixth - 6th can be changeable).

Input:
StartDate = Date
EndDate = Date
Type: ANSI (Default) or ISO
Output: Text

Recreated by Ino

P.S. Semple file : FMForums » Main Index » Forum Index » Advanced Features & Functions » Custom Functions »
ElapsedbyIno

http://www.fmforums.com/forum/showtopic.php?tid/171907

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

ElapsedbyIno ( StartDate ; EndDate ; Type )

Comments

Support this website.

Support this website.