-- Implement various "age of" and other date-related templates.localmtext={-- Message and other text that should be localized.['mt-bad-param1']='Invalid parameter $1',['mt-bad-param2']='Parameter $1=$2 is invalid',['mt-bad-show']='Parameter show=$1 is not supported here',['mt-cannot-add']='Cannot add "$1"',['mt-conflicting-show']='Parameter show=$1 conflicts with round=$2',['mt-date-wrong-order']='The second date must be later in time than the first date',['mt-dd-future']='Death date (first date) must not be in the future',['mt-dd-wrong-order']='Death date (first date) must be later in time than the birth date (second date)',['mt-invalid-bd-age']='Invalid birth date for calculating age',['mt-invalid-dates-age']='Invalid dates for calculating age',['mt-invalid-end']='Invalid end date in second parameter',['mt-invalid-start']='Invalid start date in first parameter',['mt-need-jdn']='Need valid Julian date number',['mt-need-valid-bd']='Need valid birth date: year, month, day',['mt-need-valid-bd2']='Need valid birth date (second date): year, month, day',['mt-need-valid-date']='Need valid date',['mt-need-valid-dd']='Need valid death date (first date): year, month, day',['mt-need-valid-ymd']='Need valid year, month, day',['mt-need-valid-ymd-current']='Need valid year|month|day or "currentdate"',['mt-need-valid-ymd2']='Second date should be year, month, day',['mt-template-bad-name']='The specified template name is not valid',['mt-template-x']='The template invoking this must have "|template=x" where x is the wanted operation',['txt-age']='(edad ',['txt-aged']=' (edad ',['txt-and']=' at ',['txt-comma-and']=', at ',['txt-error']='Error: ',['txt-or']=' o ',}localtranslate,from_en,to_en,isZeroiftranslatethen-- Functions to translate from en to local language and reverse go here.-- See example at [[:bn:Module:বয়স]].elsefrom_en=function(text)returntextendisZero=function(text)returntonumber(text)==0endendlocal_Date,_currentDatelocalfunctiongetExports(frame)-- Return objects exported from the date module or its sandbox.ifnot_Datethenlocalsandbox=frame:getTitle():find('sandbox',1,true)and'/sandbox'or''localdatemod=require('Module:Date'..sandbox)localrealDate=datemod._Date_currentDate=datemod._currentifto_enthen_Date=function(...)localargs={}fori,vinipairs({...})doargs[i]=to_en(v)endreturnrealDate(unpack(args))endelse_Date=realDateendendreturn_Date,_currentDateendlocalCollection-- a table to hold itemsCollection={add=function(self,item)ifitem~=nilthenself.n=self.n+1self[self.n]=itemendend,join=function(self,sep)returntable.concat(self,sep)end,remove=function(self,pos)ifself.n>0and(pos==nilor(0<posandpos<=self.n))thenself.n=self.n-1returntable.remove(self,pos)endend,sort=function(self,comp)table.sort(self,comp)end,new=function()returnsetmetatable({n=0},Collection)end}Collection.__index=CollectionlocalfunctionstripToNil(text)-- If text is a string, return its trimmed content, or nil if empty.-- Otherwise return text (which may, for example, be nil).iftype(text)=='string'thentext=text:match('(%S.-)%s*$')endreturntextendlocalfunctionyes(parameter)-- Return true if parameter should be interpreted as "yes".-- Do not want to accept mixed upper/lowercase unless done by current templates.-- Need to accept "on" because "round=on" is wanted.return({y=true,yes=true,on=true})[parameter]endlocalfunctionmessage(msg,id)-- Return formatted message text for an error or warning.localfunctiongetText(msg)returnmtext[msg]orerror('Bug: message "'..tostring(msg)..'" not defined')endlocaltextiftype(msg)=='table'thentext=getText(msg[1])localrep={}fori,vinipairs(msg)doifi>1thenrep['$'..(i-1)]=vendendtext=text:gsub('$%d+',rep)elsetext=getText(msg)endlocalcategories={error='[[Category:Age error]]',warning='[[Category:Age error]]',-- same as error until determine whether 'Age warning' would be worthwhile}locala,b,categoryifid=='warning'thena='<sup>[<i>'b='</i>]</sup>'elsea='<strong class="error">'..getText('txt-error')b='</strong>'endifmw.title.getCurrentTitle():inNamespaces(0)then-- Category only in namespaces: 0=article.category=categories[idor'error']endreturna..mw.text.nowiki(text)..b..(categoryor'')endlocalfunctionformatNumber(number)-- Return the given number formatted with commas as group separators,-- given that the number is an integer.localnumstr=tostring(number)locallength=#numstrlocalplaces=Collection.new()localpos=0repeatplaces:add(pos)pos=pos+3untilpos>=lengthplaces:add(length)localgroups=Collection.new()fori=places.n,2,-1dolocalp1=length-places[i]+1localp2=length-places[i-1]groups:add(numstr:sub(p1,p2))endreturngroups:join(',')endlocalfunctionspellNumber(number,options,i)-- Return result of spelling number, or-- return number (as a string) if cannot spell it.-- i == 1 for the first number which can optionally start with an uppercase letter.number=tostring(number)returnrequire('Module:ConvertNumeric').spell_number(number,nil,-- fraction numeratornil,-- fraction denominatori==1andoptions.upper,-- true: 'One' instead of 'one'notoptions.us,-- true: use 'and' between tens/ones etcoptions.adj,-- true: hyphenatedoptions.ordinal-- true: 'first' instead of 'one')ornumberendlocalfunctionmakeExtra(args,flagCurrent)-- Return extra text that will be inserted before the visible result-- but after any sort key.localextra=args.prefixor''ifmw.ustring.len(extra)>1then-- Parameter "~" gives "~3" whereas "over" gives "over 3".ifextra:sub(-6,-1)~=' 'thenextra=extra..' 'endendifflagCurrentthenextra='<span class="currentage"></span>'..extraendreturnextraendlocalfunctionmakeSort(value,sortable)-- Return a sort key if requested.-- Assume value is a valid number which has not overflowed.ifsortable=='sortable_table'orsortable=='sortable_on'orsortable=='sortable_debug'thenlocalsortKeyifvalue==0thensortKey='5000000000000000000'elselocalmag=math.floor(math.log10(math.abs(value))+1e-14)ifvalue>0thensortKey=7000+magelsesortKey=2999-magvalue=value+10^(mag+1)endsortKey=string.format('%d',sortKey)..string.format('%015.0f',math.floor(value*10^(14-mag)))endlocalresultifsortable=='sortable_table'thenresult='data-sort-value="_SORTKEY_"|'elseifsortable=='sortable_debug'thenresult='<span data-sort-value="_SORTKEY_♠"><span style="border:1px solid">_SORTKEY_♠</span></span>'elseresult='<span data-sort-value="_SORTKEY_♠"></span>'endreturnresult:gsub('_SORTKEY_',sortKey)endendlocaltranslateParameters={abbr={off='abbr_off',on='abbr_on',},disp={age='disp_age',raw='disp_raw',},format={raw='format_raw',commas='format_commas',},round={on='on',yes='on',months='ym',weeks='ymw',days='ymd',hours='ymdh',},sep={comma='sep_comma',[',']='sep_comma',serialcomma='sep_serialcomma',space='sep_space',},show={hide={id='hide'},y={'y',id='y'},ym={'y','m',id='ym'},ymd={'y','m','d',id='ymd'},ymw={'y','m','w',id='ymw'},ymwd={'y','m','w','d',id='ymwd'},yd={'y','d',id='yd',keepZero=true},m={'m',id='m'},md={'m','d',id='md'},w={'w',id='w'},wd={'w','d',id='wd'},h={'H',id='h'},hm={'H','M',id='hm'},hms={'H','M','S',id='hms'},d={'d',id='d'},dh={'d','H',id='dh'},dhm={'d','H','M',id='dhm'},dhms={'d','H','M','S',id='dhms'},ymdh={'y','m','d','H',id='ymdh'},ymdhm={'y','m','d','H','M',id='ymdhm'},ymwdh={'y','m','w','d','H',id='ymwdh'},ymwdhm={'y','m','w','d','H','M',id='ymwdhm'},},sortable={off=false,on='sortable_on',table='sortable_table',debug='sortable_debug',},}localspellOptions={cardinal={},Cardinal={upper=true},cardinal_us={us=true},Cardinal_us={us=true,upper=true},ordinal={ordinal=true},Ordinal={ordinal=true,upper=true},ordinal_us={ordinal=true,us=true},Ordinal_us={ordinal=true,us=true,upper=true},}localfunctiondateExtract(frame)-- Return part of a date after performing an optional operation.localDate=getExports(frame)localargs=frame:getParent().argslocalparms={}fori,vinipairs(args)doparms[i]=vendifyes(args.fix)thentable.insert(parms,'fix')endifyes(args.partial)thentable.insert(parms,'partial')endlocalshow=stripToNil(args.show)or'dmy'localdate=Date(unpack(parms))ifnotdatethenifshow=='format'thenreturn'error'endreturnmessage('mt-need-valid-date')endlocaladd=stripToNil(args.add)ifaddthenforiteminadd:gmatch('%S+')dodate=date+itemifnotdatethenreturnmessage({'mt-cannot-add',item})endendendlocalsortKey,resultlocalsortable=translateParameters.sortable[args.sortable]ifsortablethenlocalvalue=(date.partialanddate.partial.firstordate).jdzsortKey=makeSort(value,sortable)endifshow~='hide'thenresult=date[show]ifresult==nilthenresult=from_en(date:text(show))elseiftype(result)=='boolean'thenresult=resultand'1'or'0'elseresult=from_en(tostring(result))endendreturn(sortKeyor'')..makeExtra(args)..(resultor'')endlocalfunctionrangeJoin(range)-- Return text to be used between a range of ages.returnrange=='dash'and'–'ormtext['txt-or']endlocalfunctionmakeText(values,components,names,options,noUpper)-- Return wikitext representing an age or duration.localtext=Collection.new()localcount=#valueslocalsep=names.sepor''fori,vinipairs(values)do-- v is a number (say 4 for 4 years), or a table ({4,5} for 4 or 5 years).localislist=type(v)=='table'if(islistorv>0)or(text.n==0andi==count)or(text.n>0andcomponents.keepZero)thenlocalfmt,vstrifoptions.spellthenfmt=function(number)returnspellNumber(number,options.spell,noUpperori)endelseifi==1andoptions.format=='format_commas'then-- Numbers after the first should be small and not need formatting.fmt=formatNumberelsefmt=tostringendifislistthenvstr=fmt(v[1])..rangeJoin(options.range)noUpper=truevstr=vstr..fmt(v[2])elsevstr=fmt(v)endlocalname=names[components[i]]ifnamethenlocalplural=names.pluralifnotpluralor(islistandv[2]orv)==1thenplural=''endtext:add(vstr..sep..name..plural)elsetext:add(vstr)endendendlocalfirst,lastifoptions.join=='sep_space'thenfirst=' 'last=' 'elseifoptions.join=='sep_comma'thenfirst=', 'last=', 'elseifoptions.join=='sep_serialcomma'andtext.n>2thenfirst=', 'last=mtext['txt-comma-and']elsefirst=', 'last=mtext['txt-and']endfori,vinipairs(text)doifi<text.nthentext[i]=v..(i+1<text.nandfirstorlast)endendlocalsign=''ifoptions.isnegativethen-- Do not display negative zero.iftext.n>1or(text.n==1andtext[1]:sub(1,1)~='0')thenifoptions.format=='format_raw'thensign='-'-- plain hyphen so result can be used in a calculationelsesign='−'-- Unicode U+2212 MINUS SIGNendendendreturn(options.sortKeyor'')..(options.extraor'')..sign..text:join()..(options.suffixor'')endlocalfunctiondateDifference(parms)-- Return a formatted date difference using the given parameters-- which have been validated.localnames={abbr_off={plural='',sep=' ',y='taon',m='buwan',w='linggo',d='araw',H='oras',M='minuto',S='segundo',},abbr_on={y='t',m='b',w='l',d='a',H='o',M='m',S='s',},abbr_infant={-- for {{age for infant}}plural='',sep=' ',y='ta',m='bu',w='lin',d='ar',H='or',M='min',S='seg',},abbr_raw={},}localdiff=parms.diff-- must be a valid date differencelocalshow=parms.show-- may be nil; default is set belowlocalabbr=parms.abbror'abbr_off'localdefaultJoinifabbr~='abbr_off'thendefaultJoin='sep_space'endifnotshowthenshow='ymd'ifparms.disp=='disp_age'thenifdiff.years<3thendefaultJoin='sep_space'ifdiff.years>=1thenshow='ym'elseshow='md'endelseshow='y'endendendiftype(show)~='table'thenshow=translateParameters.show[show]endifparms.disp=='disp_raw'thendefaultJoin='sep_space'abbr='abbr_raw'elseifparms.wantScthendefaultJoin='sep_serialcomma'endlocaldiffOptions={round=parms.round,duration=parms.wantDuration,range=parms.rangeandtrueornil,}localsortKeyifparms.sortablethenlocalvalue=diff.age_days+(parms.wantDurationand1or0)-- days and fraction of a dayifdiff.isnegativethenvalue=-valueendsortKey=makeSort(value,parms.sortable)endlocaltextOptions={extra=parms.extra,format=parms.format,join=parms.sepordefaultJoin,isnegative=diff.isnegative,range=parms.range,sortKey=sortKey,spell=parms.spell,suffix=parms.suffix,-- not currently used}ifshow.id=='hide'thenreturnsortKeyor''endlocalvalues={diff:age(show.id,diffOptions)}ifvalues[1]thenreturnmakeText(values,show,names[abbr],textOptions)endifdiff.partialthen-- Handle a more complex range such as-- {{age_yd|20 Dec 2001|2003|range=yes}} → 1 year, 12 days or 2 years, 11 dayslocalopt={format=textOptions.format,join=textOptions.join,isnegative=textOptions.isnegative,spell=textOptions.spell,}return(textOptions.sortKeyor'')..makeText({diff.partial.mindiff:age(show.id,diffOptions)},show,names[abbr],opt)..rangeJoin(textOptions.range)..makeText({diff.partial.maxdiff:age(show.id,diffOptions)},show,names[abbr],opt,true)..(textOptions.suffixor'')endreturnmessage({'mt-bad-show',show.id})endlocalfunctiongetDates(frame,getopt)-- Parse template parameters and return one of:-- * date (a date table, if single)-- * date1, date2 (two date tables, if not single)-- * text (a string error message)-- A missing date is optionally replaced with the current date.-- If wantMixture is true, a missing date component is replaced-- from the current date, so can get a bizarre mixture of-- specified/current y/m/d as has been done by some "age" templates.-- Some results may be placed in table getopt.localDate,currentDate=getExports(frame)getopt=getoptor{}localfunctionflagCurrent(text)-- This allows the calling template to detect if the current date has been used,-- that is, whether both dates have been entered in a template expecting two.-- For example, an infobox may want the age when an event occurred, not the current age.-- Don't bother detecting if wantMixture is used because not needed and it is a poor option.ifnottextthenifgetopt.noMissingthenreturnnil-- this gives a nil date which gives an errorendtext='currentdate'ifgetopt.flag=='usesCurrent'thengetopt.usesCurrent=trueendendreturntextendlocalargs=frame:getParent().argslocalfields={}localisNamed=args.yearorargs.year1orargs.year2orargs.monthorargs.month1orargs.month2orargs.dayorargs.day1orargs.day2ifisNamedthenfields[1]=args.year1orargs.yearfields[2]=args.month1orargs.monthfields[3]=args.day1orargs.dayfields[4]=args.year2fields[5]=args.month2fields[6]=args.day2elsefori=1,6dofields[i]=args[i]endendlocalimax=0fori=1,6dofields[i]=stripToNil(fields[i])iffields[i]thenimax=iendifgetopt.omitZeroandi%3~=1then-- omit zero months and days as unknown values but keep year 0 which is 1 BCEifisZero(fields[i])thenfields[i]=nilgetopt.partial=trueendendendlocalfix=getopt.fixand'fix'or''localpartialText=getopt.partialand'partial'or''localdates={}ifisNamedorimax>=3thenlocalnrDates=getopt.singleand1or2ifgetopt.wantMixturethen-- Cannot be partial since empty fields are set from current.localcomponents={'year','month','day'}fori=1,nrDates*3dofields[i]=fields[i]orcurrentDate[components[i>3andi-3ori]]endfori=1,nrDatesdolocalindex=i==1and1or4dates[i]=Date(fields[index],fields[index+1],fields[index+2])endelse-- If partial dates are allowed, accept-- year only, or-- year and month only-- Do not accept year and day without a month because that makes no sense-- (and because, for example, Date('partial', 2001, nil, 12) sets day = nil, not 12).fori=1,nrDatesdolocalindex=i==1and1or4localy,m,d=fields[index],fields[index+1],fields[index+2]if(getopt.partialandyand(mornotd))or(yandmandd)thendates[i]=Date(fix,partialText,y,m,d)elseifnotyandnotmandnotdthendates[i]=Date(flagCurrent())endendendelsegetopt.textdates=true-- have parsed each date from a single text fielddates[1]=Date(fix,partialText,flagCurrent(fields[1]))ifnotgetopt.singlethendates[2]=Date(fix,partialText,flagCurrent(fields[2]))endendifnotdates[1]thenreturnmessage(getopt.missing1or'mt-need-valid-ymd')endifgetopt.singlethenreturndates[1]endifnotdates[2]thenreturnmessage(getopt.missing2or'mt-need-valid-ymd2')endreturndates[1],dates[2]endlocalfunctionageGeneric(frame)-- Return the result required by the specified template.-- Can use sortable=x where x = on/table/off/debug in any supported template.-- Some templates default to sortable=on but can be overridden.localname=frame.args.templateifnotnamethenreturnmessage('mt-template-x')endlocalargs=frame:getParent().argslocalspecs={age_days={-- {{age in days}}show='d',disp='disp_raw',},age_days_nts={-- {{age in days nts}}show='d',disp='disp_raw',format='format_commas',sortable='on',},duration_days={-- {{duration in days}}show='d',disp='disp_raw',duration=true,},duration_days_nts={-- {{duration in days nts}}show='d',disp='disp_raw',format='format_commas',sortable='on',duration=true,},age_full_years={-- {{age}}show='y',abbr='abbr_raw',flag='usesCurrent',omitZero=true,range='no',},age_full_years_nts={-- {{age nts}}show='y',abbr='abbr_raw',format='format_commas',sortable='on',},age_in_years={-- {{age in years}}show='y',abbr='abbr_raw',negative='error',range='dash',},age_in_years_nts={-- {{age in years nts}}show='y',abbr='abbr_raw',negative='error',range='dash',format='format_commas',sortable='on',},age_infant={-- {{age for infant}}-- Do not set show because special processing is done later.abbr=yes(args.abbr)and'abbr_infant'or'abbr_off',disp='disp_age',sep='sep_space',sortable='on',},age_m={-- {{age in months}}show='m',disp='disp_raw',},age_w={-- {{age in weeks}}show='w',disp='disp_raw',},age_wd={-- {{age in weeks and days}}show='wd',},age_yd={-- {{age in years and days}}show='yd',format='format_commas',sep=args.sep~='and'and'sep_comma'ornil,},age_yd_nts={-- {{age in years and days nts}}show='yd',format='format_commas',sep=args.sep~='and'and'sep_comma'ornil,sortable='on',},age_ym={-- {{age in years and months}}show='ym',sep='sep_comma',},age_ymd={-- {{age in years, months and days}}show='ymd',range=true,},age_ymwd={-- {{age in years, months, weeks and days}}show='ymwd',wantMixture=true,},}localspec=specs[name]ifnotspecthenreturnmessage('mt-template-bad-name')endifname=='age_days'thenlocalsu=stripToNil(args['show unit'])ifsuthenifsu=='abbr'orsu=='full'thenspec.disp=nilspec.abbr=su=='abbr'and'abbr_on'ornilendendendlocalpartial,autofilllocalrange=stripToNil(args.range)orspec.rangeifrangethen-- Suppose partial dates are used and age could be 11 or 12 years.-- "|range=" (empty value) has no effect (spec is used).-- "|range=yes" or spec.range == true sets range = true (gives "11 or 12")-- "|range=dash" or spec.range == 'dash' sets range = 'dash' (gives "11–12").-- "|range=no" or spec.range == 'no' sets range = nil and fills each date in the diff (gives "12").-- ("on" is equivalent to "yes", and "off" is equivalent to "no").-- "|range=OTHER" sets range = nil and rejects partial dates.range=({dash='dash',off='no',no='no',[true]=true})[range]oryes(range)ifrangethenpartial=true-- accept partial dates with a possible age range for the resultifrange=='no'thenautofill=true-- missing month/day in first or second date are filled from other date or 1range=nilendendendlocalgetopt={fix=yes(args.fix),flag=stripToNil(args.flag)orspec.flag,omitZero=spec.omitZero,partial=partial,wantMixture=spec.wantMixture,}localdate1,date2=getDates(frame,getopt)iftype(date1)=='string'thenreturndate1endlocalformat=stripToNil(args.format)localspell=spellOptions[format]ifformatthenformat='format_'..formatelseifname=='age_days'andgetopt.textdatesthenformat='format_commas'endlocalparms={diff=date2:subtract(date1,{fill=autofill}),wantDuration=spec.durationoryes(args.duration),range=range,wantSc=yes(args.sc),show=args.show=='hide'and'hide'orspec.show,abbr=spec.abbr,disp=spec.disp,extra=makeExtra(args,getopt.usesCurrentandformat~='format_raw'),format=formatorspec.format,round=yes(args.round),sep=spec.sep,sortable=translateParameters.sortable[args.sortableorspec.sortable],spell=spell,}if(spec.negativeorframe.args.negative)=='error'andparms.diff.isnegativethenreturnmessage('mt-date-wrong-order')endreturnfrom_en(dateDifference(parms))endlocalfunctionbda(frame)-- Implement [[Template:Birth date and age]].localargs=frame:getParent().argslocaloptions={missing1='mt-need-valid-bd',noMissing=true,single=true,}localdate=getDates(frame,options)iftype(date)=='string'thenreturndate-- error textendlocalDate=getExports(frame)localdiff=Date('currentdate')-dateifdiff.isnegativeordiff.years>150thenreturnmessage('mt-invalid-bd-age')endlocaldisp,show='disp_raw','y'ifdiff.years<2thendisp='disp_age'ifdiff.years==0anddiff.months==0thenshow='d'elseshow='m'endendlocaldf=stripToNil(args.df)-- day first (dmy); default is month first (mdy)localresult='(<span class="bday">%-Y-%m-%d</span>) </span>'..(dfand'%-d %B %-Y'or'%B %-d, %-Y')result=from_en('<span style="display:none"> '..date:text(result)..'<span class="noprint ForceAgeToShow"> '..mtext['txt-age']..dateDifference({diff=diff,show=show,abbr='abbr_off',disp=disp,sep='sep_space',})..')</span>')localwarnings=tonumber(frame.args.warnings)ifwarningsandwarnings>0thenlocalgood={df=true,mf=true,day=true,day1=true,month=true,month1=true,year=true,year1=true,}localinvalidlocalimax=options.textdatesand1or3fork,_inpairs(args)doiftype(k)=='number'thenifk>imaxtheninvalid=tostring(k)breakendelseifnotgood[k]theninvalid=kbreakendendendifinvalidthenresult=result..message({'mt-bad-param1',invalid},'warning')endendreturnresultendlocalfunctiondda(frame)-- Implement [[Template:Death date and age]].localargs=frame:getParent().argslocaloptions={missing1='mt-need-valid-dd',missing2='mt-need-valid-bd2',noMissing=true,partial=true,}localdate1,date2=getDates(frame,options)iftype(date1)=='string'thenreturndate1endlocaldiff=date1-date2ifdiff.isnegativethenreturnmessage('mt-dd-wrong-order')endlocalDate=getExports(frame)localtoday=Date('currentdate')+1-- one day in future allows for timezonesifdate1>todaythenreturnmessage('mt-dd-future')endlocalyearsifdiff.partialthenyears=diff.partial.yearsyears=type(years)=='table'andyears[2]oryearselseyears=diff.yearsendifyears>150thenreturnmessage('mt-invalid-dates-age')endlocaldf=stripToNil(args.df)-- day first (dmy); default is month first (mdy)localresultifdate1.daythen-- y, m, d known--result = (df and--'%-d %B %-Y' or--'%B %-d, %-Y') ..--'<span style="display:none">(%-Y-%m-%d)</span>'result='%-d %B %-Y'..'<span style="display:none">(%-Y-%m-%d)</span>'elseifdate1.monththen-- y, m known; d unknownresult='%B %-Y'..'<span style="display:none">(%-Y-%m-00)</span>'else-- y known; m, d unknownresult='%-Y'..'<span style="display:none">(%-Y-00-00)</span>'endresult=from_en(date1:text(result)..mtext['txt-aged']..dateDifference({diff=diff,show='y',abbr='abbr_off',disp='disp_raw',range='dash',sep='sep_space',})..')')localwarnings=tonumber(frame.args.warnings)ifwarningsandwarnings>0thenlocalgood={df=true,mf=true,}localinvalidlocalimax=options.textdatesand2or6fork,_inpairs(args)doiftype(k)=='number'thenifk>imaxtheninvalid=tostring(k)breakendelseifnotgood[k]theninvalid=kbreakendendendifinvalidthenresult=result..message({'mt-bad-param1',invalid},'warning')endendreturnresultendlocalfunctiondateToGsd(frame)-- Implement [[Template:Gregorian serial date]].-- Return Gregorian serial date of the given date, or the current date.-- The returned value is negative for dates before 1 January 1 AD-- despite the fact that GSD is not defined for such dates.localdate=getDates(frame,{wantMixture=true,single=true})iftype(date)=='string'thenreturndateendreturntostring(date.gsd)endlocalfunctionjdToDate(frame)-- Return formatted date from a Julian date.-- The result includes a time if the input includes a fraction.-- The word 'Julian' is accepted for the Julian calendar.localDate=getExports(frame)localargs=frame:getParent().argslocaldate=Date('juliandate',args[1],args[2])ifdatethenreturnfrom_en(date:text())endreturnmessage('mt-need-jdn')endlocalfunctiondateToJd(frame)-- Return Julian date (a number) from a date which may include a time,-- or the current date ('currentdate') or current date and time ('currentdatetime').-- The word 'Julian' is accepted for the Julian calendar.localDate=getExports(frame)localargs=frame:getParent().argslocaldate=Date(args[1],args[2],args[3],args[4],args[5],args[6],args[7])ifdatethenreturntostring(date.jd)endreturnmessage('mt-need-valid-ymd-current')endlocalfunctiontimeInterval(frame)-- Implement [[Template:Time interval]].-- There are two positional arguments: date1, date2.-- The default for each is the current date and time.-- Result is date2 - date1 formatted.localDate=getExports(frame)localargs=frame:getParent().argslocalparms={extra=makeExtra(args),wantDuration=yes(args.duration),range=yes(args.range)or(args.range=='dash'and'dash'ornil),wantSc=yes(args.sc),}localfix=yes(args.fix)and'fix'or''localdate1=Date(fix,'partial',stripToNil(args[1])or'currentdatetime')ifnotdate1thenreturnmessage('mt-invalid-start')endlocaldate2=Date(fix,'partial',stripToNil(args[2])or'currentdatetime')ifnotdate2thenreturnmessage('mt-invalid-end')endparms.diff=date2-date1forargname,translateinpairs(translateParameters)dolocalparm=stripToNil(args[argname])ifparmthenparm=translate[parm]ifparm==nilthen-- test for nil because false is a valid settingreturnmessage({'mt-bad-param2',argname,args[argname]})endparms[argname]=parmendendifparms.roundthenlocalround=parms.roundlocalshow=parms.showifround~='on'thenifshowthenifshow.id~=roundthenreturnmessage({'mt-conflicting-show',args.show,args.round})endelseparms.show=translateParameters.show[round]endendparms.round=trueendreturnfrom_en(dateDifference(parms))endreturn{age_generic=ageGeneric,-- can emulate several age templatesbirth_date_and_age=bda,-- Template:Birth_date_and_agedeath_date_and_age=dda,-- Template:Death_date_and_agegsd=dateToGsd,-- Template:Gregorian_serial_dateextract=dateExtract,-- Template:Extractjd_to_date=jdToDate,-- Template:?JULIANDAY=dateToJd,-- Template:JULIANDAYtime_interval=timeInterval,-- Template:Time_interval}
