CINXE.COM
M贸dulo:fecha - Wikcionario, el diccionario libre
<!DOCTYPE html> <html class="client-nojs vector-feature-language-in-header-enabled vector-feature-language-in-main-page-header-disabled vector-feature-sticky-header-disabled vector-feature-page-tools-pinned-disabled vector-feature-toc-pinned-clientpref-1 vector-feature-main-menu-pinned-disabled vector-feature-limited-width-clientpref-1 vector-feature-limited-width-content-enabled vector-feature-custom-font-size-clientpref-1 vector-feature-appearance-pinned-clientpref-1 vector-feature-night-mode-disabled skin-theme-clientpref-day vector-toc-not-available" lang="es" dir="ltr"> <head> <meta charset="UTF-8"> <title>M贸dulo:fecha - Wikcionario, el diccionario libre</title> <script>(function(){var className="client-js vector-feature-language-in-header-enabled vector-feature-language-in-main-page-header-disabled vector-feature-sticky-header-disabled vector-feature-page-tools-pinned-disabled vector-feature-toc-pinned-clientpref-1 vector-feature-main-menu-pinned-disabled vector-feature-limited-width-clientpref-1 vector-feature-limited-width-content-enabled vector-feature-custom-font-size-clientpref-1 vector-feature-appearance-pinned-clientpref-1 vector-feature-night-mode-disabled skin-theme-clientpref-day vector-toc-not-available";var cookie=document.cookie.match(/(?:^|; )eswiktionarymwclientpreferences=([^;]+)/);if(cookie){cookie[1].split('%2C').forEach(function(pref){className=className.replace(new RegExp('(^| )'+pref.replace(/-clientpref-\w+$|[^\w-]+/g,'')+'-clientpref-\\w+( |$)'),'$1'+pref+'$2');});}document.documentElement.className=className;}());RLCONF={"wgBreakFrames":false,"wgSeparatorTransformTable":[",\t.","聽\t,"],"wgDigitTransformTable":["",""], "wgDefaultDateFormat":"dmy","wgMonthNames":["","enero","febrero","marzo","abril","mayo","junio","julio","agosto","septiembre","octubre","noviembre","diciembre"],"wgRequestId":"c280bf0f-6f14-4847-873c-453c7d2369c3","wgCanonicalNamespace":"Module","wgCanonicalSpecialPageName":false,"wgNamespaceNumber":828,"wgPageName":"M贸dulo:fecha","wgTitle":"fecha","wgCurRevisionId":5298303,"wgRevisionId":5298303,"wgArticleId":1027781,"wgIsArticle":true,"wgIsRedirect":false,"wgAction":"view","wgUserName":null,"wgUserGroups":["*"],"wgCategories":[],"wgPageViewLanguage":"es","wgPageContentLanguage":"es","wgPageContentModel":"Scribunto","wgRelevantPageName":"M贸dulo:fecha","wgRelevantArticleId":1027781,"wgIsProbablyEditable":true,"wgRelevantPageIsProbablyEditable":true,"wgRestrictionEdit":[],"wgRestrictionMove":[],"wgNoticeProject":"wiktionary","wgCiteReferencePreviewsActive":false,"wgMediaViewerOnClick":true,"wgMediaViewerEnabledByDefault":true,"wgVisualEditor":{"pageLanguageCode":"en","pageLanguageDir" :"ltr","pageVariantFallbacks":"en"},"wgMFDisplayWikibaseDescriptions":{"search":true,"watchlist":true,"tagline":false,"nearby":true},"wgWMESchemaEditAttemptStepOversample":false,"wgWMEPageLength":30000,"wgCentralAuthMobileDomain":false,"wgEditSubmitButtonLabelPublish":true,"wgULSPosition":"interlanguage","wgULSisCompactLinksEnabled":false,"wgVector2022LanguageInHeader":true,"wgULSisLanguageSelectorEmpty":false,"wgCheckUserClientHintsHeadersJsApi":["brands","architecture","bitness","fullVersionList","mobile","model","platform","platformVersion"]};RLSTATE={"ext.gadget.MessageBox":"ready","ext.gadget.NavFrame":"ready","ext.gadget.InflectionTable":"ready","ext.gadget.AutonumberTable":"ready","ext.globalCssJs.user.styles":"ready","site.styles":"ready","user.styles":"ready","ext.globalCssJs.user":"ready","user":"ready","user.options":"loading","ext.pygments":"ready","skins.vector.search.codex.styles":"ready","skins.vector.styles":"ready","skins.vector.icons":"ready", "ext.wikimediamessages.styles":"ready","ext.visualEditor.desktopArticleTarget.noscript":"ready","ext.uls.interlanguage":"ready","wikibase.client.init":"ready","ext.wikimediaBadges":"ready"};RLPAGEMODULES=["ext.pygments.view","site","mediawiki.page.ready","skins.vector.js","ext.centralNotice.geoIP","ext.centralNotice.startUp","ext.gadget.CollapsibleCombo","ext.gadget.HideCategories","ext.gadget.SisterProjects","ext.gadget.ReferenceTooltips","ext.urlShortener.toolbar","ext.centralauth.centralautologin","ext.visualEditor.desktopArticleTarget.init","ext.visualEditor.targetLoader","ext.echo.centralauth","ext.eventLogging","ext.wikimediaEvents","ext.navigationTiming","ext.uls.interface","ext.checkUser.clientHints"];</script> <script>(RLQ=window.RLQ||[]).push(function(){mw.loader.impl(function(){return["user.options@12s5i",function($,jQuery,require,module){mw.user.tokens.set({"patrolToken":"+\\","watchToken":"+\\","csrfToken":"+\\"}); }];});});</script> <link rel="stylesheet" href="/w/load.php?lang=es&modules=ext.pygments%2CwikimediaBadges%7Cext.uls.interlanguage%7Cext.visualEditor.desktopArticleTarget.noscript%7Cext.wikimediamessages.styles%7Cskins.vector.icons%2Cstyles%7Cskins.vector.search.codex.styles%7Cwikibase.client.init&only=styles&skin=vector-2022"> <script async="" src="/w/load.php?lang=es&modules=startup&only=scripts&raw=1&skin=vector-2022"></script> <meta name="ResourceLoaderDynamicStyles" content=""> <link rel="stylesheet" href="/w/load.php?lang=es&modules=ext.gadget.AutonumberTable%2CInflectionTable%2CMessageBox%2CNavFrame&only=styles&skin=vector-2022"> <link rel="stylesheet" href="/w/load.php?lang=es&modules=site.styles&only=styles&skin=vector-2022"> <meta name="generator" content="MediaWiki 1.44.0-wmf.4"> <meta name="referrer" content="origin"> <meta name="referrer" content="origin-when-cross-origin"> <meta name="robots" content="max-image-preview:standard"> <meta name="format-detection" content="telephone=no"> <meta name="viewport" content="width=1120"> <meta property="og:site_name" content="Wikcionario"> <meta property="og:title" content="M贸dulo:fecha - Wikcionario, el diccionario libre"> <meta property="og:type" content="website"> <link rel="alternate" media="only screen and (max-width: 640px)" href="//es.m.wiktionary.org/wiki/M%C3%B3dulo:fecha"> <link rel="alternate" type="application/x-wiki" title="Editar" href="/w/index.php?title=M%C3%B3dulo:fecha&action=edit"> <link rel="apple-touch-icon" href="/static/apple-touch/wiktionary.png"> <link rel="icon" href="/static/favicon/piece.ico"> <link rel="search" type="application/opensearchdescription+xml" href="/w/rest.php/v1/search" title="Wikcionario (es)"> <link rel="EditURI" type="application/rsd+xml" href="//es.wiktionary.org/w/api.php?action=rsd"> <link rel="canonical" href="https://es.wiktionary.org/wiki/M%C3%B3dulo:fecha"> <link rel="license" href="https://creativecommons.org/licenses/by-sa/4.0/deed.es"> <link rel="alternate" type="application/atom+xml" title="Canal Atom de Wikcionario" href="/w/index.php?title=Especial:CambiosRecientes&feed=atom"> <link rel="dns-prefetch" href="//meta.wikimedia.org" /> <link rel="dns-prefetch" href="//login.wikimedia.org"> </head> <body class="skin--responsive skin-vector skin-vector-search-vue mediawiki ltr sitedir-ltr mw-hide-empty-elt ns-828 ns-subject mw-editable page-M贸dulo_fecha rootpage-M贸dulo_fecha skin-vector-2022 action-view"><a class="mw-jump-link" href="#bodyContent">Ir al contenido</a> <div class="vector-header-container"> <header class="vector-header mw-header"> <div class="vector-header-start"> <nav class="vector-main-menu-landmark" aria-label="Sitio"> <div id="vector-main-menu-dropdown" class="vector-dropdown vector-main-menu-dropdown vector-button-flush-left vector-button-flush-right" > <input type="checkbox" id="vector-main-menu-dropdown-checkbox" role="button" aria-haspopup="true" data-event-name="ui.dropdown-vector-main-menu-dropdown" class="vector-dropdown-checkbox " aria-label="Men煤 principal" > <label id="vector-main-menu-dropdown-label" for="vector-main-menu-dropdown-checkbox" class="vector-dropdown-label cdx-button cdx-button--fake-button cdx-button--fake-button--enabled cdx-button--weight-quiet cdx-button--icon-only " aria-hidden="true" ><span class="vector-icon mw-ui-icon-menu mw-ui-icon-wikimedia-menu"></span> <span class="vector-dropdown-label-text">Men煤 principal</span> </label> <div class="vector-dropdown-content"> <div id="vector-main-menu-unpinned-container" class="vector-unpinned-container"> <div id="vector-main-menu" class="vector-main-menu vector-pinnable-element"> <div class="vector-pinnable-header vector-main-menu-pinnable-header vector-pinnable-header-unpinned" data-feature-name="main-menu-pinned" data-pinnable-element-id="vector-main-menu" data-pinned-container-id="vector-main-menu-pinned-container" data-unpinned-container-id="vector-main-menu-unpinned-container" > <div class="vector-pinnable-header-label">Men煤 principal</div> <button class="vector-pinnable-header-toggle-button vector-pinnable-header-pin-button" data-event-name="pinnable-header.vector-main-menu.pin">mover a la barra lateral</button> <button class="vector-pinnable-header-toggle-button vector-pinnable-header-unpin-button" data-event-name="pinnable-header.vector-main-menu.unpin">ocultar</button> </div> <div id="p-navigation" class="vector-menu mw-portlet mw-portlet-navigation" > <div class="vector-menu-heading"> Navegaci贸n </div> <div class="vector-menu-content"> <ul class="vector-menu-content-list"> <li id="n-Portada" class="mw-list-item"><a href="/wiki/Wikcionario:Portada"><span>Portada</span></a></li><li id="n-allpages" class="mw-list-item"><a href="/wiki/Especial:Todas"><span>Todas las p谩ginas</span></a></li><li id="n-Consultas" class="mw-list-item"><a href="/wiki/Wikcionario:Consultas"><span>Consultas</span></a></li><li id="n-Solicitudes" class="mw-list-item"><a href="/wiki/Wikcionario:Solicitudes"><span>Solicitudes</span></a></li><li id="n-randompage" class="mw-list-item"><a href="/wiki/Especial:Aleatoria" title="Cargar una p谩gina al azar [x]" accesskey="x"><span>P谩gina aleatoria</span></a></li><li id="n-Aleatoria-en-otros-idiomas" class="mw-list-item"><a href="/wiki/Wikcionario:Aleatorio_por_idioma"><span>Aleatoria en otros idiomas</span></a></li><li id="n-Buscador-de-anagramas" class="mw-list-item"><a href="/wiki/Wikcionario:Anagramas"><span>Buscador de anagramas</span></a></li> </ul> </div> </div> <div id="p-Colaboraci贸n" class="vector-menu mw-portlet mw-portlet-Colaboraci贸n" > <div class="vector-menu-heading"> Colaboraci贸n </div> <div class="vector-menu-content"> <ul class="vector-menu-content-list"> <li id="n-portal" class="mw-list-item"><a href="/wiki/Ayuda:Mapa_de_ayuda" title="Acerca del proyecto, lo que puedes hacer, d贸nde encontrar informaci贸n"><span>Portal de la comunidad</span></a></li><li id="n-Caf茅" class="mw-list-item"><a href="/wiki/Wikcionario:Caf%C3%A9"><span>Caf茅</span></a></li><li id="n-wantedpages" class="mw-list-item"><a href="/wiki/Especial:P%C3%A1ginasRequeridas"><span>P谩ginas requeridas</span></a></li><li id="n-recentchanges" class="mw-list-item"><a href="/wiki/Especial:CambiosRecientes" title="Lista de cambios recientes en la wiki [r]" accesskey="r"><span>Cambios recientes</span></a></li> </ul> </div> </div> <div id="p-help" class="vector-menu mw-portlet mw-portlet-help" > <div class="vector-menu-heading"> Ayuda </div> <div class="vector-menu-content"> <ul class="vector-menu-content-list"> <li id="n-help" class="mw-list-item"><a href="/wiki/Wikcionario:Ayuda" title="El lugar para aprender"><span>Ayuda</span></a></li><li id="n-Tutorial" class="mw-list-item"><a href="/wiki/Ayuda:Tutorial"><span>Tutorial</span></a></li><li id="n-Embajada---embassy" class="mw-list-item"><a href="/wiki/Wikcionario:Embajada"><span>Embajada - embassy</span></a></li> </ul> </div> </div> </div> </div> </div> </div> </nav> <a href="/wiki/Wikcionario:Portada" class="mw-logo"> <img class="mw-logo-icon" src="/static/images/icons/wiktionary.svg" alt="" aria-hidden="true" height="50" width="50"> <span class="mw-logo-container skin-invert"> <img class="mw-logo-wordmark" alt="Wikcionario" src="/static/images/mobile/copyright/wiktionary-wordmark-es.svg" style="width: 9.125em; height: 1.25em;"> <img class="mw-logo-tagline" alt="El diccionario libre" src="/static/images/mobile/copyright/wiktionary-tagline-es.svg" width="120" height="11" style="width: 7.5em; height: 0.6875em;"> </span> </a> </div> <div class="vector-header-end"> <div id="p-search" role="search" class="vector-search-box-vue vector-search-box-collapses vector-search-box-show-thumbnail vector-search-box-auto-expand-width vector-search-box"> <a href="/wiki/Especial:Buscar" class="cdx-button cdx-button--fake-button cdx-button--fake-button--enabled cdx-button--weight-quiet cdx-button--icon-only search-toggle" title="Buscar en Wikcionario [f]" accesskey="f"><span class="vector-icon mw-ui-icon-search mw-ui-icon-wikimedia-search"></span> <span>Buscar</span> </a> <div class="vector-typeahead-search-container"> <div class="cdx-typeahead-search cdx-typeahead-search--show-thumbnail cdx-typeahead-search--auto-expand-width"> <form action="/w/index.php" id="searchform" class="cdx-search-input cdx-search-input--has-end-button"> <div id="simpleSearch" class="cdx-search-input__input-wrapper" data-search-loc="header-moved"> <div class="cdx-text-input cdx-text-input--has-start-icon"> <input class="cdx-text-input__input" type="search" name="search" placeholder="Buscar en Wikcionario" aria-label="Buscar en Wikcionario" autocapitalize="none" title="Buscar en Wikcionario [f]" accesskey="f" id="searchInput" > <span class="cdx-text-input__icon cdx-text-input__start-icon"></span> </div> <input type="hidden" name="title" value="Especial:Buscar"> </div> <button class="cdx-button cdx-search-input__end-button">Buscar</button> </form> </div> </div> </div> <nav class="vector-user-links vector-user-links-wide" aria-label="Herramientas personales"> <div class="vector-user-links-main"> <div id="p-vector-user-menu-preferences" class="vector-menu mw-portlet emptyPortlet" > <div class="vector-menu-content"> <ul class="vector-menu-content-list"> </ul> </div> </div> <div id="p-vector-user-menu-userpage" class="vector-menu mw-portlet emptyPortlet" > <div class="vector-menu-content"> <ul class="vector-menu-content-list"> </ul> </div> </div> <nav class="vector-appearance-landmark" aria-label="Apariencia"> <div id="vector-appearance-dropdown" class="vector-dropdown " title="Change the appearance of the page's font size, width, and color" > <input type="checkbox" id="vector-appearance-dropdown-checkbox" role="button" aria-haspopup="true" data-event-name="ui.dropdown-vector-appearance-dropdown" class="vector-dropdown-checkbox " aria-label="Apariencia" > <label id="vector-appearance-dropdown-label" for="vector-appearance-dropdown-checkbox" class="vector-dropdown-label cdx-button cdx-button--fake-button cdx-button--fake-button--enabled cdx-button--weight-quiet cdx-button--icon-only " aria-hidden="true" ><span class="vector-icon mw-ui-icon-appearance mw-ui-icon-wikimedia-appearance"></span> <span class="vector-dropdown-label-text">Apariencia</span> </label> <div class="vector-dropdown-content"> <div id="vector-appearance-unpinned-container" class="vector-unpinned-container"> </div> </div> </div> </nav> <div id="p-vector-user-menu-notifications" class="vector-menu mw-portlet emptyPortlet" > <div class="vector-menu-content"> <ul class="vector-menu-content-list"> </ul> </div> </div> <div id="p-vector-user-menu-overflow" class="vector-menu mw-portlet" > <div class="vector-menu-content"> <ul class="vector-menu-content-list"> <li id="pt-sitesupport-2" class="user-links-collapsible-item mw-list-item user-links-collapsible-item"><a data-mw="interface" href="//donate.wikimedia.org/wiki/Special:FundraiserRedirector?utm_source=donate&utm_medium=sidebar&utm_campaign=C13_es.wiktionary.org&uselang=es" class=""><span>Donaciones</span></a> </li> <li id="pt-createaccount-2" class="user-links-collapsible-item mw-list-item user-links-collapsible-item"><a data-mw="interface" href="/w/index.php?title=Especial:Crear_una_cuenta&returnto=M%C3%B3dulo%3Afecha" title="Te recomendamos crear una cuenta e iniciar sesi贸n; sin embargo, no es obligatorio" class=""><span>Crear una cuenta</span></a> </li> <li id="pt-login-2" class="user-links-collapsible-item mw-list-item user-links-collapsible-item"><a data-mw="interface" href="/w/index.php?title=Especial:Entrar&returnto=M%C3%B3dulo%3Afecha" title="Te recomendamos iniciar sesi贸n, aunque no es obligatorio [o]" accesskey="o" class=""><span>Acceder</span></a> </li> </ul> </div> </div> </div> <div id="vector-user-links-dropdown" class="vector-dropdown vector-user-menu vector-button-flush-right vector-user-menu-logged-out" title="M谩s opciones" > <input type="checkbox" id="vector-user-links-dropdown-checkbox" role="button" aria-haspopup="true" data-event-name="ui.dropdown-vector-user-links-dropdown" class="vector-dropdown-checkbox " aria-label="Herramientas personales" > <label id="vector-user-links-dropdown-label" for="vector-user-links-dropdown-checkbox" class="vector-dropdown-label cdx-button cdx-button--fake-button cdx-button--fake-button--enabled cdx-button--weight-quiet cdx-button--icon-only " aria-hidden="true" ><span class="vector-icon mw-ui-icon-ellipsis mw-ui-icon-wikimedia-ellipsis"></span> <span class="vector-dropdown-label-text">Herramientas personales</span> </label> <div class="vector-dropdown-content"> <div id="p-personal" class="vector-menu mw-portlet mw-portlet-personal user-links-collapsible-item" title="Men煤 de usuario" > <div class="vector-menu-content"> <ul class="vector-menu-content-list"> <li id="pt-sitesupport" class="user-links-collapsible-item mw-list-item"><a href="//donate.wikimedia.org/wiki/Special:FundraiserRedirector?utm_source=donate&utm_medium=sidebar&utm_campaign=C13_es.wiktionary.org&uselang=es"><span>Donaciones</span></a></li><li id="pt-createaccount" class="user-links-collapsible-item mw-list-item"><a href="/w/index.php?title=Especial:Crear_una_cuenta&returnto=M%C3%B3dulo%3Afecha" title="Te recomendamos crear una cuenta e iniciar sesi贸n; sin embargo, no es obligatorio"><span class="vector-icon mw-ui-icon-userAdd mw-ui-icon-wikimedia-userAdd"></span> <span>Crear una cuenta</span></a></li><li id="pt-login" class="user-links-collapsible-item mw-list-item"><a href="/w/index.php?title=Especial:Entrar&returnto=M%C3%B3dulo%3Afecha" title="Te recomendamos iniciar sesi贸n, aunque no es obligatorio [o]" accesskey="o"><span class="vector-icon mw-ui-icon-logIn mw-ui-icon-wikimedia-logIn"></span> <span>Acceder</span></a></li> </ul> </div> </div> <div id="p-user-menu-anon-editor" class="vector-menu mw-portlet mw-portlet-user-menu-anon-editor" > <div class="vector-menu-heading"> P谩ginas para editores desconectados <a href="/wiki/Ayuda:Introducci%C3%B3n" aria-label="Obtenga m谩s informaci贸n sobre editar"><span>m谩s informaci贸n</span></a> </div> <div class="vector-menu-content"> <ul class="vector-menu-content-list"> <li id="pt-anoncontribs" class="mw-list-item"><a href="/wiki/Especial:MisContribuciones" title="Una lista de modificaciones hechas desde esta direcci贸n IP [y]" accesskey="y"><span>Contribuciones</span></a></li><li id="pt-anontalk" class="mw-list-item"><a href="/wiki/Especial:MiDiscusi%C3%B3n" title="Discusi贸n sobre ediciones hechas desde esta direcci贸n IP [n]" accesskey="n"><span>Discusi贸n</span></a></li> </ul> </div> </div> </div> </div> </nav> </div> </header> </div> <div class="mw-page-container"> <div class="mw-page-container-inner"> <div class="vector-sitenotice-container"> <div id="siteNotice"><!-- CentralNotice --></div> </div> <div class="vector-column-start"> <div class="vector-main-menu-container"> <div id="mw-navigation"> <nav id="mw-panel" class="vector-main-menu-landmark" aria-label="Sitio"> <div id="vector-main-menu-pinned-container" class="vector-pinned-container"> </div> </nav> </div> </div> </div> <div class="mw-content-container"> <main id="content" class="mw-body"> <header class="mw-body-header vector-page-titlebar"> <h1 id="firstHeading" class="firstHeading mw-first-heading"><span class="mw-page-title-namespace">M贸dulo</span><span class="mw-page-title-separator">:</span><span class="mw-page-title-main">fecha</span></h1> <div id="p-lang-btn" class="vector-dropdown mw-portlet mw-portlet-lang" > <input type="checkbox" id="p-lang-btn-checkbox" role="button" aria-haspopup="true" data-event-name="ui.dropdown-p-lang-btn" class="vector-dropdown-checkbox mw-interlanguage-selector" aria-label="Este art铆culo existe s贸lo en este idioma. A帽ade el art铆culo para otros idiomas" > <label id="p-lang-btn-label" for="p-lang-btn-checkbox" class="vector-dropdown-label cdx-button cdx-button--fake-button cdx-button--fake-button--enabled cdx-button--weight-quiet cdx-button--action-progressive mw-portlet-lang-heading-0" aria-hidden="true" ><span class="vector-icon mw-ui-icon-language-progressive mw-ui-icon-wikimedia-language-progressive"></span> <span class="vector-dropdown-label-text">A帽adir idiomas</span> </label> <div class="vector-dropdown-content"> <div class="vector-menu-content"> <ul class="vector-menu-content-list"> </ul> <div class="after-portlet after-portlet-lang"><span class="uls-after-portlet-link"></span><span class="wb-langlinks-add wb-langlinks-link"><a href="https://www.wikidata.org/wiki/Special:NewItem?site=eswiktionary&page=M%C3%B3dulo%3Afecha" title="Agregar enlaces interling眉铆sticos" class="wbc-editpage">A帽adir enlaces</a></span></div> </div> </div> </div> </header> <div class="vector-page-toolbar"> <div class="vector-page-toolbar-container"> <div id="left-navigation"> <nav aria-label="Espacios de nombres"> <div id="p-associated-pages" class="vector-menu vector-menu-tabs mw-portlet mw-portlet-associated-pages" > <div class="vector-menu-content"> <ul class="vector-menu-content-list"> <li id="ca-nstab-module" class="selected vector-tab-noicon mw-list-item"><a href="/wiki/M%C3%B3dulo:fecha" title="Ver la p谩gina del m贸dulo [c]" accesskey="c"><span>M贸dulo</span></a></li><li id="ca-talk" class="new vector-tab-noicon mw-list-item"><a href="/w/index.php?title=M%C3%B3dulo_discusi%C3%B3n:fecha&action=edit&redlink=1" rel="discussion" class="new" title="Discusi贸n acerca de la p谩gina (la p谩gina no existe) [t]" accesskey="t"><span>Discusi贸n</span></a></li> </ul> </div> </div> <div id="vector-variants-dropdown" class="vector-dropdown emptyPortlet" > <input type="checkbox" id="vector-variants-dropdown-checkbox" role="button" aria-haspopup="true" data-event-name="ui.dropdown-vector-variants-dropdown" class="vector-dropdown-checkbox " aria-label="Cambiar variante de idioma" > <label id="vector-variants-dropdown-label" for="vector-variants-dropdown-checkbox" class="vector-dropdown-label cdx-button cdx-button--fake-button cdx-button--fake-button--enabled cdx-button--weight-quiet" aria-hidden="true" ><span class="vector-dropdown-label-text">English</span> </label> <div class="vector-dropdown-content"> <div id="p-variants" class="vector-menu mw-portlet mw-portlet-variants emptyPortlet" > <div class="vector-menu-content"> <ul class="vector-menu-content-list"> </ul> </div> </div> </div> </div> </nav> </div> <div id="right-navigation" class="vector-collapsible"> <nav aria-label="Vistas"> <div id="p-views" class="vector-menu vector-menu-tabs mw-portlet mw-portlet-views" > <div class="vector-menu-content"> <ul class="vector-menu-content-list"> <li id="ca-view" class="selected vector-tab-noicon mw-list-item"><a href="/wiki/M%C3%B3dulo:fecha"><span>Leer</span></a></li><li id="ca-edit" class="vector-tab-noicon mw-list-item"><a href="/w/index.php?title=M%C3%B3dulo:fecha&action=edit" title="Editar esta p谩gina [e]" accesskey="e"><span>Editar</span></a></li><li id="ca-history" class="vector-tab-noicon mw-list-item"><a href="/w/index.php?title=M%C3%B3dulo:fecha&action=history" title="Versiones anteriores de esta p谩gina [h]" accesskey="h"><span>Ver historial</span></a></li> </ul> </div> </div> </nav> <nav class="vector-page-tools-landmark" aria-label="P谩gina de herramientas"> <div id="vector-page-tools-dropdown" class="vector-dropdown vector-page-tools-dropdown" > <input type="checkbox" id="vector-page-tools-dropdown-checkbox" role="button" aria-haspopup="true" data-event-name="ui.dropdown-vector-page-tools-dropdown" class="vector-dropdown-checkbox " aria-label="Herramientas" > <label id="vector-page-tools-dropdown-label" for="vector-page-tools-dropdown-checkbox" class="vector-dropdown-label cdx-button cdx-button--fake-button cdx-button--fake-button--enabled cdx-button--weight-quiet" aria-hidden="true" ><span class="vector-dropdown-label-text">Herramientas</span> </label> <div class="vector-dropdown-content"> <div id="vector-page-tools-unpinned-container" class="vector-unpinned-container"> <div id="vector-page-tools" class="vector-page-tools vector-pinnable-element"> <div class="vector-pinnable-header vector-page-tools-pinnable-header vector-pinnable-header-unpinned" data-feature-name="page-tools-pinned" data-pinnable-element-id="vector-page-tools" data-pinned-container-id="vector-page-tools-pinned-container" data-unpinned-container-id="vector-page-tools-unpinned-container" > <div class="vector-pinnable-header-label">Herramientas</div> <button class="vector-pinnable-header-toggle-button vector-pinnable-header-pin-button" data-event-name="pinnable-header.vector-page-tools.pin">mover a la barra lateral</button> <button class="vector-pinnable-header-toggle-button vector-pinnable-header-unpin-button" data-event-name="pinnable-header.vector-page-tools.unpin">ocultar</button> </div> <div id="p-cactions" class="vector-menu mw-portlet mw-portlet-cactions emptyPortlet vector-has-collapsible-items" title="M谩s opciones" > <div class="vector-menu-heading"> Acciones </div> <div class="vector-menu-content"> <ul class="vector-menu-content-list"> <li id="ca-more-view" class="selected vector-more-collapsible-item mw-list-item"><a href="/wiki/M%C3%B3dulo:fecha"><span>Leer</span></a></li><li id="ca-more-edit" class="vector-more-collapsible-item mw-list-item"><a href="/w/index.php?title=M%C3%B3dulo:fecha&action=edit" title="Editar esta p谩gina [e]" accesskey="e"><span>Editar</span></a></li><li id="ca-more-history" class="vector-more-collapsible-item mw-list-item"><a href="/w/index.php?title=M%C3%B3dulo:fecha&action=history"><span>Ver historial</span></a></li> </ul> </div> </div> <div id="p-tb" class="vector-menu mw-portlet mw-portlet-tb" > <div class="vector-menu-heading"> General </div> <div class="vector-menu-content"> <ul class="vector-menu-content-list"> <li id="t-whatlinkshere" class="mw-list-item"><a href="/wiki/Especial:LoQueEnlazaAqu%C3%AD/M%C3%B3dulo:fecha" title="Lista de todas las p谩ginas de la wiki que enlazan aqu铆 [j]" accesskey="j"><span>Lo que enlaza aqu铆</span></a></li><li id="t-recentchangeslinked" class="mw-list-item"><a href="/wiki/Especial:CambiosEnEnlazadas/M%C3%B3dulo:fecha" rel="nofollow" title="Cambios recientes en las p谩ginas que enlazan con esta [k]" accesskey="k"><span>Cambios relacionados</span></a></li><li id="t-upload" class="mw-list-item"><a href="//commons.wikimedia.org/wiki/Special:UploadWizard?uselang=es" title="Subir archivos [u]" accesskey="u"><span>Subir archivo</span></a></li><li id="t-specialpages" class="mw-list-item"><a href="/wiki/Especial:P%C3%A1ginasEspeciales" title="Lista de todas las p谩ginas especiales [q]" accesskey="q"><span>P谩ginas especiales</span></a></li><li id="t-permalink" class="mw-list-item"><a href="/w/index.php?title=M%C3%B3dulo:fecha&oldid=5298303" title="Enlace permanente a esta versi贸n de la p谩gina"><span>Enlace permanente</span></a></li><li id="t-info" class="mw-list-item"><a href="/w/index.php?title=M%C3%B3dulo:fecha&action=info" title="M谩s informaci贸n sobre esta p谩gina"><span>Informaci贸n de la p谩gina</span></a></li><li id="t-urlshortener" class="mw-list-item"><a href="/w/index.php?title=Especial:Acortador_de_URL&url=https%3A%2F%2Fes.wiktionary.org%2Fwiki%2FM%25C3%25B3dulo%3Afecha"><span>Obtener URL acortado</span></a></li><li id="t-urlshortener-qrcode" class="mw-list-item"><a href="/w/index.php?title=Especial:QrCode&url=https%3A%2F%2Fes.wiktionary.org%2Fwiki%2FM%25C3%25B3dulo%3Afecha"><span>Descargar c贸digo QR</span></a></li> </ul> </div> </div> <div id="p-electronpdfservice-sidebar-portlet-heading" class="vector-menu mw-portlet mw-portlet-electronpdfservice-sidebar-portlet-heading" > <div class="vector-menu-heading"> Imprimir/exportar </div> <div class="vector-menu-content"> <ul class="vector-menu-content-list"> <li id="electron-print_pdf" class="mw-list-item"><a href="/w/index.php?title=Especial:DownloadAsPdf&page=M%C3%B3dulo%3Afecha&action=show-download-screen"><span>Descargar en PDF</span></a></li><li id="t-print" class="mw-list-item"><a href="javascript:print();" rel="alternate" title="Versi贸n imprimible de esta p谩gina [p]" accesskey="p"><span>Versi贸n para imprimir</span></a></li> </ul> </div> </div> <div id="p-wikibase-otherprojects" class="vector-menu mw-portlet mw-portlet-wikibase-otherprojects emptyPortlet" > <div class="vector-menu-heading"> En otros proyectos </div> <div class="vector-menu-content"> <ul class="vector-menu-content-list"> </ul> </div> </div> </div> </div> </div> </div> </nav> </div> </div> </div> <div class="vector-column-end"> <div class="vector-sticky-pinned-container"> <nav class="vector-page-tools-landmark" aria-label="P谩gina de herramientas"> <div id="vector-page-tools-pinned-container" class="vector-pinned-container"> </div> </nav> <nav class="vector-appearance-landmark" aria-label="Apariencia"> <div id="vector-appearance-pinned-container" class="vector-pinned-container"> <div id="vector-appearance" class="vector-appearance vector-pinnable-element"> <div class="vector-pinnable-header vector-appearance-pinnable-header vector-pinnable-header-pinned" data-feature-name="appearance-pinned" data-pinnable-element-id="vector-appearance" data-pinned-container-id="vector-appearance-pinned-container" data-unpinned-container-id="vector-appearance-unpinned-container" > <div class="vector-pinnable-header-label">Apariencia</div> <button class="vector-pinnable-header-toggle-button vector-pinnable-header-pin-button" data-event-name="pinnable-header.vector-appearance.pin">mover a la barra lateral</button> <button class="vector-pinnable-header-toggle-button vector-pinnable-header-unpin-button" data-event-name="pinnable-header.vector-appearance.unpin">ocultar</button> </div> </div> </div> </nav> </div> </div> <div id="bodyContent" class="vector-body" aria-labelledby="firstHeading" data-mw-ve-target-container> <div class="vector-body-before-content"> <div class="mw-indicators"> </div> <div id="siteSub" class="noprint">De Wikcionario, el diccionario libre</div> </div> <div id="contentSub"><div id="mw-content-subtitle"></div></div> <div id="mw-content-text" class="mw-body-content"><div class="mw-content-ltr mw-parser-output" lang="es" dir="ltr"><p><i>La documentaci贸n para este m贸dulo puede ser creada en <a href="/w/index.php?title=M%C3%B3dulo:fecha/doc&action=edit&redlink=1" class="new" title="M贸dulo:fecha/doc (la p谩gina no existe)">M贸dulo:fecha/doc</a></i> </p><div class="mw-highlight mw-highlight-lang-lua mw-content-ltr mw-highlight-lines" dir="ltr"><pre><span></span><span id="L-1"><a href="#L-1"><span class="linenos" data-line="1"></span></a><span class="c1">---------------------------------------------------------------------------------------</span> </span><span id="L-2"><a href="#L-2"><span class="linenos" data-line="2"></span></a><span class="c1">-- Module for date and time calculations</span> </span><span id="L-3"><a href="#L-3"><span class="linenos" data-line="3"></span></a><span class="c1">--</span> </span><span id="L-4"><a href="#L-4"><span class="linenos" data-line="4"></span></a><span class="c1">-- Version 2.2.1</span> </span><span id="L-5"><a href="#L-5"><span class="linenos" data-line="5"></span></a><span class="c1">-- Copyright (C) 2005-2006, by Jas Latrix (jastejada@yahoo.com)</span> </span><span id="L-6"><a href="#L-6"><span class="linenos" data-line="6"></span></a><span class="c1">-- Copyright (C) 2013-2021, by Thijs Schreijer</span> </span><span id="L-7"><a href="#L-7"><span class="linenos" data-line="7"></span></a><span class="c1">-- Licensed under MIT, http://opensource.org/licenses/MIT</span> </span><span id="L-8"><a href="#L-8"><span class="linenos" data-line="8"></span></a><span class="c1">-- tomado de https://github.com/Tieske/date/blob/master/src/date.lua</span> </span><span id="L-9"><a href="#L-9"><span class="linenos" data-line="9"></span></a><span class="c1">-- TODOS LOS NOMBRES DE MESES Y D脥AS HAN SIDO TRADUCIDOS</span> </span><span id="L-10"><a href="#L-10"><span class="linenos" data-line="10"></span></a> </span><span id="L-11"><a href="#L-11"><span class="linenos" data-line="11"></span></a><span class="cm">--[[ CONSTANTS ]]</span><span class="c1">--</span> </span><span id="L-12"><a href="#L-12"><span class="linenos" data-line="12"></span></a><span class="kd">local</span> <span class="n">HOURPERDAY</span> <span class="o">=</span> <span class="mi">24</span> </span><span id="L-13"><a href="#L-13"><span class="linenos" data-line="13"></span></a><span class="kd">local</span> <span class="n">MINPERHOUR</span> <span class="o">=</span> <span class="mi">60</span> </span><span id="L-14"><a href="#L-14"><span class="linenos" data-line="14"></span></a><span class="kd">local</span> <span class="n">MINPERDAY</span> <span class="o">=</span> <span class="mi">1440</span> <span class="c1">-- 24*60</span> </span><span id="L-15"><a href="#L-15"><span class="linenos" data-line="15"></span></a><span class="kd">local</span> <span class="n">SECPERMIN</span> <span class="o">=</span> <span class="mi">60</span> </span><span id="L-16"><a href="#L-16"><span class="linenos" data-line="16"></span></a><span class="kd">local</span> <span class="n">SECPERHOUR</span> <span class="o">=</span> <span class="mi">3600</span> <span class="c1">-- 60*60</span> </span><span id="L-17"><a href="#L-17"><span class="linenos" data-line="17"></span></a><span class="kd">local</span> <span class="n">SECPERDAY</span> <span class="o">=</span> <span class="mi">86400</span> <span class="c1">-- 24*60*60</span> </span><span id="L-18"><a href="#L-18"><span class="linenos" data-line="18"></span></a><span class="kd">local</span> <span class="n">TICKSPERSEC</span> <span class="o">=</span> <span class="mi">1000000</span> </span><span id="L-19"><a href="#L-19"><span class="linenos" data-line="19"></span></a><span class="kd">local</span> <span class="n">TICKSPERDAY</span> <span class="o">=</span> <span class="mi">86400000000</span> </span><span id="L-20"><a href="#L-20"><span class="linenos" data-line="20"></span></a><span class="kd">local</span> <span class="n">TICKSPERHOUR</span> <span class="o">=</span> <span class="mi">3600000000</span> </span><span id="L-21"><a href="#L-21"><span class="linenos" data-line="21"></span></a><span class="kd">local</span> <span class="n">TICKSPERMIN</span> <span class="o">=</span> <span class="mi">60000000</span> </span><span id="L-22"><a href="#L-22"><span class="linenos" data-line="22"></span></a><span class="kd">local</span> <span class="n">DAYNUM_MAX</span> <span class="o">=</span> <span class="mi">365242500</span> <span class="c1">-- Sat Jan 01 1000000 00:00:00</span> </span><span id="L-23"><a href="#L-23"><span class="linenos" data-line="23"></span></a><span class="kd">local</span> <span class="n">DAYNUM_MIN</span> <span class="o">=</span> <span class="o">-</span><span class="mi">365242500</span> <span class="c1">-- Mon Jan 01 1000000 BCE 00:00:00</span> </span><span id="L-24"><a href="#L-24"><span class="linenos" data-line="24"></span></a><span class="kd">local</span> <span class="n">DAYNUM_DEF</span> <span class="o">=</span> <span class="mi">0</span> <span class="c1">-- Mon Jan 01 0001 00:00:00</span> </span><span id="L-25"><a href="#L-25"><span class="linenos" data-line="25"></span></a><span class="kd">local</span> <span class="n">_</span><span class="p">;</span> </span><span id="L-26"><a href="#L-26"><span class="linenos" data-line="26"></span></a><span class="cm">--[[ GLOBAL SETTINGS ]]</span><span class="c1">--</span> </span><span id="L-27"><a href="#L-27"><span class="linenos" data-line="27"></span></a><span class="kd">local</span> <span class="n">centuryflip</span> <span class="o">=</span> <span class="mi">0</span> <span class="c1">-- year >= centuryflip == 1900, < centuryflip == 2000</span> </span><span id="L-28"><a href="#L-28"><span class="linenos" data-line="28"></span></a><span class="cm">--[[ LOCAL ARE FASTER ]]</span><span class="c1">--</span> </span><span id="L-29"><a href="#L-29"><span class="linenos" data-line="29"></span></a><span class="kd">local</span> <span class="nb">type</span> <span class="o">=</span> <span class="nb">type</span> </span><span id="L-30"><a href="#L-30"><span class="linenos" data-line="30"></span></a><span class="kd">local</span> <span class="nb">pairs</span> <span class="o">=</span> <span class="nb">pairs</span> </span><span id="L-31"><a href="#L-31"><span class="linenos" data-line="31"></span></a><span class="kd">local</span> <span class="nb">error</span> <span class="o">=</span> <span class="nb">error</span> </span><span id="L-32"><a href="#L-32"><span class="linenos" data-line="32"></span></a><span class="kd">local</span> <span class="nb">assert</span> <span class="o">=</span> <span class="nb">assert</span> </span><span id="L-33"><a href="#L-33"><span class="linenos" data-line="33"></span></a><span class="kd">local</span> <span class="nb">tonumber</span> <span class="o">=</span> <span class="nb">tonumber</span> </span><span id="L-34"><a href="#L-34"><span class="linenos" data-line="34"></span></a><span class="kd">local</span> <span class="nb">tostring</span> <span class="o">=</span> <span class="nb">tostring</span> </span><span id="L-35"><a href="#L-35"><span class="linenos" data-line="35"></span></a><span class="kd">local</span> <span class="n">string</span> <span class="o">=</span> <span class="n">string</span> </span><span id="L-36"><a href="#L-36"><span class="linenos" data-line="36"></span></a><span class="kd">local</span> <span class="n">math</span> <span class="o">=</span> <span class="n">math</span> </span><span id="L-37"><a href="#L-37"><span class="linenos" data-line="37"></span></a><span class="kd">local</span> <span class="n">os</span> <span class="o">=</span> <span class="n">os</span> </span><span id="L-38"><a href="#L-38"><span class="linenos" data-line="38"></span></a><span class="kd">local</span> <span class="n">unpack</span> <span class="o">=</span> <span class="n">unpack</span> <span class="ow">or</span> <span class="nb">table.unpack</span> </span><span id="L-39"><a href="#L-39"><span class="linenos" data-line="39"></span></a><span class="kd">local</span> <span class="nb">setmetatable</span> <span class="o">=</span> <span class="nb">setmetatable</span> </span><span id="L-40"><a href="#L-40"><span class="linenos" data-line="40"></span></a><span class="kd">local</span> <span class="nb">getmetatable</span> <span class="o">=</span> <span class="nb">getmetatable</span> </span><span id="L-41"><a href="#L-41"><span class="linenos" data-line="41"></span></a><span class="cm">--[[ EXTRA FUNCTIONS ]]</span><span class="c1">--</span> </span><span id="L-42"><a href="#L-42"><span class="linenos" data-line="42"></span></a><span class="kd">local</span> <span class="n">fmt</span> <span class="o">=</span> <span class="nb">string.format</span> </span><span id="L-43"><a href="#L-43"><span class="linenos" data-line="43"></span></a><span class="kd">local</span> <span class="n">lwr</span> <span class="o">=</span> <span class="nb">string.lower</span> </span><span id="L-44"><a href="#L-44"><span class="linenos" data-line="44"></span></a><span class="kd">local</span> <span class="n">rep</span> <span class="o">=</span> <span class="nb">string.rep</span> </span><span id="L-45"><a href="#L-45"><span class="linenos" data-line="45"></span></a><span class="kd">local</span> <span class="n">len</span> <span class="o">=</span> <span class="nb">string.len</span> <span class="c1">-- luacheck: ignore</span> </span><span id="L-46"><a href="#L-46"><span class="linenos" data-line="46"></span></a><span class="kd">local</span> <span class="n">sub</span> <span class="o">=</span> <span class="nb">string.sub</span> </span><span id="L-47"><a href="#L-47"><span class="linenos" data-line="47"></span></a><span class="kd">local</span> <span class="n">gsub</span> <span class="o">=</span> <span class="nb">string.gsub</span> </span><span id="L-48"><a href="#L-48"><span class="linenos" data-line="48"></span></a><span class="kd">local</span> <span class="n">gmatch</span> <span class="o">=</span> <span class="nb">string.gmatch</span> <span class="ow">or</span> <span class="n">string</span><span class="p">.</span><span class="n">gfind</span> </span><span id="L-49"><a href="#L-49"><span class="linenos" data-line="49"></span></a><span class="kd">local</span> <span class="n">find</span> <span class="o">=</span> <span class="nb">string.find</span> </span><span id="L-50"><a href="#L-50"><span class="linenos" data-line="50"></span></a><span class="kd">local</span> <span class="n">ostime</span> <span class="o">=</span> <span class="nb">os.time</span> </span><span id="L-51"><a href="#L-51"><span class="linenos" data-line="51"></span></a><span class="kd">local</span> <span class="n">osdate</span> <span class="o">=</span> <span class="nb">os.date</span> </span><span id="L-52"><a href="#L-52"><span class="linenos" data-line="52"></span></a><span class="kd">local</span> <span class="n">floor</span> <span class="o">=</span> <span class="nb">math.floor</span> </span><span id="L-53"><a href="#L-53"><span class="linenos" data-line="53"></span></a><span class="kd">local</span> <span class="n">ceil</span> <span class="o">=</span> <span class="nb">math.ceil</span> </span><span id="L-54"><a href="#L-54"><span class="linenos" data-line="54"></span></a><span class="kd">local</span> <span class="n">abs</span> <span class="o">=</span> <span class="nb">math.abs</span> </span><span id="L-55"><a href="#L-55"><span class="linenos" data-line="55"></span></a><span class="c1">-- removes the decimal part of a number</span> </span><span id="L-56"><a href="#L-56"><span class="linenos" data-line="56"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">truncate</span><span class="p">(</span><span class="n">n</span><span class="p">)</span> <span class="n">n</span> <span class="o">=</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">n</span><span class="p">)</span> <span class="kr">return</span> <span class="n">n</span> <span class="ow">and</span> <span class="p">((</span><span class="n">n</span> <span class="o">></span> <span class="mi">0</span> <span class="ow">and</span> <span class="n">floor</span> <span class="ow">or</span> <span class="n">ceil</span><span class="p">)(</span><span class="n">n</span><span class="p">))</span> <span class="kr">end</span> </span><span id="L-57"><a href="#L-57"><span class="linenos" data-line="57"></span></a><span class="c1">-- returns the modulo n % d;</span> </span><span id="L-58"><a href="#L-58"><span class="linenos" data-line="58"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">mod</span><span class="p">(</span><span class="n">n</span><span class="p">,</span><span class="n">d</span><span class="p">)</span> <span class="kr">return</span> <span class="n">n</span> <span class="o">-</span> <span class="n">d</span><span class="o">*</span><span class="n">floor</span><span class="p">(</span><span class="n">n</span><span class="o">/</span><span class="n">d</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-59"><a href="#L-59"><span class="linenos" data-line="59"></span></a><span class="c1">-- is `str` in string list `tbl`, `ml` is the minimun len</span> </span><span id="L-60"><a href="#L-60"><span class="linenos" data-line="60"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">inlist</span><span class="p">(</span><span class="n">str</span><span class="p">,</span> <span class="n">tbl</span><span class="p">,</span> <span class="n">ml</span><span class="p">,</span> <span class="n">tn</span><span class="p">)</span> </span><span id="L-61"><a href="#L-61"><span class="linenos" data-line="61"></span></a> <span class="kd">local</span> <span class="n">sl</span> <span class="o">=</span> <span class="n">len</span><span class="p">(</span><span class="n">str</span><span class="p">)</span> </span><span id="L-62"><a href="#L-62"><span class="linenos" data-line="62"></span></a> <span class="kr">if</span> <span class="n">sl</span> <span class="o"><</span> <span class="p">(</span><span class="n">ml</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">)</span> <span class="kr">then</span> <span class="kr">return</span> <span class="kc">nil</span> <span class="kr">end</span> </span><span id="L-63"><a href="#L-63"><span class="linenos" data-line="63"></span></a> <span class="n">str</span> <span class="o">=</span> <span class="n">lwr</span><span class="p">(</span><span class="n">str</span><span class="p">)</span> </span><span id="L-64"><a href="#L-64"><span class="linenos" data-line="64"></span></a> <span class="kr">for</span> <span class="n">k</span><span class="p">,</span> <span class="n">v</span> <span class="kr">in</span> <span class="nb">pairs</span><span class="p">(</span><span class="n">tbl</span><span class="p">)</span> <span class="kr">do</span> </span><span id="L-65"><a href="#L-65"><span class="linenos" data-line="65"></span></a> <span class="kr">if</span> <span class="n">str</span> <span class="o">==</span> <span class="n">lwr</span><span class="p">(</span><span class="n">sub</span><span class="p">(</span><span class="n">v</span><span class="p">,</span> <span class="mi">1</span><span class="p">,</span> <span class="n">sl</span><span class="p">))</span> <span class="kr">then</span> </span><span id="L-66"><a href="#L-66"><span class="linenos" data-line="66"></span></a> <span class="kr">if</span> <span class="n">tn</span> <span class="kr">then</span> <span class="n">tn</span><span class="p">[</span><span class="mi">0</span><span class="p">]</span> <span class="o">=</span> <span class="n">k</span> <span class="kr">end</span> </span><span id="L-67"><a href="#L-67"><span class="linenos" data-line="67"></span></a> <span class="kr">return</span> <span class="n">k</span> </span><span id="L-68"><a href="#L-68"><span class="linenos" data-line="68"></span></a> <span class="kr">end</span> </span><span id="L-69"><a href="#L-69"><span class="linenos" data-line="69"></span></a> <span class="kr">end</span> </span><span id="L-70"><a href="#L-70"><span class="linenos" data-line="70"></span></a><span class="kr">end</span> </span><span id="L-71"><a href="#L-71"><span class="linenos" data-line="71"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">fnil</span><span class="p">()</span> <span class="kr">end</span> </span><span id="L-72"><a href="#L-72"><span class="linenos" data-line="72"></span></a><span class="cm">--[[ DATE FUNCTIONS ]]</span><span class="c1">--</span> </span><span id="L-73"><a href="#L-73"><span class="linenos" data-line="73"></span></a><span class="kd">local</span> <span class="n">DATE_EPOCH</span> <span class="c1">-- to be set later</span> </span><span id="L-74"><a href="#L-74"><span class="linenos" data-line="74"></span></a> </span><span id="L-75"><a href="#L-75"><span class="linenos" data-line="75"></span></a><span class="cm">--[[</span> </span><span id="L-76"><a href="#L-76"><span class="linenos" data-line="76"></span></a><span class="cm">-- Nombres en ingl茅s</span> </span><span id="L-77"><a href="#L-77"><span class="linenos" data-line="77"></span></a><span class="cm">local sl_weekdays = {</span> </span><span id="L-78"><a href="#L-78"><span class="linenos" data-line="78"></span></a><span class="cm"> [0]="Sunday",[1]="Monday",[2]="Tuesday",[3]="Wednesday",[4]="Thursday",[5]="Friday",[6]="Saturday",</span> </span><span id="L-79"><a href="#L-79"><span class="linenos" data-line="79"></span></a><span class="cm"> [7]="Sun",[8]="Mon",[9]="Tue",[10]="Wed",[11]="Thu",[12]="Fri",[13]="Sat",</span> </span><span id="L-80"><a href="#L-80"><span class="linenos" data-line="80"></span></a><span class="cm">}</span> </span><span id="L-81"><a href="#L-81"><span class="linenos" data-line="81"></span></a><span class="cm">local sl_meridian = {[-1]="AM", [1]="PM"}</span> </span><span id="L-82"><a href="#L-82"><span class="linenos" data-line="82"></span></a><span class="cm">local sl_months = {</span> </span><span id="L-83"><a href="#L-83"><span class="linenos" data-line="83"></span></a><span class="cm"> [00]="January", [01]="February", [02]="March",</span> </span><span id="L-84"><a href="#L-84"><span class="linenos" data-line="84"></span></a><span class="cm"> [03]="April", [04]="May", [05]="June",</span> </span><span id="L-85"><a href="#L-85"><span class="linenos" data-line="85"></span></a><span class="cm"> [06]="July", [07]="August", [08]="September",</span> </span><span id="L-86"><a href="#L-86"><span class="linenos" data-line="86"></span></a><span class="cm"> [09]="October", [10]="November", [11]="December",</span> </span><span id="L-87"><a href="#L-87"><span class="linenos" data-line="87"></span></a><span class="cm"> [12]="Jan", [13]="Feb", [14]="Mar",</span> </span><span id="L-88"><a href="#L-88"><span class="linenos" data-line="88"></span></a><span class="cm"> [15]="Apr", [16]="May", [17]="Jun",</span> </span><span id="L-89"><a href="#L-89"><span class="linenos" data-line="89"></span></a><span class="cm"> [18]="Jul", [19]="Aug", [20]="Sep",</span> </span><span id="L-90"><a href="#L-90"><span class="linenos" data-line="90"></span></a><span class="cm"> [21]="Oct", [22]="Nov", [23]="Dec",</span> </span><span id="L-91"><a href="#L-91"><span class="linenos" data-line="91"></span></a><span class="cm">}</span> </span><span id="L-92"><a href="#L-92"><span class="linenos" data-line="92"></span></a><span class="cm">-- added the '.2' to avoid collision, use `truncate` to remove</span> </span><span id="L-93"><a href="#L-93"><span class="linenos" data-line="93"></span></a><span class="cm">local sl_timezone = {</span> </span><span id="L-94"><a href="#L-94"><span class="linenos" data-line="94"></span></a><span class="cm"> [000]="utc", [0.2]="gmt",</span> </span><span id="L-95"><a href="#L-95"><span class="linenos" data-line="95"></span></a><span class="cm"> [300]="est", [240]="edt",</span> </span><span id="L-96"><a href="#L-96"><span class="linenos" data-line="96"></span></a><span class="cm"> [360]="cst", [300.2]="cdt",</span> </span><span id="L-97"><a href="#L-97"><span class="linenos" data-line="97"></span></a><span class="cm"> [420]="mst", [360.2]="mdt",</span> </span><span id="L-98"><a href="#L-98"><span class="linenos" data-line="98"></span></a><span class="cm"> [480]="pst", [420.2]="pdt",</span> </span><span id="L-99"><a href="#L-99"><span class="linenos" data-line="99"></span></a><span class="cm">}</span> </span><span id="L-100"><a href="#L-100"><span class="linenos" data-line="100"></span></a><span class="cm">]]</span><span class="c1">--</span> </span><span id="L-101"><a href="#L-101"><span class="linenos" data-line="101"></span></a> </span><span id="L-102"><a href="#L-102"><span class="linenos" data-line="102"></span></a><span class="c1">-- Nombres en espa帽ol</span> </span><span id="L-103"><a href="#L-103"><span class="linenos" data-line="103"></span></a><span class="kd">local</span> <span class="n">sl_weekdays</span> <span class="o">=</span> <span class="p">{</span> </span><span id="L-104"><a href="#L-104"><span class="linenos" data-line="104"></span></a> <span class="p">[</span><span class="mi">0</span><span class="p">]</span><span class="o">=</span><span class="s2">"domingo"</span><span class="p">,[</span><span class="mi">1</span><span class="p">]</span><span class="o">=</span><span class="s2">"lunes"</span><span class="p">,[</span><span class="mi">2</span><span class="p">]</span><span class="o">=</span><span class="s2">"martes"</span><span class="p">,[</span><span class="mi">3</span><span class="p">]</span><span class="o">=</span><span class="s2">"mi茅rcoles"</span><span class="p">,[</span><span class="mi">4</span><span class="p">]</span><span class="o">=</span><span class="s2">"jueves"</span><span class="p">,[</span><span class="mi">5</span><span class="p">]</span><span class="o">=</span><span class="s2">"viernes"</span><span class="p">,[</span><span class="mi">6</span><span class="p">]</span><span class="o">=</span><span class="s2">"s谩bado"</span><span class="p">,</span> </span><span id="L-105"><a href="#L-105"><span class="linenos" data-line="105"></span></a> <span class="p">[</span><span class="mi">7</span><span class="p">]</span><span class="o">=</span><span class="s2">"dom"</span><span class="p">,[</span><span class="mi">8</span><span class="p">]</span><span class="o">=</span><span class="s2">"lun"</span><span class="p">,[</span><span class="mi">9</span><span class="p">]</span><span class="o">=</span><span class="s2">"mar"</span><span class="p">,[</span><span class="mi">10</span><span class="p">]</span><span class="o">=</span><span class="s2">"mi茅"</span><span class="p">,[</span><span class="mi">11</span><span class="p">]</span><span class="o">=</span><span class="s2">"jue"</span><span class="p">,[</span><span class="mi">12</span><span class="p">]</span><span class="o">=</span><span class="s2">"vie"</span><span class="p">,[</span><span class="mi">13</span><span class="p">]</span><span class="o">=</span><span class="s2">"s谩b"</span><span class="p">,</span> </span><span id="L-106"><a href="#L-106"><span class="linenos" data-line="106"></span></a><span class="p">}</span> </span><span id="L-107"><a href="#L-107"><span class="linenos" data-line="107"></span></a><span class="kd">local</span> <span class="n">sl_meridian</span> <span class="o">=</span> <span class="p">{[</span><span class="o">-</span><span class="mi">1</span><span class="p">]</span><span class="o">=</span><span class="s2">"AM"</span><span class="p">,</span> <span class="p">[</span><span class="mi">1</span><span class="p">]</span><span class="o">=</span><span class="s2">"PM"</span><span class="p">}</span> </span><span id="L-108"><a href="#L-108"><span class="linenos" data-line="108"></span></a><span class="kd">local</span> <span class="n">sl_months</span> <span class="o">=</span> <span class="p">{</span> </span><span id="L-109"><a href="#L-109"><span class="linenos" data-line="109"></span></a> <span class="p">[</span><span class="mi">00</span><span class="p">]</span><span class="o">=</span><span class="s2">"enero"</span><span class="p">,</span> <span class="p">[</span><span class="mi">01</span><span class="p">]</span><span class="o">=</span><span class="s2">"febrero"</span><span class="p">,</span> <span class="p">[</span><span class="mi">02</span><span class="p">]</span><span class="o">=</span><span class="s2">"marzo"</span><span class="p">,</span> </span><span id="L-110"><a href="#L-110"><span class="linenos" data-line="110"></span></a> <span class="p">[</span><span class="mi">03</span><span class="p">]</span><span class="o">=</span><span class="s2">"abril"</span><span class="p">,</span> <span class="p">[</span><span class="mi">04</span><span class="p">]</span><span class="o">=</span><span class="s2">"mayo"</span><span class="p">,</span> <span class="p">[</span><span class="mi">05</span><span class="p">]</span><span class="o">=</span><span class="s2">"junio"</span><span class="p">,</span> </span><span id="L-111"><a href="#L-111"><span class="linenos" data-line="111"></span></a> <span class="p">[</span><span class="mi">06</span><span class="p">]</span><span class="o">=</span><span class="s2">"julio"</span><span class="p">,</span> <span class="p">[</span><span class="mi">07</span><span class="p">]</span><span class="o">=</span><span class="s2">"agosto"</span><span class="p">,</span> <span class="p">[</span><span class="mi">08</span><span class="p">]</span><span class="o">=</span><span class="s2">"setiembre"</span><span class="p">,</span> </span><span id="L-112"><a href="#L-112"><span class="linenos" data-line="112"></span></a> <span class="p">[</span><span class="mi">09</span><span class="p">]</span><span class="o">=</span><span class="s2">"octubre"</span><span class="p">,</span> <span class="p">[</span><span class="mi">10</span><span class="p">]</span><span class="o">=</span><span class="s2">"noviembre"</span><span class="p">,</span> <span class="p">[</span><span class="mi">11</span><span class="p">]</span><span class="o">=</span><span class="s2">"diciembre"</span><span class="p">,</span> </span><span id="L-113"><a href="#L-113"><span class="linenos" data-line="113"></span></a> <span class="p">[</span><span class="mi">12</span><span class="p">]</span><span class="o">=</span><span class="s2">"ene"</span><span class="p">,</span> <span class="p">[</span><span class="mi">13</span><span class="p">]</span><span class="o">=</span><span class="s2">"feb"</span><span class="p">,</span> <span class="p">[</span><span class="mi">14</span><span class="p">]</span><span class="o">=</span><span class="s2">"mar"</span><span class="p">,</span> </span><span id="L-114"><a href="#L-114"><span class="linenos" data-line="114"></span></a> <span class="p">[</span><span class="mi">15</span><span class="p">]</span><span class="o">=</span><span class="s2">"abr"</span><span class="p">,</span> <span class="p">[</span><span class="mi">16</span><span class="p">]</span><span class="o">=</span><span class="s2">"may"</span><span class="p">,</span> <span class="p">[</span><span class="mi">17</span><span class="p">]</span><span class="o">=</span><span class="s2">"jun"</span><span class="p">,</span> </span><span id="L-115"><a href="#L-115"><span class="linenos" data-line="115"></span></a> <span class="p">[</span><span class="mi">18</span><span class="p">]</span><span class="o">=</span><span class="s2">"jul"</span><span class="p">,</span> <span class="p">[</span><span class="mi">19</span><span class="p">]</span><span class="o">=</span><span class="s2">"ago"</span><span class="p">,</span> <span class="p">[</span><span class="mi">20</span><span class="p">]</span><span class="o">=</span><span class="s2">"set"</span><span class="p">,</span> </span><span id="L-116"><a href="#L-116"><span class="linenos" data-line="116"></span></a> <span class="p">[</span><span class="mi">21</span><span class="p">]</span><span class="o">=</span><span class="s2">"oct"</span><span class="p">,</span> <span class="p">[</span><span class="mi">22</span><span class="p">]</span><span class="o">=</span><span class="s2">"nov"</span><span class="p">,</span> <span class="p">[</span><span class="mi">23</span><span class="p">]</span><span class="o">=</span><span class="s2">"dic"</span><span class="p">,</span> </span><span id="L-117"><a href="#L-117"><span class="linenos" data-line="117"></span></a><span class="p">}</span> </span><span id="L-118"><a href="#L-118"><span class="linenos" data-line="118"></span></a><span class="c1">-- added the '.2' to avoid collision, use `truncate` to remove</span> </span><span id="L-119"><a href="#L-119"><span class="linenos" data-line="119"></span></a><span class="kd">local</span> <span class="n">sl_timezone</span> <span class="o">=</span> <span class="p">{</span> </span><span id="L-120"><a href="#L-120"><span class="linenos" data-line="120"></span></a> <span class="p">[</span><span class="mi">000</span><span class="p">]</span><span class="o">=</span><span class="s2">"utc"</span><span class="p">,</span> <span class="p">[</span><span class="mf">0.2</span><span class="p">]</span><span class="o">=</span><span class="s2">"gmt"</span><span class="p">,</span> </span><span id="L-121"><a href="#L-121"><span class="linenos" data-line="121"></span></a> <span class="p">[</span><span class="mi">300</span><span class="p">]</span><span class="o">=</span><span class="s2">"est"</span><span class="p">,</span> <span class="p">[</span><span class="mi">240</span><span class="p">]</span><span class="o">=</span><span class="s2">"edt"</span><span class="p">,</span> </span><span id="L-122"><a href="#L-122"><span class="linenos" data-line="122"></span></a> <span class="p">[</span><span class="mi">360</span><span class="p">]</span><span class="o">=</span><span class="s2">"cst"</span><span class="p">,</span> <span class="p">[</span><span class="mf">300.2</span><span class="p">]</span><span class="o">=</span><span class="s2">"cdt"</span><span class="p">,</span> </span><span id="L-123"><a href="#L-123"><span class="linenos" data-line="123"></span></a> <span class="p">[</span><span class="mi">420</span><span class="p">]</span><span class="o">=</span><span class="s2">"mst"</span><span class="p">,</span> <span class="p">[</span><span class="mf">360.2</span><span class="p">]</span><span class="o">=</span><span class="s2">"mdt"</span><span class="p">,</span> </span><span id="L-124"><a href="#L-124"><span class="linenos" data-line="124"></span></a> <span class="p">[</span><span class="mi">480</span><span class="p">]</span><span class="o">=</span><span class="s2">"pst"</span><span class="p">,</span> <span class="p">[</span><span class="mf">420.2</span><span class="p">]</span><span class="o">=</span><span class="s2">"pdt"</span><span class="p">,</span> </span><span id="L-125"><a href="#L-125"><span class="linenos" data-line="125"></span></a><span class="p">}</span> </span><span id="L-126"><a href="#L-126"><span class="linenos" data-line="126"></span></a> </span><span id="L-127"><a href="#L-127"><span class="linenos" data-line="127"></span></a><span class="c1">-- set the day fraction resolution</span> </span><span id="L-128"><a href="#L-128"><span class="linenos" data-line="128"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">setticks</span><span class="p">(</span><span class="n">t</span><span class="p">)</span> </span><span id="L-129"><a href="#L-129"><span class="linenos" data-line="129"></span></a> <span class="n">TICKSPERSEC</span> <span class="o">=</span> <span class="n">t</span><span class="p">;</span> </span><span id="L-130"><a href="#L-130"><span class="linenos" data-line="130"></span></a> <span class="n">TICKSPERDAY</span> <span class="o">=</span> <span class="n">SECPERDAY</span><span class="o">*</span><span class="n">TICKSPERSEC</span> </span><span id="L-131"><a href="#L-131"><span class="linenos" data-line="131"></span></a> <span class="n">TICKSPERHOUR</span><span class="o">=</span> <span class="n">SECPERHOUR</span><span class="o">*</span><span class="n">TICKSPERSEC</span> </span><span id="L-132"><a href="#L-132"><span class="linenos" data-line="132"></span></a> <span class="n">TICKSPERMIN</span> <span class="o">=</span> <span class="n">SECPERMIN</span><span class="o">*</span><span class="n">TICKSPERSEC</span> </span><span id="L-133"><a href="#L-133"><span class="linenos" data-line="133"></span></a><span class="kr">end</span> </span><span id="L-134"><a href="#L-134"><span class="linenos" data-line="134"></span></a><span class="c1">-- is year y leap year?</span> </span><span id="L-135"><a href="#L-135"><span class="linenos" data-line="135"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">isleapyear</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> <span class="c1">-- y must be int!</span> </span><span id="L-136"><a href="#L-136"><span class="linenos" data-line="136"></span></a> <span class="kr">return</span> <span class="p">(</span><span class="n">mod</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="mi">4</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span> <span class="ow">and</span> <span class="p">(</span><span class="n">mod</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="mi">100</span><span class="p">)</span> <span class="o">~=</span> <span class="mi">0</span> <span class="ow">or</span> <span class="n">mod</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="mi">400</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span><span class="p">))</span> </span><span id="L-137"><a href="#L-137"><span class="linenos" data-line="137"></span></a><span class="kr">end</span> </span><span id="L-138"><a href="#L-138"><span class="linenos" data-line="138"></span></a><span class="c1">-- day since year 0</span> </span><span id="L-139"><a href="#L-139"><span class="linenos" data-line="139"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">dayfromyear</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> <span class="c1">-- y must be int!</span> </span><span id="L-140"><a href="#L-140"><span class="linenos" data-line="140"></span></a> <span class="kr">return</span> <span class="mi">365</span><span class="o">*</span><span class="n">y</span> <span class="o">+</span> <span class="n">floor</span><span class="p">(</span><span class="n">y</span><span class="o">/</span><span class="mi">4</span><span class="p">)</span> <span class="o">-</span> <span class="n">floor</span><span class="p">(</span><span class="n">y</span><span class="o">/</span><span class="mi">100</span><span class="p">)</span> <span class="o">+</span> <span class="n">floor</span><span class="p">(</span><span class="n">y</span><span class="o">/</span><span class="mi">400</span><span class="p">)</span> </span><span id="L-141"><a href="#L-141"><span class="linenos" data-line="141"></span></a><span class="kr">end</span> </span><span id="L-142"><a href="#L-142"><span class="linenos" data-line="142"></span></a> </span><span id="L-143"><a href="#L-143"><span class="linenos" data-line="143"></span></a><span class="c1">-- day number from date, month is zero base</span> </span><span id="L-144"><a href="#L-144"><span class="linenos" data-line="144"></span></a><span class="c1">-- FUNCI脫N VIEJA</span> </span><span id="L-145"><a href="#L-145"><span class="linenos" data-line="145"></span></a><span class="cm">--[[</span> </span><span id="L-146"><a href="#L-146"><span class="linenos" data-line="146"></span></a><span class="cm">local function makedaynum(y, m, d)</span> </span><span id="L-147"><a href="#L-147"><span class="linenos" data-line="147"></span></a><span class="cm"> local mm = mod(mod(m,12) + 10, 12)</span> </span><span id="L-148"><a href="#L-148"><span class="linenos" data-line="148"></span></a><span class="cm"> return dayfromyear(y + floor(m/12) - floor(mm/10)) + floor((mm*306 + 5)/10) + d - 307</span> </span><span id="L-149"><a href="#L-149"><span class="linenos" data-line="149"></span></a><span class="cm">end</span> </span><span id="L-150"><a href="#L-150"><span class="linenos" data-line="150"></span></a><span class="cm">]]</span><span class="c1">--</span> </span><span id="L-151"><a href="#L-151"><span class="linenos" data-line="151"></span></a> </span><span id="L-152"><a href="#L-152"><span class="linenos" data-line="152"></span></a><span class="c1">-- day number from date, month is zero base</span> </span><span id="L-153"><a href="#L-153"><span class="linenos" data-line="153"></span></a><span class="c1">-- A脩ADIDO: VALIDACI脫N</span> </span><span id="L-154"><a href="#L-154"><span class="linenos" data-line="154"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">makedaynum</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">d</span><span class="p">)</span> </span><span id="L-155"><a href="#L-155"><span class="linenos" data-line="155"></span></a> <span class="kr">if</span> <span class="n">m</span> <span class="o"><</span> <span class="mi">0</span> <span class="ow">or</span> <span class="n">m</span> <span class="o">></span> <span class="mi">11</span> <span class="ow">or</span> <span class="n">d</span> <span class="o"><</span> <span class="mi">1</span> <span class="kr">then</span> </span><span id="L-156"><a href="#L-156"><span class="linenos" data-line="156"></span></a> <span class="nb">error</span><span class="p">(</span><span class="s2">"Fecha no respeta los l铆mites de d铆a o mes"</span><span class="p">)</span> </span><span id="L-157"><a href="#L-157"><span class="linenos" data-line="157"></span></a> <span class="kr">end</span> </span><span id="L-158"><a href="#L-158"><span class="linenos" data-line="158"></span></a> </span><span id="L-159"><a href="#L-159"><span class="linenos" data-line="159"></span></a> <span class="kd">local</span> <span class="n">dmax</span> <span class="o">=</span> <span class="mi">31</span> <span class="c1">--si el mes es 0 (enero), 2 (marzo), 4 (mayo), 6 (julio), 7 (agosto), 9 (octubre), 11 (diciembre)</span> </span><span id="L-160"><a href="#L-160"><span class="linenos" data-line="160"></span></a> </span><span id="L-161"><a href="#L-161"><span class="linenos" data-line="161"></span></a> <span class="kr">if</span> <span class="n">m</span> <span class="o">==</span> <span class="mi">3</span> <span class="ow">or</span> <span class="n">m</span> <span class="o">==</span> <span class="mi">5</span> <span class="ow">or</span> <span class="n">m</span> <span class="o">==</span> <span class="mi">8</span> <span class="ow">or</span> <span class="n">m</span> <span class="o">==</span> <span class="mi">10</span> <span class="kr">then</span> <span class="c1">-- abril, junio, setiembre, noviembre</span> </span><span id="L-162"><a href="#L-162"><span class="linenos" data-line="162"></span></a> <span class="n">dmax</span> <span class="o">=</span> <span class="mi">30</span> </span><span id="L-163"><a href="#L-163"><span class="linenos" data-line="163"></span></a> <span class="kr">elseif</span> <span class="n">m</span> <span class="o">==</span> <span class="mi">1</span> <span class="kr">then</span> <span class="c1">--febrero</span> </span><span id="L-164"><a href="#L-164"><span class="linenos" data-line="164"></span></a> <span class="kr">if</span> <span class="n">isleapyear</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> <span class="kr">then</span> <span class="c1">-- febrero y bisiesto</span> </span><span id="L-165"><a href="#L-165"><span class="linenos" data-line="165"></span></a> <span class="n">dmax</span> <span class="o">=</span> <span class="mi">29</span> </span><span id="L-166"><a href="#L-166"><span class="linenos" data-line="166"></span></a> <span class="kr">else</span> <span class="c1">--febrero y no bisiesto</span> </span><span id="L-167"><a href="#L-167"><span class="linenos" data-line="167"></span></a> <span class="n">dmax</span> <span class="o">=</span> <span class="mi">28</span> </span><span id="L-168"><a href="#L-168"><span class="linenos" data-line="168"></span></a> <span class="kr">end</span> </span><span id="L-169"><a href="#L-169"><span class="linenos" data-line="169"></span></a> <span class="kr">end</span> </span><span id="L-170"><a href="#L-170"><span class="linenos" data-line="170"></span></a> </span><span id="L-171"><a href="#L-171"><span class="linenos" data-line="171"></span></a> <span class="kr">if</span> <span class="n">d</span> <span class="o">></span> <span class="n">dmax</span> <span class="kr">then</span> </span><span id="L-172"><a href="#L-172"><span class="linenos" data-line="172"></span></a> <span class="nb">error</span><span class="p">(</span><span class="s2">"Fecha no respeta los l铆mites de d铆a o mes"</span><span class="p">)</span> </span><span id="L-173"><a href="#L-173"><span class="linenos" data-line="173"></span></a> <span class="kr">end</span> </span><span id="L-174"><a href="#L-174"><span class="linenos" data-line="174"></span></a> </span><span id="L-175"><a href="#L-175"><span class="linenos" data-line="175"></span></a> <span class="kd">local</span> <span class="n">mm</span> <span class="o">=</span> <span class="n">mod</span><span class="p">(</span><span class="n">m</span> <span class="o">+</span> <span class="mi">10</span><span class="p">,</span> <span class="mi">12</span><span class="p">)</span> </span><span id="L-176"><a href="#L-176"><span class="linenos" data-line="176"></span></a> <span class="kr">return</span> <span class="n">dayfromyear</span><span class="p">(</span><span class="n">y</span> <span class="o">+</span> <span class="n">floor</span><span class="p">(</span><span class="n">m</span><span class="o">/</span><span class="mi">12</span><span class="p">)</span> <span class="o">-</span> <span class="n">floor</span><span class="p">(</span><span class="n">mm</span><span class="o">/</span><span class="mi">10</span><span class="p">))</span> <span class="o">+</span> <span class="n">floor</span><span class="p">((</span><span class="n">mm</span><span class="o">*</span><span class="mi">306</span> <span class="o">+</span> <span class="mi">5</span><span class="p">)</span><span class="o">/</span><span class="mi">10</span><span class="p">)</span> <span class="o">+</span> <span class="n">d</span> <span class="o">-</span> <span class="mi">307</span> </span><span id="L-177"><a href="#L-177"><span class="linenos" data-line="177"></span></a><span class="kr">end</span> </span><span id="L-178"><a href="#L-178"><span class="linenos" data-line="178"></span></a> </span><span id="L-179"><a href="#L-179"><span class="linenos" data-line="179"></span></a><span class="c1">-- date from day number, month is zero base</span> </span><span id="L-180"><a href="#L-180"><span class="linenos" data-line="180"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">breakdaynum</span><span class="p">(</span><span class="n">g</span><span class="p">)</span> </span><span id="L-181"><a href="#L-181"><span class="linenos" data-line="181"></span></a> <span class="kd">local</span> <span class="n">g</span> <span class="o">=</span> <span class="n">g</span> <span class="o">+</span> <span class="mi">306</span> </span><span id="L-182"><a href="#L-182"><span class="linenos" data-line="182"></span></a> <span class="kd">local</span> <span class="n">y</span> <span class="o">=</span> <span class="n">floor</span><span class="p">((</span><span class="mi">10000</span><span class="o">*</span><span class="n">g</span> <span class="o">+</span> <span class="mi">14780</span><span class="p">)</span><span class="o">/</span><span class="mi">3652425</span><span class="p">)</span> </span><span id="L-183"><a href="#L-183"><span class="linenos" data-line="183"></span></a> <span class="kd">local</span> <span class="n">d</span> <span class="o">=</span> <span class="n">g</span> <span class="o">-</span> <span class="n">dayfromyear</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> </span><span id="L-184"><a href="#L-184"><span class="linenos" data-line="184"></span></a> <span class="kr">if</span> <span class="n">d</span> <span class="o"><</span> <span class="mi">0</span> <span class="kr">then</span> <span class="n">y</span> <span class="o">=</span> <span class="n">y</span> <span class="o">-</span> <span class="mi">1</span><span class="p">;</span> <span class="n">d</span> <span class="o">=</span> <span class="n">g</span> <span class="o">-</span> <span class="n">dayfromyear</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-185"><a href="#L-185"><span class="linenos" data-line="185"></span></a> <span class="kd">local</span> <span class="n">mi</span> <span class="o">=</span> <span class="n">floor</span><span class="p">((</span><span class="mi">100</span><span class="o">*</span><span class="n">d</span> <span class="o">+</span> <span class="mi">52</span><span class="p">)</span><span class="o">/</span><span class="mi">3060</span><span class="p">)</span> </span><span id="L-186"><a href="#L-186"><span class="linenos" data-line="186"></span></a> <span class="kr">return</span> <span class="p">(</span><span class="n">floor</span><span class="p">((</span><span class="n">mi</span> <span class="o">+</span> <span class="mi">2</span><span class="p">)</span><span class="o">/</span><span class="mi">12</span><span class="p">)</span> <span class="o">+</span> <span class="n">y</span><span class="p">),</span> <span class="n">mod</span><span class="p">(</span><span class="n">mi</span> <span class="o">+</span> <span class="mi">2</span><span class="p">,</span><span class="mi">12</span><span class="p">),</span> <span class="p">(</span><span class="n">d</span> <span class="o">-</span> <span class="n">floor</span><span class="p">((</span><span class="n">mi</span><span class="o">*</span><span class="mi">306</span> <span class="o">+</span> <span class="mi">5</span><span class="p">)</span><span class="o">/</span><span class="mi">10</span><span class="p">)</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> </span><span id="L-187"><a href="#L-187"><span class="linenos" data-line="187"></span></a><span class="kr">end</span> </span><span id="L-188"><a href="#L-188"><span class="linenos" data-line="188"></span></a><span class="cm">--[[ for floats or int32 Lua Number data type</span> </span><span id="L-189"><a href="#L-189"><span class="linenos" data-line="189"></span></a><span class="cm">local function breakdaynum2(g)</span> </span><span id="L-190"><a href="#L-190"><span class="linenos" data-line="190"></span></a><span class="cm"> local g, n = g + 306;</span> </span><span id="L-191"><a href="#L-191"><span class="linenos" data-line="191"></span></a><span class="cm"> local n400 = floor(g/DI400Y);n = mod(g,DI400Y);</span> </span><span id="L-192"><a href="#L-192"><span class="linenos" data-line="192"></span></a><span class="cm"> local n100 = floor(n/DI100Y);n = mod(n,DI100Y);</span> </span><span id="L-193"><a href="#L-193"><span class="linenos" data-line="193"></span></a><span class="cm"> local n004 = floor(n/DI4Y); n = mod(n,DI4Y);</span> </span><span id="L-194"><a href="#L-194"><span class="linenos" data-line="194"></span></a><span class="cm"> local n001 = floor(n/365); n = mod(n,365);</span> </span><span id="L-195"><a href="#L-195"><span class="linenos" data-line="195"></span></a><span class="cm"> local y = (n400*400) + (n100*100) + (n004*4) + n001 - ((n001 == 4 or n100 == 4) and 1 or 0)</span> </span><span id="L-196"><a href="#L-196"><span class="linenos" data-line="196"></span></a><span class="cm"> local d = g - dayfromyear(y)</span> </span><span id="L-197"><a href="#L-197"><span class="linenos" data-line="197"></span></a><span class="cm"> local mi = floor((100*d + 52)/3060)</span> </span><span id="L-198"><a href="#L-198"><span class="linenos" data-line="198"></span></a><span class="cm"> return (floor((mi + 2)/12) + y), mod(mi + 2,12), (d - floor((mi*306 + 5)/10) + 1)</span> </span><span id="L-199"><a href="#L-199"><span class="linenos" data-line="199"></span></a><span class="cm">end</span> </span><span id="L-200"><a href="#L-200"><span class="linenos" data-line="200"></span></a><span class="cm">]]</span> </span><span id="L-201"><a href="#L-201"><span class="linenos" data-line="201"></span></a><span class="c1">-- day fraction from time</span> </span><span id="L-202"><a href="#L-202"><span class="linenos" data-line="202"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">makedayfrc</span><span class="p">(</span><span class="n">h</span><span class="p">,</span><span class="n">r</span><span class="p">,</span><span class="n">s</span><span class="p">,</span><span class="n">t</span><span class="p">)</span> </span><span id="L-203"><a href="#L-203"><span class="linenos" data-line="203"></span></a> <span class="kr">if</span> <span class="n">h</span> <span class="o"><</span> <span class="mi">0</span> <span class="ow">or</span> <span class="n">h</span> <span class="o">></span> <span class="mi">23</span> <span class="ow">or</span> <span class="n">r</span> <span class="o"><</span> <span class="mi">0</span> <span class="ow">or</span> <span class="n">r</span> <span class="o">></span> <span class="mi">59</span> <span class="ow">or</span> <span class="n">s</span> <span class="o"><</span> <span class="mi">0</span> <span class="ow">or</span> <span class="n">s</span> <span class="o">></span> <span class="mi">59</span> <span class="kr">then</span> </span><span id="L-204"><a href="#L-204"><span class="linenos" data-line="204"></span></a> <span class="nb">error</span><span class="p">(</span><span class="s2">"La hora del d铆a especificada no respeta los l铆mites m谩ximos"</span><span class="p">)</span> </span><span id="L-205"><a href="#L-205"><span class="linenos" data-line="205"></span></a> <span class="kr">end</span> </span><span id="L-206"><a href="#L-206"><span class="linenos" data-line="206"></span></a> <span class="kr">return</span> <span class="p">((</span><span class="n">h</span><span class="o">*</span><span class="mi">60</span> <span class="o">+</span> <span class="n">r</span><span class="p">)</span><span class="o">*</span><span class="mi">60</span> <span class="o">+</span> <span class="n">s</span><span class="p">)</span><span class="o">*</span><span class="n">TICKSPERSEC</span> <span class="o">+</span> <span class="n">t</span> </span><span id="L-207"><a href="#L-207"><span class="linenos" data-line="207"></span></a><span class="kr">end</span> </span><span id="L-208"><a href="#L-208"><span class="linenos" data-line="208"></span></a><span class="c1">-- time from day fraction</span> </span><span id="L-209"><a href="#L-209"><span class="linenos" data-line="209"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">breakdayfrc</span><span class="p">(</span><span class="n">df</span><span class="p">)</span> </span><span id="L-210"><a href="#L-210"><span class="linenos" data-line="210"></span></a> <span class="kr">return</span> </span><span id="L-211"><a href="#L-211"><span class="linenos" data-line="211"></span></a> <span class="n">mod</span><span class="p">(</span><span class="n">floor</span><span class="p">(</span><span class="n">df</span><span class="o">/</span><span class="n">TICKSPERHOUR</span><span class="p">),</span><span class="n">HOURPERDAY</span><span class="p">),</span> </span><span id="L-212"><a href="#L-212"><span class="linenos" data-line="212"></span></a> <span class="n">mod</span><span class="p">(</span><span class="n">floor</span><span class="p">(</span><span class="n">df</span><span class="o">/</span><span class="n">TICKSPERMIN</span> <span class="p">),</span><span class="n">MINPERHOUR</span><span class="p">),</span> </span><span id="L-213"><a href="#L-213"><span class="linenos" data-line="213"></span></a> <span class="n">mod</span><span class="p">(</span><span class="n">floor</span><span class="p">(</span><span class="n">df</span><span class="o">/</span><span class="n">TICKSPERSEC</span> <span class="p">),</span><span class="n">SECPERMIN</span><span class="p">),</span> </span><span id="L-214"><a href="#L-214"><span class="linenos" data-line="214"></span></a> <span class="n">mod</span><span class="p">(</span><span class="n">df</span><span class="p">,</span><span class="n">TICKSPERSEC</span><span class="p">)</span> </span><span id="L-215"><a href="#L-215"><span class="linenos" data-line="215"></span></a><span class="kr">end</span> </span><span id="L-216"><a href="#L-216"><span class="linenos" data-line="216"></span></a><span class="c1">-- weekday sunday = 0, monday = 1 ...</span> </span><span id="L-217"><a href="#L-217"><span class="linenos" data-line="217"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">weekday</span><span class="p">(</span><span class="n">dn</span><span class="p">)</span> <span class="kr">return</span> <span class="n">mod</span><span class="p">(</span><span class="n">dn</span> <span class="o">+</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">7</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-218"><a href="#L-218"><span class="linenos" data-line="218"></span></a><span class="c1">-- yearday 0 based ...</span> </span><span id="L-219"><a href="#L-219"><span class="linenos" data-line="219"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">yearday</span><span class="p">(</span><span class="n">dn</span><span class="p">)</span> </span><span id="L-220"><a href="#L-220"><span class="linenos" data-line="220"></span></a> <span class="kr">return</span> <span class="n">dn</span> <span class="o">-</span> <span class="n">dayfromyear</span><span class="p">((</span><span class="n">breakdaynum</span><span class="p">(</span><span class="n">dn</span><span class="p">))</span><span class="o">-</span><span class="mi">1</span><span class="p">)</span> </span><span id="L-221"><a href="#L-221"><span class="linenos" data-line="221"></span></a><span class="kr">end</span> </span><span id="L-222"><a href="#L-222"><span class="linenos" data-line="222"></span></a><span class="c1">-- parse v as a month</span> </span><span id="L-223"><a href="#L-223"><span class="linenos" data-line="223"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">getmontharg</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> </span><span id="L-224"><a href="#L-224"><span class="linenos" data-line="224"></span></a> <span class="kd">local</span> <span class="n">m</span> <span class="o">=</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">v</span><span class="p">);</span> </span><span id="L-225"><a href="#L-225"><span class="linenos" data-line="225"></span></a> <span class="kr">return</span> <span class="p">(</span><span class="n">m</span> <span class="ow">and</span> <span class="n">truncate</span><span class="p">(</span><span class="n">m</span> <span class="o">-</span> <span class="mi">1</span><span class="p">))</span> <span class="ow">or</span> <span class="n">inlist</span><span class="p">(</span><span class="nb">tostring</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> <span class="ow">or</span> <span class="s2">""</span><span class="p">,</span> <span class="n">sl_months</span><span class="p">,</span> <span class="mi">2</span><span class="p">)</span> </span><span id="L-226"><a href="#L-226"><span class="linenos" data-line="226"></span></a><span class="kr">end</span> </span><span id="L-227"><a href="#L-227"><span class="linenos" data-line="227"></span></a><span class="c1">-- get daynum of isoweek one of year y</span> </span><span id="L-228"><a href="#L-228"><span class="linenos" data-line="228"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">isow1</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> </span><span id="L-229"><a href="#L-229"><span class="linenos" data-line="229"></span></a> <span class="kd">local</span> <span class="n">f</span> <span class="o">=</span> <span class="n">makedaynum</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="mi">0</span><span class="p">,</span> <span class="mi">4</span><span class="p">)</span> <span class="c1">-- get the date for the 4-Jan of year `y`</span> </span><span id="L-230"><a href="#L-230"><span class="linenos" data-line="230"></span></a> <span class="kd">local</span> <span class="n">d</span> <span class="o">=</span> <span class="n">weekday</span><span class="p">(</span><span class="n">f</span><span class="p">)</span> </span><span id="L-231"><a href="#L-231"><span class="linenos" data-line="231"></span></a> <span class="n">d</span> <span class="o">=</span> <span class="n">d</span> <span class="o">==</span> <span class="mi">0</span> <span class="ow">and</span> <span class="mi">7</span> <span class="ow">or</span> <span class="n">d</span> <span class="c1">-- get the ISO day number, 1 == Monday, 7 == Sunday</span> </span><span id="L-232"><a href="#L-232"><span class="linenos" data-line="232"></span></a> <span class="kr">return</span> <span class="n">f</span> <span class="o">+</span> <span class="p">(</span><span class="mi">1</span> <span class="o">-</span> <span class="n">d</span><span class="p">)</span> </span><span id="L-233"><a href="#L-233"><span class="linenos" data-line="233"></span></a><span class="kr">end</span> </span><span id="L-234"><a href="#L-234"><span class="linenos" data-line="234"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">isowy</span><span class="p">(</span><span class="n">dn</span><span class="p">)</span> </span><span id="L-235"><a href="#L-235"><span class="linenos" data-line="235"></span></a> <span class="kd">local</span> <span class="n">w1</span><span class="p">;</span> </span><span id="L-236"><a href="#L-236"><span class="linenos" data-line="236"></span></a> <span class="kd">local</span> <span class="n">y</span> <span class="o">=</span> <span class="p">(</span><span class="n">breakdaynum</span><span class="p">(</span><span class="n">dn</span><span class="p">))</span> </span><span id="L-237"><a href="#L-237"><span class="linenos" data-line="237"></span></a> <span class="kr">if</span> <span class="n">dn</span> <span class="o">>=</span> <span class="n">makedaynum</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="mi">11</span><span class="p">,</span> <span class="mi">29</span><span class="p">)</span> <span class="kr">then</span> </span><span id="L-238"><a href="#L-238"><span class="linenos" data-line="238"></span></a> <span class="n">w1</span> <span class="o">=</span> <span class="n">isow1</span><span class="p">(</span><span class="n">y</span> <span class="o">+</span> <span class="mi">1</span><span class="p">);</span> </span><span id="L-239"><a href="#L-239"><span class="linenos" data-line="239"></span></a> <span class="kr">if</span> <span class="n">dn</span> <span class="o"><</span> <span class="n">w1</span> <span class="kr">then</span> </span><span id="L-240"><a href="#L-240"><span class="linenos" data-line="240"></span></a> <span class="n">w1</span> <span class="o">=</span> <span class="n">isow1</span><span class="p">(</span><span class="n">y</span><span class="p">);</span> </span><span id="L-241"><a href="#L-241"><span class="linenos" data-line="241"></span></a> <span class="kr">else</span> </span><span id="L-242"><a href="#L-242"><span class="linenos" data-line="242"></span></a> <span class="n">y</span> <span class="o">=</span> <span class="n">y</span> <span class="o">+</span> <span class="mi">1</span><span class="p">;</span> </span><span id="L-243"><a href="#L-243"><span class="linenos" data-line="243"></span></a> <span class="kr">end</span> </span><span id="L-244"><a href="#L-244"><span class="linenos" data-line="244"></span></a> <span class="kr">else</span> </span><span id="L-245"><a href="#L-245"><span class="linenos" data-line="245"></span></a> <span class="n">w1</span> <span class="o">=</span> <span class="n">isow1</span><span class="p">(</span><span class="n">y</span><span class="p">);</span> </span><span id="L-246"><a href="#L-246"><span class="linenos" data-line="246"></span></a> <span class="kr">if</span> <span class="n">dn</span> <span class="o"><</span> <span class="n">w1</span> <span class="kr">then</span> </span><span id="L-247"><a href="#L-247"><span class="linenos" data-line="247"></span></a> <span class="n">w1</span> <span class="o">=</span> <span class="n">isow1</span><span class="p">(</span><span class="n">y</span><span class="o">-</span><span class="mi">1</span><span class="p">)</span> </span><span id="L-248"><a href="#L-248"><span class="linenos" data-line="248"></span></a> <span class="n">y</span> <span class="o">=</span> <span class="n">y</span> <span class="o">-</span> <span class="mi">1</span> </span><span id="L-249"><a href="#L-249"><span class="linenos" data-line="249"></span></a> <span class="kr">end</span> </span><span id="L-250"><a href="#L-250"><span class="linenos" data-line="250"></span></a> <span class="kr">end</span> </span><span id="L-251"><a href="#L-251"><span class="linenos" data-line="251"></span></a> <span class="kr">return</span> <span class="n">floor</span><span class="p">((</span><span class="n">dn</span><span class="o">-</span><span class="n">w1</span><span class="p">)</span><span class="o">/</span><span class="mi">7</span><span class="p">)</span><span class="o">+</span><span class="mi">1</span><span class="p">,</span> <span class="n">y</span> </span><span id="L-252"><a href="#L-252"><span class="linenos" data-line="252"></span></a><span class="kr">end</span> </span><span id="L-253"><a href="#L-253"><span class="linenos" data-line="253"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">isoy</span><span class="p">(</span><span class="n">dn</span><span class="p">)</span> </span><span id="L-254"><a href="#L-254"><span class="linenos" data-line="254"></span></a> <span class="kd">local</span> <span class="n">y</span> <span class="o">=</span> <span class="p">(</span><span class="n">breakdaynum</span><span class="p">(</span><span class="n">dn</span><span class="p">))</span> </span><span id="L-255"><a href="#L-255"><span class="linenos" data-line="255"></span></a> <span class="kr">return</span> <span class="n">y</span> <span class="o">+</span> <span class="p">(((</span><span class="n">dn</span> <span class="o">>=</span> <span class="n">makedaynum</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="mi">11</span><span class="p">,</span> <span class="mi">29</span><span class="p">))</span> <span class="ow">and</span> <span class="p">(</span><span class="n">dn</span> <span class="o">>=</span> <span class="n">isow1</span><span class="p">(</span><span class="n">y</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)))</span> <span class="ow">and</span> <span class="mi">1</span> <span class="ow">or</span> <span class="p">(</span><span class="n">dn</span> <span class="o"><</span> <span class="n">isow1</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> <span class="ow">and</span> <span class="o">-</span><span class="mi">1</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">))</span> </span><span id="L-256"><a href="#L-256"><span class="linenos" data-line="256"></span></a><span class="kr">end</span> </span><span id="L-257"><a href="#L-257"><span class="linenos" data-line="257"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">makedaynum_isoywd</span><span class="p">(</span><span class="n">y</span><span class="p">,</span><span class="n">w</span><span class="p">,</span><span class="n">d</span><span class="p">)</span> </span><span id="L-258"><a href="#L-258"><span class="linenos" data-line="258"></span></a> <span class="kr">return</span> <span class="n">isow1</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> <span class="o">+</span> <span class="mi">7</span><span class="o">*</span><span class="n">w</span> <span class="o">+</span> <span class="n">d</span> <span class="o">-</span> <span class="mi">8</span> <span class="c1">-- simplified: isow1(y) + ((w-1)*7) + (d-1)</span> </span><span id="L-259"><a href="#L-259"><span class="linenos" data-line="259"></span></a><span class="kr">end</span> </span><span id="L-260"><a href="#L-260"><span class="linenos" data-line="260"></span></a><span class="cm">--[[ THE DATE MODULE ]]</span><span class="c1">--</span> </span><span id="L-261"><a href="#L-261"><span class="linenos" data-line="261"></span></a><span class="kd">local</span> <span class="n">fmtstr</span> <span class="o">=</span> <span class="s2">"%x %X"</span><span class="p">;</span> </span><span id="L-262"><a href="#L-262"><span class="linenos" data-line="262"></span></a><span class="c1">--#if not DATE_OBJECT_AFX then</span> </span><span id="L-263"><a href="#L-263"><span class="linenos" data-line="263"></span></a><span class="kd">local</span> <span class="n">date</span> <span class="o">=</span> <span class="p">{}</span> </span><span id="L-264"><a href="#L-264"><span class="linenos" data-line="264"></span></a><span class="nb">setmetatable</span><span class="p">(</span><span class="n">date</span><span class="p">,</span> <span class="n">date</span><span class="p">)</span> </span><span id="L-265"><a href="#L-265"><span class="linenos" data-line="265"></span></a><span class="c1">-- Version: VMMMRRRR; V-Major, M-Minor, R-Revision; e.g. 5.45.321 == 50450321</span> </span><span id="L-266"><a href="#L-266"><span class="linenos" data-line="266"></span></a><span class="kr">do</span> </span><span id="L-267"><a href="#L-267"><span class="linenos" data-line="267"></span></a> <span class="kd">local</span> <span class="n">major</span> <span class="o">=</span> <span class="mi">2</span> </span><span id="L-268"><a href="#L-268"><span class="linenos" data-line="268"></span></a> <span class="kd">local</span> <span class="n">minor</span> <span class="o">=</span> <span class="mi">2</span> </span><span id="L-269"><a href="#L-269"><span class="linenos" data-line="269"></span></a> <span class="kd">local</span> <span class="n">revision</span> <span class="o">=</span> <span class="mi">1</span> </span><span id="L-270"><a href="#L-270"><span class="linenos" data-line="270"></span></a> <span class="n">date</span><span class="p">.</span><span class="n">version</span> <span class="o">=</span> <span class="n">major</span> <span class="o">*</span> <span class="mi">10000000</span> <span class="o">+</span> <span class="n">minor</span> <span class="o">*</span> <span class="mi">10000</span> <span class="o">+</span> <span class="n">revision</span> </span><span id="L-271"><a href="#L-271"><span class="linenos" data-line="271"></span></a><span class="kr">end</span> </span><span id="L-272"><a href="#L-272"><span class="linenos" data-line="272"></span></a><span class="c1">--#end -- not DATE_OBJECT_AFX</span> </span><span id="L-273"><a href="#L-273"><span class="linenos" data-line="273"></span></a><span class="cm">--[[ THE DATE OBJECT ]]</span><span class="c1">--</span> </span><span id="L-274"><a href="#L-274"><span class="linenos" data-line="274"></span></a><span class="kd">local</span> <span class="n">dobj</span> <span class="o">=</span> <span class="p">{}</span> </span><span id="L-275"><a href="#L-275"><span class="linenos" data-line="275"></span></a><span class="n">dobj</span><span class="p">.</span><span class="n">__index</span> <span class="o">=</span> <span class="n">dobj</span> </span><span id="L-276"><a href="#L-276"><span class="linenos" data-line="276"></span></a><span class="n">dobj</span><span class="p">.</span><span class="n">__metatable</span> <span class="o">=</span> <span class="n">dobj</span> </span><span id="L-277"><a href="#L-277"><span class="linenos" data-line="277"></span></a><span class="c1">-- shout invalid arg</span> </span><span id="L-278"><a href="#L-278"><span class="linenos" data-line="278"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">date_error_arg</span><span class="p">()</span> <span class="kr">return</span> <span class="nb">error</span><span class="p">(</span><span class="s2">"invalid argument(s)"</span><span class="p">,</span><span class="mi">0</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-279"><a href="#L-279"><span class="linenos" data-line="279"></span></a><span class="c1">-- create new date object</span> </span><span id="L-280"><a href="#L-280"><span class="linenos" data-line="280"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">date_new</span><span class="p">(</span><span class="n">dn</span><span class="p">,</span> <span class="n">df</span><span class="p">)</span> </span><span id="L-281"><a href="#L-281"><span class="linenos" data-line="281"></span></a> <span class="kr">return</span> <span class="nb">setmetatable</span><span class="p">({</span><span class="n">daynum</span><span class="o">=</span><span class="n">dn</span><span class="p">,</span> <span class="n">dayfrc</span><span class="o">=</span><span class="n">df</span><span class="p">},</span> <span class="n">dobj</span><span class="p">)</span> </span><span id="L-282"><a href="#L-282"><span class="linenos" data-line="282"></span></a><span class="kr">end</span> </span><span id="L-283"><a href="#L-283"><span class="linenos" data-line="283"></span></a> </span><span id="L-284"><a href="#L-284"><span class="linenos" data-line="284"></span></a><span class="c1">--#if not NO_LOCAL_TIME_SUPPORT then</span> </span><span id="L-285"><a href="#L-285"><span class="linenos" data-line="285"></span></a><span class="c1">-- magic year table</span> </span><span id="L-286"><a href="#L-286"><span class="linenos" data-line="286"></span></a><span class="kd">local</span> <span class="n">date_epoch</span><span class="p">,</span> <span class="n">yt</span><span class="p">;</span> </span><span id="L-287"><a href="#L-287"><span class="linenos" data-line="287"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">getequivyear</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> </span><span id="L-288"><a href="#L-288"><span class="linenos" data-line="288"></span></a> <span class="nb">assert</span><span class="p">(</span><span class="ow">not</span> <span class="n">yt</span><span class="p">)</span> </span><span id="L-289"><a href="#L-289"><span class="linenos" data-line="289"></span></a> <span class="n">yt</span> <span class="o">=</span> <span class="p">{}</span> </span><span id="L-290"><a href="#L-290"><span class="linenos" data-line="290"></span></a> <span class="kd">local</span> <span class="n">de</span> <span class="o">=</span> <span class="n">date_epoch</span><span class="p">:</span><span class="n">copy</span><span class="p">()</span> </span><span id="L-291"><a href="#L-291"><span class="linenos" data-line="291"></span></a> <span class="kd">local</span> <span class="n">dw</span><span class="p">,</span> <span class="n">dy</span> </span><span id="L-292"><a href="#L-292"><span class="linenos" data-line="292"></span></a> <span class="kr">for</span> <span class="n">_</span> <span class="o">=</span> <span class="mi">0</span><span class="p">,</span> <span class="mi">3000</span> <span class="kr">do</span> </span><span id="L-293"><a href="#L-293"><span class="linenos" data-line="293"></span></a> <span class="n">de</span><span class="p">:</span><span class="n">setyear</span><span class="p">(</span><span class="n">de</span><span class="p">:</span><span class="n">getyear</span><span class="p">()</span> <span class="o">+</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">)</span> </span><span id="L-294"><a href="#L-294"><span class="linenos" data-line="294"></span></a> <span class="n">dy</span> <span class="o">=</span> <span class="n">de</span><span class="p">:</span><span class="n">getyear</span><span class="p">()</span> </span><span id="L-295"><a href="#L-295"><span class="linenos" data-line="295"></span></a> <span class="n">dw</span> <span class="o">=</span> <span class="n">de</span><span class="p">:</span><span class="n">getweekday</span><span class="p">()</span> <span class="o">*</span> <span class="p">(</span><span class="n">isleapyear</span><span class="p">(</span><span class="n">dy</span><span class="p">)</span> <span class="ow">and</span> <span class="o">-</span><span class="mi">1</span> <span class="ow">or</span> <span class="mi">1</span><span class="p">)</span> </span><span id="L-296"><a href="#L-296"><span class="linenos" data-line="296"></span></a> <span class="kr">if</span> <span class="ow">not</span> <span class="n">yt</span><span class="p">[</span><span class="n">dw</span><span class="p">]</span> <span class="kr">then</span> <span class="n">yt</span><span class="p">[</span><span class="n">dw</span><span class="p">]</span> <span class="o">=</span> <span class="n">dy</span> <span class="kr">end</span> <span class="c1">--print(de)</span> </span><span id="L-297"><a href="#L-297"><span class="linenos" data-line="297"></span></a> <span class="kr">if</span> <span class="n">yt</span><span class="p">[</span><span class="mi">1</span><span class="p">]</span> <span class="ow">and</span> <span class="n">yt</span><span class="p">[</span><span class="mi">2</span><span class="p">]</span> <span class="ow">and</span> <span class="n">yt</span><span class="p">[</span><span class="mi">3</span><span class="p">]</span> <span class="ow">and</span> <span class="n">yt</span><span class="p">[</span><span class="mi">4</span><span class="p">]</span> <span class="ow">and</span> <span class="n">yt</span><span class="p">[</span><span class="mi">5</span><span class="p">]</span> <span class="ow">and</span> <span class="n">yt</span><span class="p">[</span><span class="mi">6</span><span class="p">]</span> <span class="ow">and</span> <span class="n">yt</span><span class="p">[</span><span class="mi">7</span><span class="p">]</span> <span class="ow">and</span> <span class="n">yt</span><span class="p">[</span><span class="o">-</span><span class="mi">1</span><span class="p">]</span> <span class="ow">and</span> <span class="n">yt</span><span class="p">[</span><span class="o">-</span><span class="mi">2</span><span class="p">]</span> <span class="ow">and</span> <span class="n">yt</span><span class="p">[</span><span class="o">-</span><span class="mi">3</span><span class="p">]</span> <span class="ow">and</span> <span class="n">yt</span><span class="p">[</span><span class="o">-</span><span class="mi">4</span><span class="p">]</span> <span class="ow">and</span> <span class="n">yt</span><span class="p">[</span><span class="o">-</span><span class="mi">5</span><span class="p">]</span> <span class="ow">and</span> <span class="n">yt</span><span class="p">[</span><span class="o">-</span><span class="mi">6</span><span class="p">]</span> <span class="ow">and</span> <span class="n">yt</span><span class="p">[</span><span class="o">-</span><span class="mi">7</span><span class="p">]</span> <span class="kr">then</span> </span><span id="L-298"><a href="#L-298"><span class="linenos" data-line="298"></span></a> <span class="n">getequivyear</span> <span class="o">=</span> <span class="kr">function</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> <span class="kr">return</span> <span class="n">yt</span><span class="p">[</span> <span class="p">(</span><span class="n">weekday</span><span class="p">(</span><span class="n">makedaynum</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="mi">0</span><span class="p">,</span> <span class="mi">1</span><span class="p">))</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">isleapyear</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> <span class="ow">and</span> <span class="o">-</span><span class="mi">1</span> <span class="ow">or</span> <span class="mi">1</span><span class="p">)</span> <span class="p">]</span> <span class="kr">end</span> </span><span id="L-299"><a href="#L-299"><span class="linenos" data-line="299"></span></a> <span class="kr">return</span> <span class="n">getequivyear</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> </span><span id="L-300"><a href="#L-300"><span class="linenos" data-line="300"></span></a> <span class="kr">end</span> </span><span id="L-301"><a href="#L-301"><span class="linenos" data-line="301"></span></a> <span class="kr">end</span> </span><span id="L-302"><a href="#L-302"><span class="linenos" data-line="302"></span></a><span class="kr">end</span> </span><span id="L-303"><a href="#L-303"><span class="linenos" data-line="303"></span></a><span class="c1">-- TimeValue from date and time</span> </span><span id="L-304"><a href="#L-304"><span class="linenos" data-line="304"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">totv</span><span class="p">(</span><span class="n">y</span><span class="p">,</span><span class="n">m</span><span class="p">,</span><span class="n">d</span><span class="p">,</span><span class="n">h</span><span class="p">,</span><span class="n">r</span><span class="p">,</span><span class="n">s</span><span class="p">)</span> </span><span id="L-305"><a href="#L-305"><span class="linenos" data-line="305"></span></a> <span class="kr">return</span> <span class="p">(</span><span class="n">makedaynum</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">d</span><span class="p">)</span> <span class="o">-</span> <span class="n">DATE_EPOCH</span><span class="p">)</span> <span class="o">*</span> <span class="n">SECPERDAY</span> <span class="o">+</span> <span class="p">((</span><span class="n">h</span><span class="o">*</span><span class="mi">60</span> <span class="o">+</span> <span class="n">r</span><span class="p">)</span><span class="o">*</span><span class="mi">60</span> <span class="o">+</span> <span class="n">s</span><span class="p">)</span> </span><span id="L-306"><a href="#L-306"><span class="linenos" data-line="306"></span></a><span class="kr">end</span> </span><span id="L-307"><a href="#L-307"><span class="linenos" data-line="307"></span></a><span class="c1">-- TimeValue from TimeTable</span> </span><span id="L-308"><a href="#L-308"><span class="linenos" data-line="308"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">tmtotv</span><span class="p">(</span><span class="n">tm</span><span class="p">)</span> </span><span id="L-309"><a href="#L-309"><span class="linenos" data-line="309"></span></a> <span class="kr">return</span> <span class="n">tm</span> <span class="ow">and</span> <span class="n">totv</span><span class="p">(</span><span class="n">tm</span><span class="p">.</span><span class="n">year</span><span class="p">,</span> <span class="n">tm</span><span class="p">.</span><span class="n">month</span> <span class="o">-</span> <span class="mi">1</span><span class="p">,</span> <span class="n">tm</span><span class="p">.</span><span class="n">day</span><span class="p">,</span> <span class="n">tm</span><span class="p">.</span><span class="n">hour</span><span class="p">,</span> <span class="n">tm</span><span class="p">.</span><span class="n">min</span><span class="p">,</span> <span class="n">tm</span><span class="p">.</span><span class="n">sec</span><span class="p">)</span> </span><span id="L-310"><a href="#L-310"><span class="linenos" data-line="310"></span></a><span class="kr">end</span> </span><span id="L-311"><a href="#L-311"><span class="linenos" data-line="311"></span></a><span class="c1">-- Returns the bias in seconds of utc time daynum and dayfrc</span> </span><span id="L-312"><a href="#L-312"><span class="linenos" data-line="312"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">getbiasutc2</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> </span><span id="L-313"><a href="#L-313"><span class="linenos" data-line="313"></span></a> <span class="kd">local</span> <span class="n">y</span><span class="p">,</span><span class="n">m</span><span class="p">,</span><span class="n">d</span> <span class="o">=</span> <span class="n">breakdaynum</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> </span><span id="L-314"><a href="#L-314"><span class="linenos" data-line="314"></span></a> <span class="kd">local</span> <span class="n">h</span><span class="p">,</span><span class="n">r</span><span class="p">,</span><span class="n">s</span> <span class="o">=</span> <span class="n">breakdayfrc</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span> </span><span id="L-315"><a href="#L-315"><span class="linenos" data-line="315"></span></a> <span class="kd">local</span> <span class="n">tvu</span> <span class="o">=</span> <span class="n">totv</span><span class="p">(</span><span class="n">y</span><span class="p">,</span><span class="n">m</span><span class="p">,</span><span class="n">d</span><span class="p">,</span><span class="n">h</span><span class="p">,</span><span class="n">r</span><span class="p">,</span><span class="n">s</span><span class="p">)</span> <span class="c1">-- get the utc TimeValue of date and time</span> </span><span id="L-316"><a href="#L-316"><span class="linenos" data-line="316"></span></a> <span class="kd">local</span> <span class="n">tml</span> <span class="o">=</span> <span class="n">osdate</span><span class="p">(</span><span class="s2">"*t"</span><span class="p">,</span> <span class="n">tvu</span><span class="p">)</span> <span class="c1">-- get the local TimeTable of tvu</span> </span><span id="L-317"><a href="#L-317"><span class="linenos" data-line="317"></span></a> <span class="kr">if</span> <span class="p">(</span><span class="ow">not</span> <span class="n">tml</span><span class="p">)</span> <span class="ow">or</span> <span class="p">(</span><span class="n">tml</span><span class="p">.</span><span class="n">year</span> <span class="o">></span> <span class="p">(</span><span class="n">y</span><span class="o">+</span><span class="mi">1</span><span class="p">)</span> <span class="ow">or</span> <span class="n">tml</span><span class="p">.</span><span class="n">year</span> <span class="o"><</span> <span class="p">(</span><span class="n">y</span><span class="o">-</span><span class="mi">1</span><span class="p">))</span> <span class="kr">then</span> <span class="c1">-- failed try the magic</span> </span><span id="L-318"><a href="#L-318"><span class="linenos" data-line="318"></span></a> <span class="n">y</span> <span class="o">=</span> <span class="n">getequivyear</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> </span><span id="L-319"><a href="#L-319"><span class="linenos" data-line="319"></span></a> <span class="n">tvu</span> <span class="o">=</span> <span class="n">totv</span><span class="p">(</span><span class="n">y</span><span class="p">,</span><span class="n">m</span><span class="p">,</span><span class="n">d</span><span class="p">,</span><span class="n">h</span><span class="p">,</span><span class="n">r</span><span class="p">,</span><span class="n">s</span><span class="p">)</span> </span><span id="L-320"><a href="#L-320"><span class="linenos" data-line="320"></span></a> <span class="n">tml</span> <span class="o">=</span> <span class="n">osdate</span><span class="p">(</span><span class="s2">"*t"</span><span class="p">,</span> <span class="n">tvu</span><span class="p">)</span> </span><span id="L-321"><a href="#L-321"><span class="linenos" data-line="321"></span></a> <span class="kr">end</span> </span><span id="L-322"><a href="#L-322"><span class="linenos" data-line="322"></span></a> <span class="kd">local</span> <span class="n">tvl</span> <span class="o">=</span> <span class="n">tmtotv</span><span class="p">(</span><span class="n">tml</span><span class="p">)</span> </span><span id="L-323"><a href="#L-323"><span class="linenos" data-line="323"></span></a> <span class="kr">if</span> <span class="n">tvu</span> <span class="ow">and</span> <span class="n">tvl</span> <span class="kr">then</span> </span><span id="L-324"><a href="#L-324"><span class="linenos" data-line="324"></span></a> <span class="kr">return</span> <span class="n">tvu</span> <span class="o">-</span> <span class="n">tvl</span><span class="p">,</span> <span class="n">tvu</span><span class="p">,</span> <span class="n">tvl</span> </span><span id="L-325"><a href="#L-325"><span class="linenos" data-line="325"></span></a> <span class="kr">else</span> </span><span id="L-326"><a href="#L-326"><span class="linenos" data-line="326"></span></a> <span class="kr">return</span> <span class="nb">error</span><span class="p">(</span><span class="s2">"failed to get bias from utc time"</span><span class="p">)</span> </span><span id="L-327"><a href="#L-327"><span class="linenos" data-line="327"></span></a> <span class="kr">end</span> </span><span id="L-328"><a href="#L-328"><span class="linenos" data-line="328"></span></a><span class="kr">end</span> </span><span id="L-329"><a href="#L-329"><span class="linenos" data-line="329"></span></a><span class="c1">-- Returns the bias in seconds of local time daynum and dayfrc</span> </span><span id="L-330"><a href="#L-330"><span class="linenos" data-line="330"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">getbiasloc2</span><span class="p">(</span><span class="n">daynum</span><span class="p">,</span> <span class="n">dayfrc</span><span class="p">)</span> </span><span id="L-331"><a href="#L-331"><span class="linenos" data-line="331"></span></a> <span class="kd">local</span> <span class="n">tvu</span> </span><span id="L-332"><a href="#L-332"><span class="linenos" data-line="332"></span></a> <span class="c1">-- extract date and time</span> </span><span id="L-333"><a href="#L-333"><span class="linenos" data-line="333"></span></a> <span class="kd">local</span> <span class="n">y</span><span class="p">,</span><span class="n">m</span><span class="p">,</span><span class="n">d</span> <span class="o">=</span> <span class="n">breakdaynum</span><span class="p">(</span><span class="n">daynum</span><span class="p">)</span> </span><span id="L-334"><a href="#L-334"><span class="linenos" data-line="334"></span></a> <span class="kd">local</span> <span class="n">h</span><span class="p">,</span><span class="n">r</span><span class="p">,</span><span class="n">s</span> <span class="o">=</span> <span class="n">breakdayfrc</span><span class="p">(</span><span class="n">dayfrc</span><span class="p">)</span> </span><span id="L-335"><a href="#L-335"><span class="linenos" data-line="335"></span></a> <span class="c1">-- get equivalent TimeTable</span> </span><span id="L-336"><a href="#L-336"><span class="linenos" data-line="336"></span></a> <span class="kd">local</span> <span class="n">tml</span> <span class="o">=</span> <span class="p">{</span><span class="n">year</span><span class="o">=</span><span class="n">y</span><span class="p">,</span> <span class="n">month</span><span class="o">=</span><span class="n">m</span><span class="o">+</span><span class="mi">1</span><span class="p">,</span> <span class="n">day</span><span class="o">=</span><span class="n">d</span><span class="p">,</span> <span class="n">hour</span><span class="o">=</span><span class="n">h</span><span class="p">,</span> <span class="n">min</span><span class="o">=</span><span class="n">r</span><span class="p">,</span> <span class="n">sec</span><span class="o">=</span><span class="n">s</span><span class="p">}</span> </span><span id="L-337"><a href="#L-337"><span class="linenos" data-line="337"></span></a> <span class="c1">-- get equivalent TimeValue</span> </span><span id="L-338"><a href="#L-338"><span class="linenos" data-line="338"></span></a> <span class="kd">local</span> <span class="n">tvl</span> <span class="o">=</span> <span class="n">tmtotv</span><span class="p">(</span><span class="n">tml</span><span class="p">)</span> </span><span id="L-339"><a href="#L-339"><span class="linenos" data-line="339"></span></a> </span><span id="L-340"><a href="#L-340"><span class="linenos" data-line="340"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">chkutc</span><span class="p">()</span> </span><span id="L-341"><a href="#L-341"><span class="linenos" data-line="341"></span></a> <span class="n">tml</span><span class="p">.</span><span class="n">isdst</span> <span class="o">=</span> <span class="kc">nil</span><span class="p">;</span> <span class="kd">local</span> <span class="n">tvug</span> <span class="o">=</span> <span class="n">ostime</span><span class="p">(</span><span class="n">tml</span><span class="p">)</span> <span class="kr">if</span> <span class="n">tvug</span> <span class="ow">and</span> <span class="p">(</span><span class="n">tvl</span> <span class="o">==</span> <span class="n">tmtotv</span><span class="p">(</span><span class="n">osdate</span><span class="p">(</span><span class="s2">"*t"</span><span class="p">,</span> <span class="n">tvug</span><span class="p">)))</span> <span class="kr">then</span> <span class="n">tvu</span> <span class="o">=</span> <span class="n">tvug</span> <span class="kr">return</span> <span class="kr">end</span> </span><span id="L-342"><a href="#L-342"><span class="linenos" data-line="342"></span></a> <span class="n">tml</span><span class="p">.</span><span class="n">isdst</span> <span class="o">=</span> <span class="kc">true</span><span class="p">;</span> <span class="kd">local</span> <span class="n">tvud</span> <span class="o">=</span> <span class="n">ostime</span><span class="p">(</span><span class="n">tml</span><span class="p">)</span> <span class="kr">if</span> <span class="n">tvud</span> <span class="ow">and</span> <span class="p">(</span><span class="n">tvl</span> <span class="o">==</span> <span class="n">tmtotv</span><span class="p">(</span><span class="n">osdate</span><span class="p">(</span><span class="s2">"*t"</span><span class="p">,</span> <span class="n">tvud</span><span class="p">)))</span> <span class="kr">then</span> <span class="n">tvu</span> <span class="o">=</span> <span class="n">tvud</span> <span class="kr">return</span> <span class="kr">end</span> </span><span id="L-343"><a href="#L-343"><span class="linenos" data-line="343"></span></a> <span class="n">tvu</span> <span class="o">=</span> <span class="n">tvud</span> <span class="ow">or</span> <span class="n">tvug</span> </span><span id="L-344"><a href="#L-344"><span class="linenos" data-line="344"></span></a> <span class="kr">end</span> </span><span id="L-345"><a href="#L-345"><span class="linenos" data-line="345"></span></a> <span class="n">chkutc</span><span class="p">()</span> </span><span id="L-346"><a href="#L-346"><span class="linenos" data-line="346"></span></a> <span class="kr">if</span> <span class="ow">not</span> <span class="n">tvu</span> <span class="kr">then</span> </span><span id="L-347"><a href="#L-347"><span class="linenos" data-line="347"></span></a> <span class="n">tml</span><span class="p">.</span><span class="n">year</span> <span class="o">=</span> <span class="n">getequivyear</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> </span><span id="L-348"><a href="#L-348"><span class="linenos" data-line="348"></span></a> <span class="n">tvl</span> <span class="o">=</span> <span class="n">tmtotv</span><span class="p">(</span><span class="n">tml</span><span class="p">)</span> </span><span id="L-349"><a href="#L-349"><span class="linenos" data-line="349"></span></a> <span class="n">chkutc</span><span class="p">()</span> </span><span id="L-350"><a href="#L-350"><span class="linenos" data-line="350"></span></a> <span class="kr">end</span> </span><span id="L-351"><a href="#L-351"><span class="linenos" data-line="351"></span></a> <span class="kr">return</span> <span class="p">((</span><span class="n">tvu</span> <span class="ow">and</span> <span class="n">tvl</span><span class="p">)</span> <span class="ow">and</span> <span class="p">(</span><span class="n">tvu</span> <span class="o">-</span> <span class="n">tvl</span><span class="p">))</span> <span class="ow">or</span> <span class="nb">error</span><span class="p">(</span><span class="s2">"failed to get bias from local time"</span><span class="p">),</span> <span class="n">tvu</span><span class="p">,</span> <span class="n">tvl</span> </span><span id="L-352"><a href="#L-352"><span class="linenos" data-line="352"></span></a><span class="kr">end</span> </span><span id="L-353"><a href="#L-353"><span class="linenos" data-line="353"></span></a><span class="c1">--#end -- not NO_LOCAL_TIME_SUPPORT</span> </span><span id="L-354"><a href="#L-354"><span class="linenos" data-line="354"></span></a> </span><span id="L-355"><a href="#L-355"><span class="linenos" data-line="355"></span></a><span class="c1">--#if not DATE_OBJECT_AFX then</span> </span><span id="L-356"><a href="#L-356"><span class="linenos" data-line="356"></span></a><span class="c1">-- the date parser</span> </span><span id="L-357"><a href="#L-357"><span class="linenos" data-line="357"></span></a><span class="kd">local</span> <span class="n">strwalker</span> <span class="o">=</span> <span class="p">{}</span> <span class="c1">-- ^Lua regular expression is not as powerful as Perl$</span> </span><span id="L-358"><a href="#L-358"><span class="linenos" data-line="358"></span></a><span class="n">strwalker</span><span class="p">.</span><span class="n">__index</span> <span class="o">=</span> <span class="n">strwalker</span> </span><span id="L-359"><a href="#L-359"><span class="linenos" data-line="359"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">newstrwalker</span><span class="p">(</span><span class="n">s</span><span class="p">)</span><span class="kr">return</span> <span class="nb">setmetatable</span><span class="p">({</span><span class="n">s</span><span class="o">=</span><span class="n">s</span><span class="p">,</span> <span class="n">i</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span> <span class="n">e</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span> <span class="n">c</span><span class="o">=</span><span class="n">len</span><span class="p">(</span><span class="n">s</span><span class="p">)},</span> <span class="n">strwalker</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-360"><a href="#L-360"><span class="linenos" data-line="360"></span></a><span class="kr">function</span> <span class="nc">strwalker</span><span class="p">:</span><span class="nf">aimchr</span><span class="p">()</span> <span class="kr">return</span> <span class="s2">"</span><span class="se">\n</span><span class="s2">"</span> <span class="o">..</span> <span class="n">self</span><span class="p">.</span><span class="n">s</span> <span class="o">..</span> <span class="s2">"</span><span class="se">\n</span><span class="s2">"</span> <span class="o">..</span> <span class="n">rep</span><span class="p">(</span><span class="s2">"."</span><span class="p">,</span><span class="n">self</span><span class="p">.</span><span class="n">e</span><span class="o">-</span><span class="mi">1</span><span class="p">)</span> <span class="o">..</span> <span class="s2">"^"</span> <span class="kr">end</span> </span><span id="L-361"><a href="#L-361"><span class="linenos" data-line="361"></span></a><span class="kr">function</span> <span class="nc">strwalker</span><span class="p">:</span><span class="nf">finish</span><span class="p">()</span> <span class="kr">return</span> <span class="n">self</span><span class="p">.</span><span class="n">i</span> <span class="o">></span> <span class="n">self</span><span class="p">.</span><span class="n">c</span> <span class="kr">end</span> </span><span id="L-362"><a href="#L-362"><span class="linenos" data-line="362"></span></a><span class="kr">function</span> <span class="nc">strwalker</span><span class="p">:</span><span class="nf">back</span><span class="p">()</span> <span class="n">self</span><span class="p">.</span><span class="n">i</span> <span class="o">=</span> <span class="n">self</span><span class="p">.</span><span class="n">e</span> <span class="kr">return</span> <span class="n">self</span> <span class="kr">end</span> </span><span id="L-363"><a href="#L-363"><span class="linenos" data-line="363"></span></a><span class="kr">function</span> <span class="nc">strwalker</span><span class="p">:</span><span class="nf">restart</span><span class="p">()</span> <span class="n">self</span><span class="p">.</span><span class="n">i</span><span class="p">,</span> <span class="n">self</span><span class="p">.</span><span class="n">e</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">1</span> <span class="kr">return</span> <span class="n">self</span> <span class="kr">end</span> </span><span id="L-364"><a href="#L-364"><span class="linenos" data-line="364"></span></a><span class="kr">function</span> <span class="nc">strwalker</span><span class="p">:</span><span class="nf">match</span><span class="p">(</span><span class="n">s</span><span class="p">)</span> <span class="kr">return</span> <span class="p">(</span><span class="n">find</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">s</span><span class="p">,</span> <span class="n">s</span><span class="p">,</span> <span class="n">self</span><span class="p">.</span><span class="n">i</span><span class="p">))</span> <span class="kr">end</span> </span><span id="L-365"><a href="#L-365"><span class="linenos" data-line="365"></span></a><span class="kr">function</span> <span class="nc">strwalker</span><span class="p">:</span><span class="nf">__call</span><span class="p">(</span><span class="n">s</span><span class="p">,</span> <span class="n">f</span><span class="p">)</span><span class="c1">-- print("strwalker:__call "..s..self:aimchr())</span> </span><span id="L-366"><a href="#L-366"><span class="linenos" data-line="366"></span></a> <span class="kd">local</span> <span class="n">is</span><span class="p">,</span> <span class="n">ie</span><span class="p">;</span> <span class="n">is</span><span class="p">,</span> <span class="n">ie</span><span class="p">,</span> <span class="n">self</span><span class="p">[</span><span class="mi">1</span><span class="p">],</span> <span class="n">self</span><span class="p">[</span><span class="mi">2</span><span class="p">],</span> <span class="n">self</span><span class="p">[</span><span class="mi">3</span><span class="p">],</span> <span class="n">self</span><span class="p">[</span><span class="mi">4</span><span class="p">],</span> <span class="n">self</span><span class="p">[</span><span class="mi">5</span><span class="p">]</span> <span class="o">=</span> <span class="n">find</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">s</span><span class="p">,</span> <span class="n">s</span><span class="p">,</span> <span class="n">self</span><span class="p">.</span><span class="n">i</span><span class="p">)</span> </span><span id="L-367"><a href="#L-367"><span class="linenos" data-line="367"></span></a> <span class="kr">if</span> <span class="n">is</span> <span class="kr">then</span> <span class="n">self</span><span class="p">.</span><span class="n">e</span><span class="p">,</span> <span class="n">self</span><span class="p">.</span><span class="n">i</span> <span class="o">=</span> <span class="n">self</span><span class="p">.</span><span class="n">i</span><span class="p">,</span> <span class="mi">1</span><span class="o">+</span><span class="n">ie</span><span class="p">;</span> <span class="kr">if</span> <span class="n">f</span> <span class="kr">then</span> <span class="n">f</span><span class="p">(</span><span class="n">unpack</span><span class="p">(</span><span class="n">self</span><span class="p">))</span> <span class="kr">end</span> <span class="kr">return</span> <span class="n">self</span> <span class="kr">end</span> </span><span id="L-368"><a href="#L-368"><span class="linenos" data-line="368"></span></a><span class="kr">end</span> </span><span id="L-369"><a href="#L-369"><span class="linenos" data-line="369"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">date_parse</span><span class="p">(</span><span class="n">str</span><span class="p">)</span> </span><span id="L-370"><a href="#L-370"><span class="linenos" data-line="370"></span></a> <span class="kd">local</span> <span class="n">y</span><span class="p">,</span><span class="n">m</span><span class="p">,</span><span class="n">d</span><span class="p">,</span> <span class="n">h</span><span class="p">,</span><span class="n">r</span><span class="p">,</span><span class="n">s</span><span class="p">,</span> <span class="n">z</span><span class="p">,</span> <span class="n">w</span><span class="p">,</span><span class="n">u</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">e</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span><span class="n">c</span><span class="p">,</span> <span class="n">dn</span><span class="p">,</span><span class="n">df</span> </span><span id="L-371"><a href="#L-371"><span class="linenos" data-line="371"></span></a> <span class="kd">local</span> <span class="n">sw</span> <span class="o">=</span> <span class="n">newstrwalker</span><span class="p">(</span><span class="n">gsub</span><span class="p">(</span><span class="n">gsub</span><span class="p">(</span><span class="n">str</span><span class="p">,</span> <span class="s2">"(%b())"</span><span class="p">,</span> <span class="s2">""</span><span class="p">),</span><span class="s2">"^(%s*)"</span><span class="p">,</span><span class="s2">""</span><span class="p">))</span> <span class="c1">-- remove comment, trim leading space</span> </span><span id="L-372"><a href="#L-372"><span class="linenos" data-line="372"></span></a> <span class="c1">--local function error_out() print(y,m,d,h,r,s) end</span> </span><span id="L-373"><a href="#L-373"><span class="linenos" data-line="373"></span></a> <span class="c1">--local function error_dup(q) --[[error_out()]] error("duplicate value: " .. (q or "") .. sw:aimchr()) end</span> </span><span id="L-374"><a href="#L-374"><span class="linenos" data-line="374"></span></a> <span class="c1">--local function error_syn(q) --[[error_out()]] error("syntax error: " .. (q or "") .. sw:aimchr()) end</span> </span><span id="L-375"><a href="#L-375"><span class="linenos" data-line="375"></span></a> <span class="c1">--local function error_inv(q) --[[error_out()]] error("invalid date: " .. (q or "") .. sw:aimchr()) end</span> </span><span id="L-376"><a href="#L-376"><span class="linenos" data-line="376"></span></a> <span class="c1">--Mensajes de error personalizados:</span> </span><span id="L-377"><a href="#L-377"><span class="linenos" data-line="377"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">error_dup</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="cm">--[[error_out()]]</span> <span class="nb">error</span><span class="p">(</span><span class="s2">"Formato de fecha incorrecto: </span><span class="se">\"</span><span class="s2">"</span><span class="o">..</span><span class="n">sw</span><span class="p">.</span><span class="n">s</span><span class="o">..</span><span class="s2">"</span><span class="se">\"</span><span class="s2">."</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-378"><a href="#L-378"><span class="linenos" data-line="378"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">error_syn</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="cm">--[[error_out()]]</span> <span class="nb">error</span><span class="p">(</span><span class="s2">"Formato de fecha incorrecto: </span><span class="se">\"</span><span class="s2">"</span><span class="o">..</span><span class="n">sw</span><span class="p">.</span><span class="n">s</span><span class="o">..</span><span class="s2">"</span><span class="se">\"</span><span class="s2">."</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-379"><a href="#L-379"><span class="linenos" data-line="379"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">error_inv</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="cm">--[[error_out()]]</span> <span class="nb">error</span><span class="p">(</span><span class="s2">"Formato de fecha incorrecto: </span><span class="se">\"</span><span class="s2">"</span><span class="o">..</span><span class="n">sw</span><span class="p">.</span><span class="n">s</span><span class="o">..</span><span class="s2">"</span><span class="se">\"</span><span class="s2">."</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-380"><a href="#L-380"><span class="linenos" data-line="380"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">sety</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="n">y</span> <span class="o">=</span> <span class="n">y</span> <span class="ow">and</span> <span class="n">error_dup</span><span class="p">()</span> <span class="ow">or</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">q</span><span class="p">);</span> <span class="kr">end</span> </span><span id="L-381"><a href="#L-381"><span class="linenos" data-line="381"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">setm</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="n">m</span> <span class="o">=</span> <span class="p">(</span><span class="n">m</span> <span class="ow">or</span> <span class="n">w</span> <span class="ow">or</span> <span class="n">j</span><span class="p">)</span> <span class="ow">and</span> <span class="n">error_dup</span><span class="p">(</span><span class="n">m</span> <span class="ow">or</span> <span class="n">w</span> <span class="ow">or</span> <span class="n">j</span><span class="p">)</span> <span class="ow">or</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-382"><a href="#L-382"><span class="linenos" data-line="382"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">setd</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="n">d</span> <span class="o">=</span> <span class="n">d</span> <span class="ow">and</span> <span class="n">error_dup</span><span class="p">()</span> <span class="ow">or</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-383"><a href="#L-383"><span class="linenos" data-line="383"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">seth</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="n">h</span> <span class="o">=</span> <span class="n">h</span> <span class="ow">and</span> <span class="n">error_dup</span><span class="p">()</span> <span class="ow">or</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-384"><a href="#L-384"><span class="linenos" data-line="384"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">setr</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="n">r</span> <span class="o">=</span> <span class="n">r</span> <span class="ow">and</span> <span class="n">error_dup</span><span class="p">()</span> <span class="ow">or</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-385"><a href="#L-385"><span class="linenos" data-line="385"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">sets</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="n">s</span> <span class="o">=</span> <span class="n">s</span> <span class="ow">and</span> <span class="n">error_dup</span><span class="p">()</span> <span class="ow">or</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-386"><a href="#L-386"><span class="linenos" data-line="386"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">adds</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="n">s</span> <span class="o">=</span> <span class="n">s</span> <span class="o">+</span> <span class="nb">tonumber</span><span class="p">(</span><span class="s2">"."</span><span class="o">..</span><span class="nb">string.sub</span><span class="p">(</span><span class="n">q</span><span class="p">,</span><span class="mi">2</span><span class="p">,</span><span class="o">-</span><span class="mi">1</span><span class="p">))</span> <span class="kr">end</span> </span><span id="L-387"><a href="#L-387"><span class="linenos" data-line="387"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">setj</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="n">j</span> <span class="o">=</span> <span class="p">(</span><span class="n">m</span> <span class="ow">or</span> <span class="n">w</span> <span class="ow">or</span> <span class="n">j</span><span class="p">)</span> <span class="ow">and</span> <span class="n">error_dup</span><span class="p">()</span> <span class="ow">or</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">q</span><span class="p">);</span> <span class="kr">end</span> </span><span id="L-388"><a href="#L-388"><span class="linenos" data-line="388"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">setz</span><span class="p">(</span><span class="n">q</span><span class="p">)</span> <span class="n">z</span> <span class="o">=</span> <span class="p">(</span><span class="n">z</span> <span class="o">~=</span> <span class="mi">0</span> <span class="ow">and</span> <span class="n">z</span><span class="p">)</span> <span class="ow">and</span> <span class="n">error_dup</span><span class="p">()</span> <span class="ow">or</span> <span class="n">q</span> <span class="kr">end</span> </span><span id="L-389"><a href="#L-389"><span class="linenos" data-line="389"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">setzn</span><span class="p">(</span><span class="n">zs</span><span class="p">,</span><span class="n">zn</span><span class="p">)</span> <span class="n">zn</span> <span class="o">=</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">zn</span><span class="p">);</span> <span class="n">setz</span><span class="p">(</span> <span class="p">((</span><span class="n">zn</span><span class="o"><</span><span class="mi">24</span><span class="p">)</span> <span class="ow">and</span> <span class="p">(</span><span class="n">zn</span><span class="o">*</span><span class="mi">60</span><span class="p">)</span> <span class="ow">or</span> <span class="p">(</span><span class="n">mod</span><span class="p">(</span><span class="n">zn</span><span class="p">,</span><span class="mi">100</span><span class="p">)</span> <span class="o">+</span> <span class="n">floor</span><span class="p">(</span><span class="n">zn</span><span class="o">/</span><span class="mi">100</span><span class="p">)</span> <span class="o">*</span> <span class="mi">60</span><span class="p">))</span><span class="o">*</span><span class="p">(</span> <span class="n">zs</span><span class="o">==</span><span class="s1">'+'</span> <span class="ow">and</span> <span class="o">-</span><span class="mi">1</span> <span class="ow">or</span> <span class="mi">1</span><span class="p">)</span> <span class="p">)</span> <span class="kr">end</span> </span><span id="L-390"><a href="#L-390"><span class="linenos" data-line="390"></span></a> <span class="kd">local</span> <span class="kr">function</span> <span class="nf">setzc</span><span class="p">(</span><span class="n">zs</span><span class="p">,</span><span class="n">zh</span><span class="p">,</span><span class="n">zm</span><span class="p">)</span> <span class="n">setz</span><span class="p">(</span> <span class="p">((</span><span class="nb">tonumber</span><span class="p">(</span><span class="n">zh</span><span class="p">)</span><span class="o">*</span><span class="mi">60</span><span class="p">)</span> <span class="o">+</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">zm</span><span class="p">))</span><span class="o">*</span><span class="p">(</span> <span class="n">zs</span><span class="o">==</span><span class="s1">'+'</span> <span class="ow">and</span> <span class="o">-</span><span class="mi">1</span> <span class="ow">or</span> <span class="mi">1</span><span class="p">)</span> <span class="p">)</span> <span class="kr">end</span> </span><span id="L-391"><a href="#L-391"><span class="linenos" data-line="391"></span></a> </span><span id="L-392"><a href="#L-392"><span class="linenos" data-line="392"></span></a> <span class="kr">if</span> <span class="ow">not</span> <span class="p">(</span><span class="n">sw</span><span class="p">(</span><span class="s2">"^(%d%d%d%d)"</span><span class="p">,</span><span class="n">sety</span><span class="p">)</span> <span class="ow">and</span> <span class="p">(</span><span class="n">sw</span><span class="p">(</span><span class="s2">"^(%-?)(%d%d)%1(%d%d)"</span><span class="p">,</span><span class="kr">function</span><span class="p">(</span><span class="n">_</span><span class="p">,</span><span class="n">a</span><span class="p">,</span><span class="n">b</span><span class="p">)</span> <span class="n">setm</span><span class="p">(</span><span class="nb">tonumber</span><span class="p">(</span><span class="n">a</span><span class="p">));</span> <span class="n">setd</span><span class="p">(</span><span class="nb">tonumber</span><span class="p">(</span><span class="n">b</span><span class="p">))</span> <span class="kr">end</span><span class="p">)</span> <span class="ow">or</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^(%-?)[Ww](%d%d)%1(%d?)"</span><span class="p">,</span><span class="kr">function</span><span class="p">(</span><span class="n">_</span><span class="p">,</span><span class="n">a</span><span class="p">,</span><span class="n">b</span><span class="p">)</span> <span class="n">w</span><span class="p">,</span> <span class="n">u</span> <span class="o">=</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">a</span><span class="p">),</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">b</span> <span class="ow">or</span> <span class="mi">1</span><span class="p">)</span> <span class="kr">end</span><span class="p">)</span> <span class="ow">or</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^%-?(%d%d%d)"</span><span class="p">,</span><span class="n">setj</span><span class="p">)</span> <span class="ow">or</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^%-?(%d%d)"</span><span class="p">,</span><span class="kr">function</span><span class="p">(</span><span class="n">a</span><span class="p">)</span> <span class="n">setm</span><span class="p">(</span><span class="n">a</span><span class="p">);</span><span class="n">setd</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="kr">end</span><span class="p">))</span> </span><span id="L-393"><a href="#L-393"><span class="linenos" data-line="393"></span></a> <span class="ow">and</span> <span class="p">((</span><span class="n">sw</span><span class="p">(</span><span class="s2">"^%s*[Tt]?(%d%d):?"</span><span class="p">,</span><span class="n">seth</span><span class="p">)</span> <span class="ow">and</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^(%d%d):?"</span><span class="p">,</span><span class="n">setr</span><span class="p">)</span> <span class="ow">and</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^(%d%d)"</span><span class="p">,</span><span class="n">sets</span><span class="p">)</span> <span class="ow">and</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^([,%.]%d+)"</span><span class="p">,</span><span class="n">adds</span><span class="p">)</span> <span class="ow">and</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"%s*([+-])(%d%d):?(%d%d)%s*$"</span><span class="p">,</span><span class="n">setzc</span><span class="p">))</span> </span><span id="L-394"><a href="#L-394"><span class="linenos" data-line="394"></span></a> <span class="ow">or</span> <span class="n">sw</span><span class="p">:</span><span class="n">finish</span><span class="p">()</span> <span class="ow">or</span> <span class="p">(</span><span class="n">sw</span><span class="s2">"^%s*$"</span> <span class="ow">or</span> <span class="n">sw</span><span class="s2">"^%s*[Zz]%s*$"</span> <span class="ow">or</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^%s-([%+%-])(%d%d):?(%d%d)%s*$"</span><span class="p">,</span><span class="n">setzc</span><span class="p">)</span> <span class="ow">or</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^%s*([%+%-])(%d%d)%s*$"</span><span class="p">,</span><span class="n">setzn</span><span class="p">))</span> </span><span id="L-395"><a href="#L-395"><span class="linenos" data-line="395"></span></a> <span class="p">)</span> <span class="p">)</span> </span><span id="L-396"><a href="#L-396"><span class="linenos" data-line="396"></span></a> <span class="kr">then</span> <span class="c1">--print(y,m,d,h,r,s,z,w,u,j)</span> </span><span id="L-397"><a href="#L-397"><span class="linenos" data-line="397"></span></a> <span class="n">sw</span><span class="p">:</span><span class="n">restart</span><span class="p">();</span> <span class="n">y</span><span class="p">,</span><span class="n">m</span><span class="p">,</span><span class="n">d</span><span class="p">,</span><span class="n">h</span><span class="p">,</span><span class="n">r</span><span class="p">,</span><span class="n">s</span><span class="p">,</span><span class="n">z</span><span class="p">,</span><span class="n">w</span><span class="p">,</span><span class="n">u</span><span class="p">,</span><span class="n">j</span> <span class="o">=</span> <span class="kc">nil</span><span class="p">,</span><span class="kc">nil</span><span class="p">,</span><span class="kc">nil</span><span class="p">,</span><span class="kc">nil</span><span class="p">,</span><span class="kc">nil</span><span class="p">,</span><span class="kc">nil</span><span class="p">,</span><span class="kc">nil</span><span class="p">,</span><span class="kc">nil</span><span class="p">,</span><span class="kc">nil</span><span class="p">,</span><span class="kc">nil</span> </span><span id="L-398"><a href="#L-398"><span class="linenos" data-line="398"></span></a> <span class="kr">repeat</span> <span class="c1">-- print(sw:aimchr())</span> </span><span id="L-399"><a href="#L-399"><span class="linenos" data-line="399"></span></a> <span class="kr">if</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^[tT:]?%s*(%d%d?):"</span><span class="p">,</span><span class="n">seth</span><span class="p">)</span> <span class="kr">then</span> <span class="c1">--print("$Time")</span> </span><span id="L-400"><a href="#L-400"><span class="linenos" data-line="400"></span></a> <span class="n">_</span> <span class="o">=</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^%s*(%d%d?)"</span><span class="p">,</span><span class="n">setr</span><span class="p">)</span> <span class="ow">and</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^%s*:%s*(%d%d?)"</span><span class="p">,</span><span class="n">sets</span><span class="p">)</span> <span class="ow">and</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^([,%.]%d+)"</span><span class="p">,</span><span class="n">adds</span><span class="p">)</span> </span><span id="L-401"><a href="#L-401"><span class="linenos" data-line="401"></span></a> <span class="kr">elseif</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^(%d+)[/</span><span class="se">\\</span><span class="s2">%s,-]?%s*"</span><span class="p">)</span> <span class="kr">then</span> <span class="c1">--print("$Digits")</span> </span><span id="L-402"><a href="#L-402"><span class="linenos" data-line="402"></span></a> <span class="n">x</span><span class="p">,</span> <span class="n">c</span> <span class="o">=</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">sw</span><span class="p">[</span><span class="mi">1</span><span class="p">]),</span> <span class="n">len</span><span class="p">(</span><span class="n">sw</span><span class="p">[</span><span class="mi">1</span><span class="p">])</span> </span><span id="L-403"><a href="#L-403"><span class="linenos" data-line="403"></span></a> <span class="kr">if</span> <span class="p">(</span><span class="n">x</span> <span class="o">>=</span> <span class="mi">70</span><span class="p">)</span> <span class="ow">or</span> <span class="p">(</span><span class="n">m</span> <span class="ow">and</span> <span class="n">d</span> <span class="ow">and</span> <span class="p">(</span><span class="ow">not</span> <span class="n">y</span><span class="p">))</span> <span class="ow">or</span> <span class="p">(</span><span class="n">c</span> <span class="o">></span> <span class="mi">3</span><span class="p">)</span> <span class="kr">then</span> </span><span id="L-404"><a href="#L-404"><span class="linenos" data-line="404"></span></a> <span class="n">sety</span><span class="p">(</span> <span class="n">x</span> <span class="o">+</span> <span class="p">((</span><span class="n">x</span> <span class="o">>=</span> <span class="mi">100</span> <span class="ow">or</span> <span class="n">c</span><span class="o">></span><span class="mi">3</span><span class="p">)</span> <span class="ow">and</span> <span class="mi">0</span> <span class="ow">or</span> <span class="n">x</span><span class="o"><</span><span class="n">centuryflip</span> <span class="ow">and</span> <span class="mi">2000</span> <span class="ow">or</span> <span class="mi">1900</span><span class="p">)</span> <span class="p">)</span> </span><span id="L-405"><a href="#L-405"><span class="linenos" data-line="405"></span></a> <span class="kr">else</span> </span><span id="L-406"><a href="#L-406"><span class="linenos" data-line="406"></span></a> <span class="kr">if</span> <span class="n">m</span> <span class="kr">then</span> <span class="n">setd</span><span class="p">(</span><span class="n">x</span><span class="p">)</span> <span class="kr">else</span> <span class="n">m</span> <span class="o">=</span> <span class="n">x</span> <span class="kr">end</span> </span><span id="L-407"><a href="#L-407"><span class="linenos" data-line="407"></span></a> <span class="kr">end</span> </span><span id="L-408"><a href="#L-408"><span class="linenos" data-line="408"></span></a> <span class="kr">elseif</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^(%a+)[/</span><span class="se">\\</span><span class="s2">%s,-]?%s*"</span><span class="p">)</span> <span class="kr">then</span> <span class="c1">--print("$Words")</span> </span><span id="L-409"><a href="#L-409"><span class="linenos" data-line="409"></span></a> <span class="n">x</span> <span class="o">=</span> <span class="n">sw</span><span class="p">[</span><span class="mi">1</span><span class="p">]</span> </span><span id="L-410"><a href="#L-410"><span class="linenos" data-line="410"></span></a> <span class="kr">if</span> <span class="n">inlist</span><span class="p">(</span><span class="n">x</span><span class="p">,</span> <span class="n">sl_months</span><span class="p">,</span> <span class="mi">2</span><span class="p">,</span> <span class="n">sw</span><span class="p">)</span> <span class="kr">then</span> </span><span id="L-411"><a href="#L-411"><span class="linenos" data-line="411"></span></a> <span class="kr">if</span> <span class="n">m</span> <span class="ow">and</span> <span class="p">(</span><span class="ow">not</span> <span class="n">d</span><span class="p">)</span> <span class="ow">and</span> <span class="p">(</span><span class="ow">not</span> <span class="n">y</span><span class="p">)</span> <span class="kr">then</span> <span class="n">d</span><span class="p">,</span> <span class="n">m</span> <span class="o">=</span> <span class="n">m</span><span class="p">,</span> <span class="kc">false</span> <span class="kr">end</span> </span><span id="L-412"><a href="#L-412"><span class="linenos" data-line="412"></span></a> <span class="n">setm</span><span class="p">(</span><span class="n">mod</span><span class="p">(</span><span class="n">sw</span><span class="p">[</span><span class="mi">0</span><span class="p">],</span><span class="mi">12</span><span class="p">)</span><span class="o">+</span><span class="mi">1</span><span class="p">)</span> </span><span id="L-413"><a href="#L-413"><span class="linenos" data-line="413"></span></a> <span class="kr">elseif</span> <span class="n">inlist</span><span class="p">(</span><span class="n">x</span><span class="p">,</span> <span class="n">sl_timezone</span><span class="p">,</span> <span class="mi">2</span><span class="p">,</span> <span class="n">sw</span><span class="p">)</span> <span class="kr">then</span> </span><span id="L-414"><a href="#L-414"><span class="linenos" data-line="414"></span></a> <span class="n">c</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">sw</span><span class="p">[</span><span class="mi">0</span><span class="p">])</span> <span class="c1">-- ignore gmt and utc</span> </span><span id="L-415"><a href="#L-415"><span class="linenos" data-line="415"></span></a> <span class="kr">if</span> <span class="n">c</span> <span class="o">~=</span> <span class="mi">0</span> <span class="kr">then</span> <span class="n">setz</span><span class="p">(</span><span class="n">c</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-416"><a href="#L-416"><span class="linenos" data-line="416"></span></a> <span class="kr">elseif</span> <span class="ow">not</span> <span class="n">inlist</span><span class="p">(</span><span class="n">x</span><span class="p">,</span> <span class="n">sl_weekdays</span><span class="p">,</span> <span class="mi">2</span><span class="p">,</span> <span class="n">sw</span><span class="p">)</span> <span class="kr">then</span> </span><span id="L-417"><a href="#L-417"><span class="linenos" data-line="417"></span></a> <span class="n">sw</span><span class="p">:</span><span class="n">back</span><span class="p">()</span> </span><span id="L-418"><a href="#L-418"><span class="linenos" data-line="418"></span></a> <span class="c1">-- am pm bce ad ce bc</span> </span><span id="L-419"><a href="#L-419"><span class="linenos" data-line="419"></span></a> <span class="kr">if</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^([bB])%s*(%.?)%s*[Cc]%s*(%2)%s*[Ee]%s*(%2)%s*"</span><span class="p">)</span> <span class="ow">or</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^([bB])%s*(%.?)%s*[Cc]%s*(%2)%s*"</span><span class="p">)</span> <span class="kr">then</span> </span><span id="L-420"><a href="#L-420"><span class="linenos" data-line="420"></span></a> <span class="n">e</span> <span class="o">=</span> <span class="n">e</span> <span class="ow">and</span> <span class="n">error_dup</span><span class="p">()</span> <span class="ow">or</span> <span class="o">-</span><span class="mi">1</span> </span><span id="L-421"><a href="#L-421"><span class="linenos" data-line="421"></span></a> <span class="kr">elseif</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^([aA])%s*(%.?)%s*[Dd]%s*(%2)%s*"</span><span class="p">)</span> <span class="ow">or</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^([cC])%s*(%.?)%s*[Ee]%s*(%2)%s*"</span><span class="p">)</span> <span class="kr">then</span> </span><span id="L-422"><a href="#L-422"><span class="linenos" data-line="422"></span></a> <span class="n">e</span> <span class="o">=</span> <span class="n">e</span> <span class="ow">and</span> <span class="n">error_dup</span><span class="p">()</span> <span class="ow">or</span> <span class="mi">1</span> </span><span id="L-423"><a href="#L-423"><span class="linenos" data-line="423"></span></a> <span class="kr">elseif</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^([PApa])%s*(%.?)%s*[Mm]?%s*(%2)%s*"</span><span class="p">)</span> <span class="kr">then</span> </span><span id="L-424"><a href="#L-424"><span class="linenos" data-line="424"></span></a> <span class="n">x</span> <span class="o">=</span> <span class="n">lwr</span><span class="p">(</span><span class="n">sw</span><span class="p">[</span><span class="mi">1</span><span class="p">])</span> <span class="c1">-- there should be hour and it must be correct</span> </span><span id="L-425"><a href="#L-425"><span class="linenos" data-line="425"></span></a> <span class="kr">if</span> <span class="p">(</span><span class="ow">not</span> <span class="n">h</span><span class="p">)</span> <span class="ow">or</span> <span class="p">(</span><span class="n">h</span> <span class="o">></span> <span class="mi">12</span><span class="p">)</span> <span class="ow">or</span> <span class="p">(</span><span class="n">h</span> <span class="o"><</span> <span class="mi">0</span><span class="p">)</span> <span class="kr">then</span> <span class="kr">return</span> <span class="n">error_inv</span><span class="p">()</span> <span class="kr">end</span> </span><span id="L-426"><a href="#L-426"><span class="linenos" data-line="426"></span></a> <span class="kr">if</span> <span class="n">x</span> <span class="o">==</span> <span class="s1">'a'</span> <span class="ow">and</span> <span class="n">h</span> <span class="o">==</span> <span class="mi">12</span> <span class="kr">then</span> <span class="n">h</span> <span class="o">=</span> <span class="mi">0</span> <span class="kr">end</span> <span class="c1">-- am</span> </span><span id="L-427"><a href="#L-427"><span class="linenos" data-line="427"></span></a> <span class="kr">if</span> <span class="n">x</span> <span class="o">==</span> <span class="s1">'p'</span> <span class="ow">and</span> <span class="n">h</span> <span class="o">~=</span> <span class="mi">12</span> <span class="kr">then</span> <span class="n">h</span> <span class="o">=</span> <span class="n">h</span> <span class="o">+</span> <span class="mi">12</span> <span class="kr">end</span> <span class="c1">-- pm</span> </span><span id="L-428"><a href="#L-428"><span class="linenos" data-line="428"></span></a> <span class="kr">else</span> <span class="n">error_syn</span><span class="p">()</span> <span class="kr">end</span> </span><span id="L-429"><a href="#L-429"><span class="linenos" data-line="429"></span></a> <span class="kr">end</span> </span><span id="L-430"><a href="#L-430"><span class="linenos" data-line="430"></span></a> <span class="kr">elseif</span> <span class="ow">not</span><span class="p">(</span><span class="n">sw</span><span class="p">(</span><span class="s2">"^([+-])(%d%d?):(%d%d)"</span><span class="p">,</span><span class="n">setzc</span><span class="p">)</span> <span class="ow">or</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^([+-])(%d+)"</span><span class="p">,</span><span class="n">setzn</span><span class="p">)</span> <span class="ow">or</span> <span class="n">sw</span><span class="p">(</span><span class="s2">"^[Zz]%s*$"</span><span class="p">))</span> <span class="kr">then</span> <span class="c1">-- sw{"([+-])",{"(%d%d?):(%d%d)","(%d+)"}}</span> </span><span id="L-431"><a href="#L-431"><span class="linenos" data-line="431"></span></a> <span class="n">error_syn</span><span class="p">(</span><span class="s2">"?"</span><span class="p">)</span> </span><span id="L-432"><a href="#L-432"><span class="linenos" data-line="432"></span></a> <span class="kr">end</span> </span><span id="L-433"><a href="#L-433"><span class="linenos" data-line="433"></span></a> <span class="n">sw</span><span class="p">(</span><span class="s2">"^%s*"</span><span class="p">)</span> <span class="kr">until</span> <span class="n">sw</span><span class="p">:</span><span class="n">finish</span><span class="p">()</span> </span><span id="L-434"><a href="#L-434"><span class="linenos" data-line="434"></span></a> <span class="c1">--else print("$Iso(Date|Time|Zone)")</span> </span><span id="L-435"><a href="#L-435"><span class="linenos" data-line="435"></span></a> <span class="kr">end</span> </span><span id="L-436"><a href="#L-436"><span class="linenos" data-line="436"></span></a> <span class="c1">-- if date is given, it must be complete year, month & day</span> </span><span id="L-437"><a href="#L-437"><span class="linenos" data-line="437"></span></a> <span class="kr">if</span> <span class="p">(</span><span class="ow">not</span> <span class="n">y</span> <span class="ow">and</span> <span class="ow">not</span> <span class="n">h</span><span class="p">)</span> <span class="ow">or</span> <span class="p">((</span><span class="n">m</span> <span class="ow">and</span> <span class="ow">not</span> <span class="n">d</span><span class="p">)</span> <span class="ow">or</span> <span class="p">(</span><span class="n">d</span> <span class="ow">and</span> <span class="ow">not</span> <span class="n">m</span><span class="p">))</span> <span class="ow">or</span> <span class="p">((</span><span class="n">m</span> <span class="ow">and</span> <span class="n">w</span><span class="p">)</span> <span class="ow">or</span> <span class="p">(</span><span class="n">m</span> <span class="ow">and</span> <span class="n">j</span><span class="p">)</span> <span class="ow">or</span> <span class="p">(</span><span class="n">j</span> <span class="ow">and</span> <span class="n">w</span><span class="p">))</span> <span class="kr">then</span> <span class="kr">return</span> <span class="n">error_inv</span><span class="p">(</span><span class="s2">"!"</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-438"><a href="#L-438"><span class="linenos" data-line="438"></span></a> <span class="c1">-- si no se especific贸 mes o d铆a, entonces asumo que valen 1</span> </span><span id="L-439"><a href="#L-439"><span class="linenos" data-line="439"></span></a> <span class="kr">if</span> <span class="ow">not</span> <span class="n">m</span> <span class="kr">then</span> <span class="n">m</span> <span class="o">=</span> <span class="mi">1</span> <span class="kr">end</span> </span><span id="L-440"><a href="#L-440"><span class="linenos" data-line="440"></span></a> <span class="kr">if</span> <span class="ow">not</span> <span class="n">d</span> <span class="kr">then</span> <span class="n">d</span> <span class="o">=</span> <span class="mi">1</span> <span class="kr">end</span> </span><span id="L-441"><a href="#L-441"><span class="linenos" data-line="441"></span></a> <span class="c1">-- fix month</span> </span><span id="L-442"><a href="#L-442"><span class="linenos" data-line="442"></span></a> <span class="kr">if</span> <span class="n">m</span> <span class="kr">then</span> <span class="n">m</span> <span class="o">=</span> <span class="n">m</span> <span class="o">-</span> <span class="mi">1</span> <span class="kr">end</span> </span><span id="L-443"><a href="#L-443"><span class="linenos" data-line="443"></span></a> <span class="c1">-- fix year if we are on BCE</span> </span><span id="L-444"><a href="#L-444"><span class="linenos" data-line="444"></span></a> <span class="kr">if</span> <span class="n">e</span> <span class="ow">and</span> <span class="n">e</span> <span class="o"><</span> <span class="mi">0</span> <span class="ow">and</span> <span class="n">y</span> <span class="o">></span> <span class="mi">0</span> <span class="kr">then</span> <span class="n">y</span> <span class="o">=</span> <span class="mi">1</span> <span class="o">-</span> <span class="n">y</span> <span class="kr">end</span> </span><span id="L-445"><a href="#L-445"><span class="linenos" data-line="445"></span></a> <span class="c1">-- create date object</span> </span><span id="L-446"><a href="#L-446"><span class="linenos" data-line="446"></span></a> <span class="n">dn</span> <span class="o">=</span> <span class="p">(</span><span class="n">y</span> <span class="ow">and</span> <span class="p">((</span><span class="n">w</span> <span class="ow">and</span> <span class="n">makedaynum_isoywd</span><span class="p">(</span><span class="n">y</span><span class="p">,</span><span class="n">w</span><span class="p">,</span><span class="n">u</span><span class="p">))</span> <span class="ow">or</span> <span class="p">(</span><span class="n">j</span> <span class="ow">and</span> <span class="n">makedaynum</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="mi">0</span><span class="p">,</span> <span class="n">j</span><span class="p">))</span> <span class="ow">or</span> <span class="n">makedaynum</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">d</span><span class="p">)))</span> <span class="ow">or</span> <span class="n">DAYNUM_DEF</span> </span><span id="L-447"><a href="#L-447"><span class="linenos" data-line="447"></span></a> <span class="n">df</span> <span class="o">=</span> <span class="n">makedayfrc</span><span class="p">(</span><span class="n">h</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">,</span> <span class="n">r</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">,</span> <span class="n">s</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">,</span> <span class="mi">0</span><span class="p">)</span> <span class="o">+</span> <span class="p">((</span><span class="n">z</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">)</span><span class="o">*</span><span class="n">TICKSPERMIN</span><span class="p">)</span> </span><span id="L-448"><a href="#L-448"><span class="linenos" data-line="448"></span></a> <span class="c1">--print("Zone",h,r,s,z,m,d,y,df)</span> </span><span id="L-449"><a href="#L-449"><span class="linenos" data-line="449"></span></a> <span class="kr">return</span> <span class="n">date_new</span><span class="p">(</span><span class="n">dn</span><span class="p">,</span> <span class="n">df</span><span class="p">)</span> <span class="c1">-- no need to :normalize();</span> </span><span id="L-450"><a href="#L-450"><span class="linenos" data-line="450"></span></a><span class="kr">end</span> </span><span id="L-451"><a href="#L-451"><span class="linenos" data-line="451"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">date_fromtable</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> </span><span id="L-452"><a href="#L-452"><span class="linenos" data-line="452"></span></a> <span class="kd">local</span> <span class="n">y</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">d</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">v</span><span class="p">.</span><span class="n">year</span><span class="p">),</span> <span class="n">getmontharg</span><span class="p">(</span><span class="n">v</span><span class="p">.</span><span class="n">month</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">v</span><span class="p">.</span><span class="n">day</span><span class="p">)</span> </span><span id="L-453"><a href="#L-453"><span class="linenos" data-line="453"></span></a> <span class="kd">local</span> <span class="n">h</span><span class="p">,</span> <span class="n">r</span><span class="p">,</span> <span class="n">s</span><span class="p">,</span> <span class="n">t</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">v</span><span class="p">.</span><span class="n">hour</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">v</span><span class="p">.</span><span class="n">min</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">v</span><span class="p">.</span><span class="n">sec</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">v</span><span class="p">.</span><span class="n">ticks</span><span class="p">)</span> </span><span id="L-454"><a href="#L-454"><span class="linenos" data-line="454"></span></a> <span class="c1">-- atleast there is time or complete date</span> </span><span id="L-455"><a href="#L-455"><span class="linenos" data-line="455"></span></a> <span class="kr">if</span> <span class="p">(</span><span class="n">y</span> <span class="ow">or</span> <span class="n">m</span> <span class="ow">or</span> <span class="n">d</span><span class="p">)</span> <span class="ow">and</span> <span class="p">(</span><span class="ow">not</span><span class="p">(</span><span class="n">y</span> <span class="ow">and</span> <span class="n">m</span> <span class="ow">and</span> <span class="n">d</span><span class="p">))</span> <span class="kr">then</span> <span class="kr">return</span> <span class="nb">error</span><span class="p">(</span><span class="s2">"incomplete table"</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-456"><a href="#L-456"><span class="linenos" data-line="456"></span></a> <span class="kr">return</span> <span class="p">(</span><span class="n">y</span> <span class="ow">or</span> <span class="n">h</span> <span class="ow">or</span> <span class="n">r</span> <span class="ow">or</span> <span class="n">s</span> <span class="ow">or</span> <span class="n">t</span><span class="p">)</span> <span class="ow">and</span> <span class="n">date_new</span><span class="p">(</span><span class="n">y</span> <span class="ow">and</span> <span class="n">makedaynum</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">d</span><span class="p">)</span> <span class="ow">or</span> <span class="n">DAYNUM_DEF</span><span class="p">,</span> <span class="n">makedayfrc</span><span class="p">(</span><span class="n">h</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">,</span> <span class="n">r</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">,</span> <span class="n">s</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">,</span> <span class="n">t</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">))</span> </span><span id="L-457"><a href="#L-457"><span class="linenos" data-line="457"></span></a><span class="kr">end</span> </span><span id="L-458"><a href="#L-458"><span class="linenos" data-line="458"></span></a><span class="kd">local</span> <span class="n">tmap</span> <span class="o">=</span> <span class="p">{</span> </span><span id="L-459"><a href="#L-459"><span class="linenos" data-line="459"></span></a> <span class="p">[</span><span class="s1">'number'</span><span class="p">]</span> <span class="o">=</span> <span class="kr">function</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> <span class="kr">return</span> <span class="n">date_epoch</span><span class="p">:</span><span class="n">copy</span><span class="p">():</span><span class="n">addseconds</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-460"><a href="#L-460"><span class="linenos" data-line="460"></span></a> <span class="p">[</span><span class="s1">'string'</span><span class="p">]</span> <span class="o">=</span> <span class="kr">function</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> <span class="kr">return</span> <span class="n">date_parse</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-461"><a href="#L-461"><span class="linenos" data-line="461"></span></a> <span class="p">[</span><span class="s1">'boolean'</span><span class="p">]</span><span class="o">=</span> <span class="kr">function</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> <span class="kr">return</span> <span class="n">date_fromtable</span><span class="p">(</span><span class="n">osdate</span><span class="p">(</span><span class="n">v</span> <span class="ow">and</span> <span class="s2">"!*t"</span> <span class="ow">or</span> <span class="s2">"*t"</span><span class="p">))</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-462"><a href="#L-462"><span class="linenos" data-line="462"></span></a> <span class="p">[</span><span class="s1">'table'</span><span class="p">]</span> <span class="o">=</span> <span class="kr">function</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> <span class="kd">local</span> <span class="n">ref</span> <span class="o">=</span> <span class="nb">getmetatable</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> <span class="o">==</span> <span class="n">dobj</span><span class="p">;</span> <span class="kr">return</span> <span class="n">ref</span> <span class="ow">and</span> <span class="n">v</span> <span class="ow">or</span> <span class="n">date_fromtable</span><span class="p">(</span><span class="n">v</span><span class="p">),</span> <span class="n">ref</span> <span class="kr">end</span> </span><span id="L-463"><a href="#L-463"><span class="linenos" data-line="463"></span></a><span class="p">}</span> </span><span id="L-464"><a href="#L-464"><span class="linenos" data-line="464"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">date_getdobj</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> </span><span id="L-465"><a href="#L-465"><span class="linenos" data-line="465"></span></a> <span class="kd">local</span> <span class="n">o</span><span class="p">,</span> <span class="n">r</span> <span class="o">=</span> <span class="p">(</span><span class="n">tmap</span><span class="p">[</span><span class="nb">type</span><span class="p">(</span><span class="n">v</span><span class="p">)]</span> <span class="ow">or</span> <span class="n">fnil</span><span class="p">)(</span><span class="n">v</span><span class="p">);</span> </span><span id="L-466"><a href="#L-466"><span class="linenos" data-line="466"></span></a> <span class="kr">return</span> <span class="p">(</span><span class="n">o</span> <span class="ow">and</span> <span class="n">o</span><span class="p">:</span><span class="n">normalize</span><span class="p">()</span> <span class="ow">or</span> <span class="nb">error</span><span class="s2">"invalid date time value"</span><span class="p">),</span> <span class="n">r</span> <span class="c1">-- if r is true then o is a reference to a date obj</span> </span><span id="L-467"><a href="#L-467"><span class="linenos" data-line="467"></span></a><span class="kr">end</span> </span><span id="L-468"><a href="#L-468"><span class="linenos" data-line="468"></span></a><span class="c1">--#end -- not DATE_OBJECT_AFX</span> </span><span id="L-469"><a href="#L-469"><span class="linenos" data-line="469"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">date_from</span><span class="p">(</span><span class="n">arg1</span><span class="p">,</span> <span class="n">arg2</span><span class="p">,</span> <span class="n">arg3</span><span class="p">,</span> <span class="n">arg4</span><span class="p">,</span> <span class="n">arg5</span><span class="p">,</span> <span class="n">arg6</span><span class="p">,</span> <span class="n">arg7</span><span class="p">)</span> </span><span id="L-470"><a href="#L-470"><span class="linenos" data-line="470"></span></a> <span class="kd">local</span> <span class="n">y</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">d</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">arg1</span><span class="p">),</span> <span class="n">getmontharg</span><span class="p">(</span><span class="n">arg2</span> <span class="ow">or</span> <span class="mi">1</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">arg3</span> <span class="ow">or</span> <span class="mi">1</span><span class="p">)</span> </span><span id="L-471"><a href="#L-471"><span class="linenos" data-line="471"></span></a> <span class="kd">local</span> <span class="n">h</span><span class="p">,</span> <span class="n">r</span><span class="p">,</span> <span class="n">s</span><span class="p">,</span> <span class="n">t</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">arg4</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">arg5</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">arg6</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">arg7</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">)</span> </span><span id="L-472"><a href="#L-472"><span class="linenos" data-line="472"></span></a> <span class="kr">if</span> <span class="n">y</span> <span class="ow">and</span> <span class="n">m</span> <span class="ow">and</span> <span class="n">d</span> <span class="ow">and</span> <span class="n">h</span> <span class="ow">and</span> <span class="n">r</span> <span class="ow">and</span> <span class="n">s</span> <span class="ow">and</span> <span class="n">t</span> <span class="kr">then</span> </span><span id="L-473"><a href="#L-473"><span class="linenos" data-line="473"></span></a> <span class="kr">return</span> <span class="n">date_new</span><span class="p">(</span><span class="n">makedaynum</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">d</span><span class="p">),</span> <span class="n">makedayfrc</span><span class="p">(</span><span class="n">h</span><span class="p">,</span> <span class="n">r</span><span class="p">,</span> <span class="n">s</span><span class="p">,</span> <span class="n">t</span><span class="p">)):</span><span class="n">normalize</span><span class="p">()</span> </span><span id="L-474"><a href="#L-474"><span class="linenos" data-line="474"></span></a> <span class="kr">else</span> </span><span id="L-475"><a href="#L-475"><span class="linenos" data-line="475"></span></a> <span class="kr">return</span> <span class="n">date_error_arg</span><span class="p">()</span> </span><span id="L-476"><a href="#L-476"><span class="linenos" data-line="476"></span></a> <span class="kr">end</span> </span><span id="L-477"><a href="#L-477"><span class="linenos" data-line="477"></span></a><span class="kr">end</span> </span><span id="L-478"><a href="#L-478"><span class="linenos" data-line="478"></span></a> </span><span id="L-479"><a href="#L-479"><span class="linenos" data-line="479"></span></a><span class="cm">--[[ THE DATE OBJECT METHODS ]]</span><span class="c1">--</span> </span><span id="L-480"><a href="#L-480"><span class="linenos" data-line="480"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">normalize</span><span class="p">()</span> </span><span id="L-481"><a href="#L-481"><span class="linenos" data-line="481"></span></a> <span class="kd">local</span> <span class="n">dn</span><span class="p">,</span> <span class="n">df</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">),</span> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span> </span><span id="L-482"><a href="#L-482"><span class="linenos" data-line="482"></span></a> <span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">,</span> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span> <span class="o">=</span> <span class="n">dn</span> <span class="o">+</span> <span class="n">floor</span><span class="p">(</span><span class="n">df</span><span class="o">/</span><span class="n">TICKSPERDAY</span><span class="p">),</span> <span class="n">mod</span><span class="p">(</span><span class="n">df</span><span class="p">,</span> <span class="n">TICKSPERDAY</span><span class="p">)</span> </span><span id="L-483"><a href="#L-483"><span class="linenos" data-line="483"></span></a> <span class="kr">return</span> <span class="p">(</span><span class="n">dn</span> <span class="o">>=</span> <span class="n">DAYNUM_MIN</span> <span class="ow">and</span> <span class="n">dn</span> <span class="o"><=</span> <span class="n">DAYNUM_MAX</span><span class="p">)</span> <span class="ow">and</span> <span class="n">self</span> <span class="ow">or</span> <span class="nb">error</span><span class="p">(</span><span class="s2">"date beyond imposed limits:"</span><span class="o">..</span><span class="n">self</span><span class="p">)</span> </span><span id="L-484"><a href="#L-484"><span class="linenos" data-line="484"></span></a><span class="kr">end</span> </span><span id="L-485"><a href="#L-485"><span class="linenos" data-line="485"></span></a> </span><span id="L-486"><a href="#L-486"><span class="linenos" data-line="486"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getdate</span><span class="p">()</span> <span class="kd">local</span> <span class="n">y</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">d</span> <span class="o">=</span> <span class="n">breakdaynum</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> <span class="kr">return</span> <span class="n">y</span><span class="p">,</span> <span class="n">m</span><span class="o">+</span><span class="mi">1</span><span class="p">,</span> <span class="n">d</span> <span class="kr">end</span> </span><span id="L-487"><a href="#L-487"><span class="linenos" data-line="487"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">gettime</span><span class="p">()</span> <span class="kr">return</span> <span class="n">breakdayfrc</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-488"><a href="#L-488"><span class="linenos" data-line="488"></span></a> </span><span id="L-489"><a href="#L-489"><span class="linenos" data-line="489"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getclockhour</span><span class="p">()</span> <span class="kd">local</span> <span class="n">h</span> <span class="o">=</span> <span class="n">self</span><span class="p">:</span><span class="n">gethours</span><span class="p">()</span> <span class="kr">return</span> <span class="n">h</span><span class="o">></span><span class="mi">12</span> <span class="ow">and</span> <span class="n">mod</span><span class="p">(</span><span class="n">h</span><span class="p">,</span><span class="mi">12</span><span class="p">)</span> <span class="ow">or</span> <span class="p">(</span><span class="n">h</span><span class="o">==</span><span class="mi">0</span> <span class="ow">and</span> <span class="mi">12</span> <span class="ow">or</span> <span class="n">h</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-490"><a href="#L-490"><span class="linenos" data-line="490"></span></a> </span><span id="L-491"><a href="#L-491"><span class="linenos" data-line="491"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getyearday</span><span class="p">()</span> <span class="kr">return</span> <span class="n">yearday</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> <span class="o">+</span> <span class="mi">1</span> <span class="kr">end</span> </span><span id="L-492"><a href="#L-492"><span class="linenos" data-line="492"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getweekday</span><span class="p">()</span> <span class="kr">return</span> <span class="n">weekday</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> <span class="o">+</span> <span class="mi">1</span> <span class="kr">end</span> <span class="c1">-- in lua weekday is sunday = 1, monday = 2 ...</span> </span><span id="L-493"><a href="#L-493"><span class="linenos" data-line="493"></span></a> </span><span id="L-494"><a href="#L-494"><span class="linenos" data-line="494"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getyear</span><span class="p">()</span> <span class="kd">local</span> <span class="n">r</span><span class="p">,</span><span class="n">_</span><span class="p">,</span><span class="n">_</span> <span class="o">=</span> <span class="n">breakdaynum</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> <span class="kr">return</span> <span class="n">r</span> <span class="kr">end</span> </span><span id="L-495"><a href="#L-495"><span class="linenos" data-line="495"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getmonth</span><span class="p">()</span> <span class="kd">local</span> <span class="n">_</span><span class="p">,</span><span class="n">r</span><span class="p">,</span><span class="n">_</span> <span class="o">=</span> <span class="n">breakdaynum</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> <span class="kr">return</span> <span class="n">r</span><span class="o">+</span><span class="mi">1</span> <span class="kr">end</span><span class="c1">-- in lua month is 1 base</span> </span><span id="L-496"><a href="#L-496"><span class="linenos" data-line="496"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getday</span><span class="p">()</span> <span class="kd">local</span> <span class="n">_</span><span class="p">,</span><span class="n">_</span><span class="p">,</span><span class="n">r</span> <span class="o">=</span> <span class="n">breakdaynum</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> <span class="kr">return</span> <span class="n">r</span> <span class="kr">end</span> </span><span id="L-497"><a href="#L-497"><span class="linenos" data-line="497"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">gethours</span><span class="p">()</span> <span class="kr">return</span> <span class="n">mod</span><span class="p">(</span><span class="n">floor</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="o">/</span><span class="n">TICKSPERHOUR</span><span class="p">),</span><span class="n">HOURPERDAY</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-498"><a href="#L-498"><span class="linenos" data-line="498"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getminutes</span><span class="p">()</span> <span class="kr">return</span> <span class="n">mod</span><span class="p">(</span><span class="n">floor</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="o">/</span><span class="n">TICKSPERMIN</span><span class="p">),</span> <span class="n">MINPERHOUR</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-499"><a href="#L-499"><span class="linenos" data-line="499"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getseconds</span><span class="p">()</span> <span class="kr">return</span> <span class="n">mod</span><span class="p">(</span><span class="n">floor</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="o">/</span><span class="n">TICKSPERSEC</span> <span class="p">),</span><span class="n">SECPERMIN</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-500"><a href="#L-500"><span class="linenos" data-line="500"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getfracsec</span><span class="p">()</span> <span class="kr">return</span> <span class="n">mod</span><span class="p">(</span><span class="n">floor</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="o">/</span><span class="n">TICKSPERSEC</span> <span class="p">),</span><span class="n">SECPERMIN</span><span class="p">)</span><span class="o">+</span><span class="p">(</span><span class="n">mod</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">,</span><span class="n">TICKSPERSEC</span><span class="p">)</span><span class="o">/</span><span class="n">TICKSPERSEC</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-501"><a href="#L-501"><span class="linenos" data-line="501"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getticks</span><span class="p">(</span><span class="n">u</span><span class="p">)</span> <span class="kd">local</span> <span class="n">x</span> <span class="o">=</span> <span class="n">mod</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">,</span><span class="n">TICKSPERSEC</span><span class="p">)</span> <span class="kr">return</span> <span class="n">u</span> <span class="ow">and</span> <span class="p">((</span><span class="n">x</span><span class="o">*</span><span class="n">u</span><span class="p">)</span><span class="o">/</span><span class="n">TICKSPERSEC</span><span class="p">)</span> <span class="ow">or</span> <span class="n">x</span> <span class="kr">end</span> </span><span id="L-502"><a href="#L-502"><span class="linenos" data-line="502"></span></a> </span><span id="L-503"><a href="#L-503"><span class="linenos" data-line="503"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getweeknumber</span><span class="p">(</span><span class="n">wdb</span><span class="p">)</span> </span><span id="L-504"><a href="#L-504"><span class="linenos" data-line="504"></span></a> <span class="kd">local</span> <span class="n">wd</span><span class="p">,</span> <span class="n">yd</span> <span class="o">=</span> <span class="n">weekday</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">),</span> <span class="n">yearday</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> </span><span id="L-505"><a href="#L-505"><span class="linenos" data-line="505"></span></a> <span class="kr">if</span> <span class="n">wdb</span> <span class="kr">then</span> </span><span id="L-506"><a href="#L-506"><span class="linenos" data-line="506"></span></a> <span class="n">wdb</span> <span class="o">=</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">wdb</span><span class="p">)</span> </span><span id="L-507"><a href="#L-507"><span class="linenos" data-line="507"></span></a> <span class="kr">if</span> <span class="n">wdb</span> <span class="kr">then</span> </span><span id="L-508"><a href="#L-508"><span class="linenos" data-line="508"></span></a> <span class="n">wd</span> <span class="o">=</span> <span class="n">mod</span><span class="p">(</span><span class="n">wd</span><span class="o">-</span><span class="p">(</span><span class="n">wdb</span><span class="o">-</span><span class="mi">1</span><span class="p">),</span><span class="mi">7</span><span class="p">)</span><span class="c1">-- shift the week day base</span> </span><span id="L-509"><a href="#L-509"><span class="linenos" data-line="509"></span></a> <span class="kr">else</span> </span><span id="L-510"><a href="#L-510"><span class="linenos" data-line="510"></span></a> <span class="kr">return</span> <span class="n">date_error_arg</span><span class="p">()</span> </span><span id="L-511"><a href="#L-511"><span class="linenos" data-line="511"></span></a> <span class="kr">end</span> </span><span id="L-512"><a href="#L-512"><span class="linenos" data-line="512"></span></a> <span class="kr">end</span> </span><span id="L-513"><a href="#L-513"><span class="linenos" data-line="513"></span></a> <span class="kr">return</span> <span class="p">(</span><span class="n">yd</span> <span class="o"><</span> <span class="n">wd</span> <span class="ow">and</span> <span class="mi">0</span><span class="p">)</span> <span class="ow">or</span> <span class="p">(</span><span class="n">floor</span><span class="p">(</span><span class="n">yd</span><span class="o">/</span><span class="mi">7</span><span class="p">)</span> <span class="o">+</span> <span class="p">((</span><span class="n">mod</span><span class="p">(</span><span class="n">yd</span><span class="p">,</span> <span class="mi">7</span><span class="p">)</span><span class="o">>=</span><span class="n">wd</span><span class="p">)</span> <span class="ow">and</span> <span class="mi">1</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">))</span> </span><span id="L-514"><a href="#L-514"><span class="linenos" data-line="514"></span></a><span class="kr">end</span> </span><span id="L-515"><a href="#L-515"><span class="linenos" data-line="515"></span></a> </span><span id="L-516"><a href="#L-516"><span class="linenos" data-line="516"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getisoweekday</span><span class="p">()</span> <span class="kr">return</span> <span class="n">mod</span><span class="p">(</span><span class="n">weekday</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span><span class="o">-</span><span class="mi">1</span><span class="p">,</span><span class="mi">7</span><span class="p">)</span><span class="o">+</span><span class="mi">1</span> <span class="kr">end</span> <span class="c1">-- sunday = 7, monday = 1 ...</span> </span><span id="L-517"><a href="#L-517"><span class="linenos" data-line="517"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getisoweeknumber</span><span class="p">()</span> <span class="kr">return</span> <span class="p">(</span><span class="n">isowy</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">))</span> <span class="kr">end</span> </span><span id="L-518"><a href="#L-518"><span class="linenos" data-line="518"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getisoyear</span><span class="p">()</span> <span class="kr">return</span> <span class="n">isoy</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-519"><a href="#L-519"><span class="linenos" data-line="519"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getisodate</span><span class="p">()</span> </span><span id="L-520"><a href="#L-520"><span class="linenos" data-line="520"></span></a> <span class="kd">local</span> <span class="n">w</span><span class="p">,</span> <span class="n">y</span> <span class="o">=</span> <span class="n">isowy</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> </span><span id="L-521"><a href="#L-521"><span class="linenos" data-line="521"></span></a> <span class="kr">return</span> <span class="n">y</span><span class="p">,</span> <span class="n">w</span><span class="p">,</span> <span class="n">self</span><span class="p">:</span><span class="n">getisoweekday</span><span class="p">()</span> </span><span id="L-522"><a href="#L-522"><span class="linenos" data-line="522"></span></a><span class="kr">end</span> </span><span id="L-523"><a href="#L-523"><span class="linenos" data-line="523"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">setisoyear</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="n">w</span><span class="p">,</span> <span class="n">d</span><span class="p">)</span> </span><span id="L-524"><a href="#L-524"><span class="linenos" data-line="524"></span></a> <span class="kd">local</span> <span class="n">cy</span><span class="p">,</span> <span class="n">cw</span><span class="p">,</span> <span class="n">cd</span> <span class="o">=</span> <span class="n">self</span><span class="p">:</span><span class="n">getisodate</span><span class="p">()</span> </span><span id="L-525"><a href="#L-525"><span class="linenos" data-line="525"></span></a> <span class="kr">if</span> <span class="n">y</span> <span class="kr">then</span> <span class="n">cy</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">y</span><span class="p">)</span><span class="kr">end</span> </span><span id="L-526"><a href="#L-526"><span class="linenos" data-line="526"></span></a> <span class="kr">if</span> <span class="n">w</span> <span class="kr">then</span> <span class="n">cw</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">w</span><span class="p">)</span><span class="kr">end</span> </span><span id="L-527"><a href="#L-527"><span class="linenos" data-line="527"></span></a> <span class="kr">if</span> <span class="n">d</span> <span class="kr">then</span> <span class="n">cd</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">d</span><span class="p">)</span><span class="kr">end</span> </span><span id="L-528"><a href="#L-528"><span class="linenos" data-line="528"></span></a> <span class="kr">if</span> <span class="n">cy</span> <span class="ow">and</span> <span class="n">cw</span> <span class="ow">and</span> <span class="n">cd</span> <span class="kr">then</span> </span><span id="L-529"><a href="#L-529"><span class="linenos" data-line="529"></span></a> <span class="n">self</span><span class="p">.</span><span class="n">daynum</span> <span class="o">=</span> <span class="n">makedaynum_isoywd</span><span class="p">(</span><span class="n">cy</span><span class="p">,</span> <span class="n">cw</span><span class="p">,</span> <span class="n">cd</span><span class="p">)</span> </span><span id="L-530"><a href="#L-530"><span class="linenos" data-line="530"></span></a> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">normalize</span><span class="p">()</span> </span><span id="L-531"><a href="#L-531"><span class="linenos" data-line="531"></span></a> <span class="kr">else</span> </span><span id="L-532"><a href="#L-532"><span class="linenos" data-line="532"></span></a> <span class="kr">return</span> <span class="n">date_error_arg</span><span class="p">()</span> </span><span id="L-533"><a href="#L-533"><span class="linenos" data-line="533"></span></a> <span class="kr">end</span> </span><span id="L-534"><a href="#L-534"><span class="linenos" data-line="534"></span></a><span class="kr">end</span> </span><span id="L-535"><a href="#L-535"><span class="linenos" data-line="535"></span></a> </span><span id="L-536"><a href="#L-536"><span class="linenos" data-line="536"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">setisoweekday</span><span class="p">(</span><span class="n">d</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">setisoyear</span><span class="p">(</span><span class="kc">nil</span><span class="p">,</span> <span class="kc">nil</span><span class="p">,</span> <span class="n">d</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-537"><a href="#L-537"><span class="linenos" data-line="537"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">setisoweeknumber</span><span class="p">(</span><span class="n">w</span><span class="p">,</span><span class="n">d</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">setisoyear</span><span class="p">(</span><span class="kc">nil</span><span class="p">,</span> <span class="n">w</span><span class="p">,</span> <span class="n">d</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-538"><a href="#L-538"><span class="linenos" data-line="538"></span></a> </span><span id="L-539"><a href="#L-539"><span class="linenos" data-line="539"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">setyear</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">d</span><span class="p">)</span> </span><span id="L-540"><a href="#L-540"><span class="linenos" data-line="540"></span></a> <span class="kd">local</span> <span class="n">cy</span><span class="p">,</span> <span class="n">cm</span><span class="p">,</span> <span class="n">cd</span> <span class="o">=</span> <span class="n">breakdaynum</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> </span><span id="L-541"><a href="#L-541"><span class="linenos" data-line="541"></span></a> <span class="kr">if</span> <span class="n">y</span> <span class="kr">then</span> <span class="n">cy</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">y</span><span class="p">)</span><span class="kr">end</span> </span><span id="L-542"><a href="#L-542"><span class="linenos" data-line="542"></span></a> <span class="kr">if</span> <span class="n">m</span> <span class="kr">then</span> <span class="n">cm</span> <span class="o">=</span> <span class="n">getmontharg</span><span class="p">(</span><span class="n">m</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-543"><a href="#L-543"><span class="linenos" data-line="543"></span></a> <span class="kr">if</span> <span class="n">d</span> <span class="kr">then</span> <span class="n">cd</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">d</span><span class="p">)</span><span class="kr">end</span> </span><span id="L-544"><a href="#L-544"><span class="linenos" data-line="544"></span></a> <span class="kr">if</span> <span class="n">cy</span> <span class="ow">and</span> <span class="n">cm</span> <span class="ow">and</span> <span class="n">cd</span> <span class="kr">then</span> </span><span id="L-545"><a href="#L-545"><span class="linenos" data-line="545"></span></a> <span class="n">self</span><span class="p">.</span><span class="n">daynum</span> <span class="o">=</span> <span class="n">makedaynum</span><span class="p">(</span><span class="n">cy</span><span class="p">,</span> <span class="n">cm</span><span class="p">,</span> <span class="n">cd</span><span class="p">)</span> </span><span id="L-546"><a href="#L-546"><span class="linenos" data-line="546"></span></a> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">normalize</span><span class="p">()</span> </span><span id="L-547"><a href="#L-547"><span class="linenos" data-line="547"></span></a> <span class="kr">else</span> </span><span id="L-548"><a href="#L-548"><span class="linenos" data-line="548"></span></a> <span class="kr">return</span> <span class="n">date_error_arg</span><span class="p">()</span> </span><span id="L-549"><a href="#L-549"><span class="linenos" data-line="549"></span></a> <span class="kr">end</span> </span><span id="L-550"><a href="#L-550"><span class="linenos" data-line="550"></span></a><span class="kr">end</span> </span><span id="L-551"><a href="#L-551"><span class="linenos" data-line="551"></span></a> </span><span id="L-552"><a href="#L-552"><span class="linenos" data-line="552"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">setmonth</span><span class="p">(</span><span class="n">m</span><span class="p">,</span> <span class="n">d</span><span class="p">)</span><span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">setyear</span><span class="p">(</span><span class="kc">nil</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">d</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-553"><a href="#L-553"><span class="linenos" data-line="553"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">setday</span><span class="p">(</span><span class="n">d</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">setyear</span><span class="p">(</span><span class="kc">nil</span><span class="p">,</span> <span class="kc">nil</span><span class="p">,</span> <span class="n">d</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-554"><a href="#L-554"><span class="linenos" data-line="554"></span></a> </span><span id="L-555"><a href="#L-555"><span class="linenos" data-line="555"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">sethours</span><span class="p">(</span><span class="n">h</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">s</span><span class="p">,</span> <span class="n">t</span><span class="p">)</span> </span><span id="L-556"><a href="#L-556"><span class="linenos" data-line="556"></span></a> <span class="kd">local</span> <span class="n">ch</span><span class="p">,</span><span class="n">cm</span><span class="p">,</span><span class="n">cs</span><span class="p">,</span><span class="n">ck</span> <span class="o">=</span> <span class="n">breakdayfrc</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span> </span><span id="L-557"><a href="#L-557"><span class="linenos" data-line="557"></span></a> <span class="n">ch</span><span class="p">,</span> <span class="n">cm</span><span class="p">,</span> <span class="n">cs</span><span class="p">,</span> <span class="n">ck</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">h</span> <span class="ow">or</span> <span class="n">ch</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">m</span> <span class="ow">or</span> <span class="n">cm</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">s</span> <span class="ow">or</span> <span class="n">cs</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">t</span> <span class="ow">or</span> <span class="n">ck</span><span class="p">)</span> </span><span id="L-558"><a href="#L-558"><span class="linenos" data-line="558"></span></a> <span class="kr">if</span> <span class="n">ch</span> <span class="ow">and</span> <span class="n">cm</span> <span class="ow">and</span> <span class="n">cs</span> <span class="ow">and</span> <span class="n">ck</span> <span class="kr">then</span> </span><span id="L-559"><a href="#L-559"><span class="linenos" data-line="559"></span></a> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span> <span class="o">=</span> <span class="n">makedayfrc</span><span class="p">(</span><span class="n">ch</span><span class="p">,</span> <span class="n">cm</span><span class="p">,</span> <span class="n">cs</span><span class="p">,</span> <span class="n">ck</span><span class="p">)</span> </span><span id="L-560"><a href="#L-560"><span class="linenos" data-line="560"></span></a> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">normalize</span><span class="p">()</span> </span><span id="L-561"><a href="#L-561"><span class="linenos" data-line="561"></span></a> <span class="kr">else</span> </span><span id="L-562"><a href="#L-562"><span class="linenos" data-line="562"></span></a> <span class="kr">return</span> <span class="n">date_error_arg</span><span class="p">()</span> </span><span id="L-563"><a href="#L-563"><span class="linenos" data-line="563"></span></a> <span class="kr">end</span> </span><span id="L-564"><a href="#L-564"><span class="linenos" data-line="564"></span></a><span class="kr">end</span> </span><span id="L-565"><a href="#L-565"><span class="linenos" data-line="565"></span></a> </span><span id="L-566"><a href="#L-566"><span class="linenos" data-line="566"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">setminutes</span><span class="p">(</span><span class="n">m</span><span class="p">,</span><span class="n">s</span><span class="p">,</span><span class="n">t</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">sethours</span><span class="p">(</span><span class="kc">nil</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">s</span><span class="p">,</span> <span class="n">t</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-567"><a href="#L-567"><span class="linenos" data-line="567"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">setseconds</span><span class="p">(</span><span class="n">s</span><span class="p">,</span> <span class="n">t</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">sethours</span><span class="p">(</span><span class="kc">nil</span><span class="p">,</span> <span class="kc">nil</span><span class="p">,</span> <span class="n">s</span><span class="p">,</span> <span class="n">t</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-568"><a href="#L-568"><span class="linenos" data-line="568"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">setticks</span><span class="p">(</span><span class="n">t</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">sethours</span><span class="p">(</span><span class="kc">nil</span><span class="p">,</span> <span class="kc">nil</span><span class="p">,</span> <span class="kc">nil</span><span class="p">,</span> <span class="n">t</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-569"><a href="#L-569"><span class="linenos" data-line="569"></span></a> </span><span id="L-570"><a href="#L-570"><span class="linenos" data-line="570"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">spanticks</span><span class="p">()</span> <span class="kr">return</span> <span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="o">*</span><span class="n">TICKSPERDAY</span> <span class="o">+</span> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-571"><a href="#L-571"><span class="linenos" data-line="571"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">spanseconds</span><span class="p">()</span> <span class="kr">return</span> <span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="o">*</span><span class="n">TICKSPERDAY</span> <span class="o">+</span> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span><span class="o">/</span><span class="n">TICKSPERSEC</span> <span class="kr">end</span> </span><span id="L-572"><a href="#L-572"><span class="linenos" data-line="572"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">spanminutes</span><span class="p">()</span> <span class="kr">return</span> <span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="o">*</span><span class="n">TICKSPERDAY</span> <span class="o">+</span> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span><span class="o">/</span><span class="n">TICKSPERMIN</span> <span class="kr">end</span> </span><span id="L-573"><a href="#L-573"><span class="linenos" data-line="573"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">spanhours</span><span class="p">()</span> <span class="kr">return</span> <span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="o">*</span><span class="n">TICKSPERDAY</span> <span class="o">+</span> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span><span class="o">/</span><span class="n">TICKSPERHOUR</span> <span class="kr">end</span> </span><span id="L-574"><a href="#L-574"><span class="linenos" data-line="574"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">spandays</span><span class="p">()</span> <span class="kr">return</span> <span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="o">*</span><span class="n">TICKSPERDAY</span> <span class="o">+</span> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span><span class="o">/</span><span class="n">TICKSPERDAY</span> <span class="kr">end</span> </span><span id="L-575"><a href="#L-575"><span class="linenos" data-line="575"></span></a> </span><span id="L-576"><a href="#L-576"><span class="linenos" data-line="576"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">addyears</span><span class="p">(</span><span class="n">y</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">d</span><span class="p">)</span> </span><span id="L-577"><a href="#L-577"><span class="linenos" data-line="577"></span></a> <span class="kd">local</span> <span class="n">cy</span><span class="p">,</span> <span class="n">cm</span><span class="p">,</span> <span class="n">cd</span> <span class="o">=</span> <span class="n">breakdaynum</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> </span><span id="L-578"><a href="#L-578"><span class="linenos" data-line="578"></span></a> <span class="kr">if</span> <span class="n">y</span> <span class="kr">then</span> <span class="n">y</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> <span class="kr">else</span> <span class="n">y</span> <span class="o">=</span> <span class="mi">0</span> <span class="kr">end</span> </span><span id="L-579"><a href="#L-579"><span class="linenos" data-line="579"></span></a> <span class="kr">if</span> <span class="n">m</span> <span class="kr">then</span> <span class="n">m</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">m</span><span class="p">)</span> <span class="kr">else</span> <span class="n">m</span> <span class="o">=</span> <span class="mi">0</span> <span class="kr">end</span> </span><span id="L-580"><a href="#L-580"><span class="linenos" data-line="580"></span></a> <span class="kr">if</span> <span class="n">d</span> <span class="kr">then</span> <span class="n">d</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">d</span><span class="p">)</span> <span class="kr">else</span> <span class="n">d</span> <span class="o">=</span> <span class="mi">0</span> <span class="kr">end</span> </span><span id="L-581"><a href="#L-581"><span class="linenos" data-line="581"></span></a> <span class="kr">if</span> <span class="n">y</span> <span class="ow">and</span> <span class="n">m</span> <span class="ow">and</span> <span class="n">d</span> <span class="kr">then</span> </span><span id="L-582"><a href="#L-582"><span class="linenos" data-line="582"></span></a> <span class="n">self</span><span class="p">.</span><span class="n">daynum</span> <span class="o">=</span> <span class="n">makedaynum</span><span class="p">(</span><span class="n">cy</span><span class="o">+</span><span class="n">y</span><span class="p">,</span> <span class="n">cm</span><span class="o">+</span><span class="n">m</span><span class="p">,</span> <span class="n">cd</span><span class="o">+</span><span class="n">d</span><span class="p">)</span> </span><span id="L-583"><a href="#L-583"><span class="linenos" data-line="583"></span></a> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">normalize</span><span class="p">()</span> </span><span id="L-584"><a href="#L-584"><span class="linenos" data-line="584"></span></a> <span class="kr">else</span> </span><span id="L-585"><a href="#L-585"><span class="linenos" data-line="585"></span></a> <span class="kr">return</span> <span class="n">date_error_arg</span><span class="p">()</span> </span><span id="L-586"><a href="#L-586"><span class="linenos" data-line="586"></span></a> <span class="kr">end</span> </span><span id="L-587"><a href="#L-587"><span class="linenos" data-line="587"></span></a><span class="kr">end</span> </span><span id="L-588"><a href="#L-588"><span class="linenos" data-line="588"></span></a> </span><span id="L-589"><a href="#L-589"><span class="linenos" data-line="589"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">addmonths</span><span class="p">(</span><span class="n">m</span><span class="p">,</span> <span class="n">d</span><span class="p">)</span> </span><span id="L-590"><a href="#L-590"><span class="linenos" data-line="590"></span></a> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">addyears</span><span class="p">(</span><span class="kc">nil</span><span class="p">,</span> <span class="n">m</span><span class="p">,</span> <span class="n">d</span><span class="p">)</span> </span><span id="L-591"><a href="#L-591"><span class="linenos" data-line="591"></span></a><span class="kr">end</span> </span><span id="L-592"><a href="#L-592"><span class="linenos" data-line="592"></span></a> </span><span id="L-593"><a href="#L-593"><span class="linenos" data-line="593"></span></a><span class="kd">local</span> <span class="kr">function</span> <span class="nf">dobj_adddayfrc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">n</span><span class="p">,</span><span class="n">pt</span><span class="p">,</span><span class="n">pd</span><span class="p">)</span> </span><span id="L-594"><a href="#L-594"><span class="linenos" data-line="594"></span></a> <span class="n">n</span> <span class="o">=</span> <span class="nb">tonumber</span><span class="p">(</span><span class="n">n</span><span class="p">)</span> </span><span id="L-595"><a href="#L-595"><span class="linenos" data-line="595"></span></a> <span class="kr">if</span> <span class="n">n</span> <span class="kr">then</span> </span><span id="L-596"><a href="#L-596"><span class="linenos" data-line="596"></span></a> <span class="kd">local</span> <span class="n">x</span> <span class="o">=</span> <span class="n">floor</span><span class="p">(</span><span class="n">n</span><span class="o">/</span><span class="n">pd</span><span class="p">);</span> </span><span id="L-597"><a href="#L-597"><span class="linenos" data-line="597"></span></a> <span class="n">self</span><span class="p">.</span><span class="n">daynum</span> <span class="o">=</span> <span class="n">self</span><span class="p">.</span><span class="n">daynum</span> <span class="o">+</span> <span class="n">x</span><span class="p">;</span> </span><span id="L-598"><a href="#L-598"><span class="linenos" data-line="598"></span></a> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span> <span class="o">=</span> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span> <span class="o">+</span> <span class="p">(</span><span class="n">n</span><span class="o">-</span><span class="n">x</span><span class="o">*</span><span class="n">pd</span><span class="p">)</span><span class="o">*</span><span class="n">pt</span><span class="p">;</span> </span><span id="L-599"><a href="#L-599"><span class="linenos" data-line="599"></span></a> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">normalize</span><span class="p">()</span> </span><span id="L-600"><a href="#L-600"><span class="linenos" data-line="600"></span></a> <span class="kr">else</span> </span><span id="L-601"><a href="#L-601"><span class="linenos" data-line="601"></span></a> <span class="kr">return</span> <span class="n">date_error_arg</span><span class="p">()</span> </span><span id="L-602"><a href="#L-602"><span class="linenos" data-line="602"></span></a> <span class="kr">end</span> </span><span id="L-603"><a href="#L-603"><span class="linenos" data-line="603"></span></a><span class="kr">end</span> </span><span id="L-604"><a href="#L-604"><span class="linenos" data-line="604"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">adddays</span><span class="p">(</span><span class="n">n</span><span class="p">)</span> <span class="kr">return</span> <span class="n">dobj_adddayfrc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">n</span><span class="p">,</span><span class="n">TICKSPERDAY</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-605"><a href="#L-605"><span class="linenos" data-line="605"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">addhours</span><span class="p">(</span><span class="n">n</span><span class="p">)</span> <span class="kr">return</span> <span class="n">dobj_adddayfrc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">n</span><span class="p">,</span><span class="n">TICKSPERHOUR</span><span class="p">,</span><span class="n">HOURPERDAY</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-606"><a href="#L-606"><span class="linenos" data-line="606"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">addminutes</span><span class="p">(</span><span class="n">n</span><span class="p">)</span> <span class="kr">return</span> <span class="n">dobj_adddayfrc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">n</span><span class="p">,</span><span class="n">TICKSPERMIN</span><span class="p">,</span><span class="n">MINPERDAY</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-607"><a href="#L-607"><span class="linenos" data-line="607"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">addseconds</span><span class="p">(</span><span class="n">n</span><span class="p">)</span> <span class="kr">return</span> <span class="n">dobj_adddayfrc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">n</span><span class="p">,</span><span class="n">TICKSPERSEC</span><span class="p">,</span><span class="n">SECPERDAY</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-608"><a href="#L-608"><span class="linenos" data-line="608"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">addticks</span><span class="p">(</span><span class="n">n</span><span class="p">)</span> <span class="kr">return</span> <span class="n">dobj_adddayfrc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">n</span><span class="p">,</span><span class="mi">1</span><span class="p">,</span><span class="n">TICKSPERDAY</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-609"><a href="#L-609"><span class="linenos" data-line="609"></span></a><span class="kd">local</span> <span class="n">tvspec</span> <span class="o">=</span> <span class="p">{</span> </span><span id="L-610"><a href="#L-610"><span class="linenos" data-line="610"></span></a> <span class="c1">-- Abbreviated weekday name (Sun)</span> </span><span id="L-611"><a href="#L-611"><span class="linenos" data-line="611"></span></a> <span class="p">[</span><span class="s1">'%a'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">sl_weekdays</span><span class="p">[</span><span class="n">weekday</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> <span class="o">+</span> <span class="mi">7</span><span class="p">]</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-612"><a href="#L-612"><span class="linenos" data-line="612"></span></a> <span class="c1">-- Full weekday name (Sunday)</span> </span><span id="L-613"><a href="#L-613"><span class="linenos" data-line="613"></span></a> <span class="p">[</span><span class="s1">'%A'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">sl_weekdays</span><span class="p">[</span><span class="n">weekday</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">)]</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-614"><a href="#L-614"><span class="linenos" data-line="614"></span></a> <span class="c1">-- Abbreviated month name (Dec)</span> </span><span id="L-615"><a href="#L-615"><span class="linenos" data-line="615"></span></a> <span class="p">[</span><span class="s1">'%b'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">sl_months</span><span class="p">[</span><span class="n">self</span><span class="p">:</span><span class="n">getmonth</span><span class="p">()</span> <span class="o">-</span> <span class="mi">1</span> <span class="o">+</span> <span class="mi">12</span><span class="p">]</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-616"><a href="#L-616"><span class="linenos" data-line="616"></span></a> <span class="c1">-- Full month name (December)</span> </span><span id="L-617"><a href="#L-617"><span class="linenos" data-line="617"></span></a> <span class="p">[</span><span class="s1">'%B'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">sl_months</span><span class="p">[</span><span class="n">self</span><span class="p">:</span><span class="n">getmonth</span><span class="p">()</span> <span class="o">-</span> <span class="mi">1</span><span class="p">]</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-618"><a href="#L-618"><span class="linenos" data-line="618"></span></a> <span class="c1">-- Year/100 (19, 20, 30)</span> </span><span id="L-619"><a href="#L-619"><span class="linenos" data-line="619"></span></a> <span class="p">[</span><span class="s1">'%C'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.2d"</span><span class="p">,</span> <span class="n">truncate</span><span class="p">(</span><span class="n">self</span><span class="p">:</span><span class="n">getyear</span><span class="p">()</span><span class="o">/</span><span class="mi">100</span><span class="p">))</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-620"><a href="#L-620"><span class="linenos" data-line="620"></span></a> <span class="c1">-- The day of the month as a number (range 1 - 31)</span> </span><span id="L-621"><a href="#L-621"><span class="linenos" data-line="621"></span></a> <span class="p">[</span><span class="s1">'%d'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.2d"</span><span class="p">,</span> <span class="n">self</span><span class="p">:</span><span class="n">getday</span><span class="p">())</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-622"><a href="#L-622"><span class="linenos" data-line="622"></span></a> <span class="c1">-- year for ISO 8601 week, from 00 (79)</span> </span><span id="L-623"><a href="#L-623"><span class="linenos" data-line="623"></span></a> <span class="p">[</span><span class="s1">'%g'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.2d"</span><span class="p">,</span> <span class="n">mod</span><span class="p">(</span><span class="n">self</span><span class="p">:</span><span class="n">getisoyear</span><span class="p">()</span> <span class="p">,</span><span class="mi">100</span><span class="p">))</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-624"><a href="#L-624"><span class="linenos" data-line="624"></span></a> <span class="c1">-- year for ISO 8601 week, from 0000 (1979)</span> </span><span id="L-625"><a href="#L-625"><span class="linenos" data-line="625"></span></a> <span class="p">[</span><span class="s1">'%G'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.4d"</span><span class="p">,</span> <span class="n">self</span><span class="p">:</span><span class="n">getisoyear</span><span class="p">())</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-626"><a href="#L-626"><span class="linenos" data-line="626"></span></a> <span class="c1">-- same as %b</span> </span><span id="L-627"><a href="#L-627"><span class="linenos" data-line="627"></span></a> <span class="p">[</span><span class="s1">'%h'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%b"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-628"><a href="#L-628"><span class="linenos" data-line="628"></span></a> <span class="c1">-- hour of the 24-hour day, from 00 (06)</span> </span><span id="L-629"><a href="#L-629"><span class="linenos" data-line="629"></span></a> <span class="p">[</span><span class="s1">'%H'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.2d"</span><span class="p">,</span> <span class="n">self</span><span class="p">:</span><span class="n">gethours</span><span class="p">())</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-630"><a href="#L-630"><span class="linenos" data-line="630"></span></a> <span class="c1">-- The hour as a number using a 12-hour clock (01 - 12)</span> </span><span id="L-631"><a href="#L-631"><span class="linenos" data-line="631"></span></a> <span class="p">[</span><span class="s1">'%I'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.2d"</span><span class="p">,</span> <span class="n">self</span><span class="p">:</span><span class="n">getclockhour</span><span class="p">())</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-632"><a href="#L-632"><span class="linenos" data-line="632"></span></a> <span class="c1">-- The day of the year as a number (001 - 366)</span> </span><span id="L-633"><a href="#L-633"><span class="linenos" data-line="633"></span></a> <span class="p">[</span><span class="s1">'%j'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.3d"</span><span class="p">,</span> <span class="n">self</span><span class="p">:</span><span class="n">getyearday</span><span class="p">())</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-634"><a href="#L-634"><span class="linenos" data-line="634"></span></a> <span class="c1">-- Month of the year, from 01 to 12</span> </span><span id="L-635"><a href="#L-635"><span class="linenos" data-line="635"></span></a> <span class="p">[</span><span class="s1">'%m'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.2d"</span><span class="p">,</span> <span class="n">self</span><span class="p">:</span><span class="n">getmonth</span><span class="p">())</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-636"><a href="#L-636"><span class="linenos" data-line="636"></span></a> <span class="c1">-- Minutes after the hour 55</span> </span><span id="L-637"><a href="#L-637"><span class="linenos" data-line="637"></span></a> <span class="p">[</span><span class="s1">'%M'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.2d"</span><span class="p">,</span> <span class="n">self</span><span class="p">:</span><span class="n">getminutes</span><span class="p">())</span><span class="kr">end</span><span class="p">,</span> </span><span id="L-638"><a href="#L-638"><span class="linenos" data-line="638"></span></a> <span class="c1">-- AM/PM indicator (AM)</span> </span><span id="L-639"><a href="#L-639"><span class="linenos" data-line="639"></span></a> <span class="p">[</span><span class="s1">'%p'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">sl_meridian</span><span class="p">[</span><span class="n">self</span><span class="p">:</span><span class="n">gethours</span><span class="p">()</span> <span class="o">></span> <span class="mi">11</span> <span class="ow">and</span> <span class="mi">1</span> <span class="ow">or</span> <span class="o">-</span><span class="mi">1</span><span class="p">]</span> <span class="kr">end</span><span class="p">,</span> <span class="c1">--AM/PM indicator (AM)</span> </span><span id="L-640"><a href="#L-640"><span class="linenos" data-line="640"></span></a> <span class="c1">-- The second as a number (59, 20 , 01)</span> </span><span id="L-641"><a href="#L-641"><span class="linenos" data-line="641"></span></a> <span class="p">[</span><span class="s1">'%S'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.2d"</span><span class="p">,</span> <span class="n">self</span><span class="p">:</span><span class="n">getseconds</span><span class="p">())</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-642"><a href="#L-642"><span class="linenos" data-line="642"></span></a> <span class="c1">-- ISO 8601 day of the week, to 7 for Sunday (7, 1)</span> </span><span id="L-643"><a href="#L-643"><span class="linenos" data-line="643"></span></a> <span class="p">[</span><span class="s1">'%u'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">getisoweekday</span><span class="p">()</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-644"><a href="#L-644"><span class="linenos" data-line="644"></span></a> <span class="c1">-- Sunday week of the year, from 00 (48)</span> </span><span id="L-645"><a href="#L-645"><span class="linenos" data-line="645"></span></a> <span class="p">[</span><span class="s1">'%U'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.2d"</span><span class="p">,</span> <span class="n">self</span><span class="p">:</span><span class="n">getweeknumber</span><span class="p">())</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-646"><a href="#L-646"><span class="linenos" data-line="646"></span></a> <span class="c1">-- ISO 8601 week of the year, from 01 (48)</span> </span><span id="L-647"><a href="#L-647"><span class="linenos" data-line="647"></span></a> <span class="p">[</span><span class="s1">'%V'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.2d"</span><span class="p">,</span> <span class="n">self</span><span class="p">:</span><span class="n">getisoweeknumber</span><span class="p">())</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-648"><a href="#L-648"><span class="linenos" data-line="648"></span></a> <span class="c1">-- The day of the week as a decimal, Sunday being 0</span> </span><span id="L-649"><a href="#L-649"><span class="linenos" data-line="649"></span></a> <span class="p">[</span><span class="s1">'%w'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">getweekday</span><span class="p">()</span> <span class="o">-</span> <span class="mi">1</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-650"><a href="#L-650"><span class="linenos" data-line="650"></span></a> <span class="c1">-- Monday week of the year, from 00 (48)</span> </span><span id="L-651"><a href="#L-651"><span class="linenos" data-line="651"></span></a> <span class="p">[</span><span class="s1">'%W'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.2d"</span><span class="p">,</span> <span class="n">self</span><span class="p">:</span><span class="n">getweeknumber</span><span class="p">(</span><span class="mi">2</span><span class="p">))</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-652"><a href="#L-652"><span class="linenos" data-line="652"></span></a> <span class="c1">-- The year as a number without a century (range 00 to 99)</span> </span><span id="L-653"><a href="#L-653"><span class="linenos" data-line="653"></span></a> <span class="p">[</span><span class="s1">'%y'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.2d"</span><span class="p">,</span> <span class="n">mod</span><span class="p">(</span><span class="n">self</span><span class="p">:</span><span class="n">getyear</span><span class="p">()</span> <span class="p">,</span><span class="mi">100</span><span class="p">))</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-654"><a href="#L-654"><span class="linenos" data-line="654"></span></a> <span class="c1">-- Year with century (2000, 1914, 0325, 0001)</span> </span><span id="L-655"><a href="#L-655"><span class="linenos" data-line="655"></span></a> <span class="p">[</span><span class="s1">'%Y'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%.4d"</span><span class="p">,</span> <span class="n">self</span><span class="p">:</span><span class="n">getyear</span><span class="p">())</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-656"><a href="#L-656"><span class="linenos" data-line="656"></span></a> <span class="c1">-- Time zone offset, the date object is assumed local time (+1000, -0230)</span> </span><span id="L-657"><a href="#L-657"><span class="linenos" data-line="657"></span></a> <span class="p">[</span><span class="s1">'%z'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kd">local</span> <span class="n">b</span> <span class="o">=</span> <span class="o">-</span><span class="n">self</span><span class="p">:</span><span class="n">getbias</span><span class="p">();</span> <span class="kd">local</span> <span class="n">x</span> <span class="o">=</span> <span class="n">abs</span><span class="p">(</span><span class="n">b</span><span class="p">);</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%s%.4d"</span><span class="p">,</span> <span class="n">b</span> <span class="o"><</span> <span class="mi">0</span> <span class="ow">and</span> <span class="s2">"-"</span> <span class="ow">or</span> <span class="s2">"+"</span><span class="p">,</span> <span class="n">truncate</span><span class="p">(</span><span class="n">x</span><span class="o">/</span><span class="mi">60</span><span class="p">)</span><span class="o">*</span><span class="mi">100</span> <span class="o">+</span> <span class="n">floor</span><span class="p">(</span><span class="n">mod</span><span class="p">(</span><span class="n">x</span><span class="p">,</span><span class="mi">60</span><span class="p">)))</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-658"><a href="#L-658"><span class="linenos" data-line="658"></span></a> <span class="c1">-- Time zone name, the date object is assumed local time</span> </span><span id="L-659"><a href="#L-659"><span class="linenos" data-line="659"></span></a> <span class="p">[</span><span class="s1">'%Z'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">gettzname</span><span class="p">()</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-660"><a href="#L-660"><span class="linenos" data-line="660"></span></a> <span class="c1">-- Misc --</span> </span><span id="L-661"><a href="#L-661"><span class="linenos" data-line="661"></span></a> <span class="c1">-- Year, if year is in BCE, prints the BCE Year representation, otherwise result is similar to "%Y" (1 BCE, 40 BCE)</span> </span><span id="L-662"><a href="#L-662"><span class="linenos" data-line="662"></span></a> <span class="p">[</span><span class="s1">'%</span><span class="se">\b</span><span class="s1">'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kd">local</span> <span class="n">x</span> <span class="o">=</span> <span class="n">self</span><span class="p">:</span><span class="n">getyear</span><span class="p">()</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%d%s"</span><span class="p">,</span> <span class="n">x</span><span class="o">></span><span class="mi">0</span> <span class="ow">and</span> <span class="n">x</span> <span class="ow">or</span> <span class="p">(</span><span class="o">-</span><span class="n">x</span><span class="o">+</span><span class="mi">1</span><span class="p">),</span> <span class="n">x</span><span class="o">></span><span class="mi">0</span> <span class="ow">and</span> <span class="s2">""</span> <span class="ow">or</span> <span class="s2">" A.C."</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-663"><a href="#L-663"><span class="linenos" data-line="663"></span></a> <span class="c1">-- Seconds including fraction (59.998, 01.123)</span> </span><span id="L-664"><a href="#L-664"><span class="linenos" data-line="664"></span></a> <span class="p">[</span><span class="s1">'%</span><span class="se">\f</span><span class="s1">'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kd">local</span> <span class="n">x</span> <span class="o">=</span> <span class="n">self</span><span class="p">:</span><span class="n">getfracsec</span><span class="p">()</span> <span class="kr">return</span> <span class="n">fmt</span><span class="p">(</span><span class="s2">"%s%.9f"</span><span class="p">,</span><span class="n">x</span> <span class="o">>=</span> <span class="mi">10</span> <span class="ow">and</span> <span class="s2">""</span> <span class="ow">or</span> <span class="s2">"0"</span><span class="p">,</span> <span class="n">x</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-665"><a href="#L-665"><span class="linenos" data-line="665"></span></a> <span class="c1">-- percent character %</span> </span><span id="L-666"><a href="#L-666"><span class="linenos" data-line="666"></span></a> <span class="p">[</span><span class="s1">'%%'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="s2">"%"</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-667"><a href="#L-667"><span class="linenos" data-line="667"></span></a> <span class="c1">-- Group Spec --</span> </span><span id="L-668"><a href="#L-668"><span class="linenos" data-line="668"></span></a> <span class="c1">-- 12-hour time, from 01:00:00 AM (06:55:15 AM); same as "%I:%M:%S %p"</span> </span><span id="L-669"><a href="#L-669"><span class="linenos" data-line="669"></span></a> <span class="p">[</span><span class="s1">'%r'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%I:%M:%S %p"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-670"><a href="#L-670"><span class="linenos" data-line="670"></span></a> <span class="c1">-- hour:minute, from 01:00 (06:55); same as "%I:%M"</span> </span><span id="L-671"><a href="#L-671"><span class="linenos" data-line="671"></span></a> <span class="p">[</span><span class="s1">'%R'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%I:%M"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-672"><a href="#L-672"><span class="linenos" data-line="672"></span></a> <span class="c1">-- 24-hour time, from 00:00:00 (06:55:15); same as "%H:%M:%S"</span> </span><span id="L-673"><a href="#L-673"><span class="linenos" data-line="673"></span></a> <span class="p">[</span><span class="s1">'%T'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%H:%M:%S"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-674"><a href="#L-674"><span class="linenos" data-line="674"></span></a> <span class="c1">-- month/day/year from 01/01/00 (12/02/79); same as "%m/%d/%y"</span> </span><span id="L-675"><a href="#L-675"><span class="linenos" data-line="675"></span></a> <span class="p">[</span><span class="s1">'%D'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%m/%d/%y"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-676"><a href="#L-676"><span class="linenos" data-line="676"></span></a> <span class="c1">-- year-month-day (1979-12-02); same as "%Y-%m-%d"</span> </span><span id="L-677"><a href="#L-677"><span class="linenos" data-line="677"></span></a> <span class="p">[</span><span class="s1">'%F'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%Y-%m-%d"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-678"><a href="#L-678"><span class="linenos" data-line="678"></span></a> <span class="c1">-- The preferred date and time representation; same as "%x %X"</span> </span><span id="L-679"><a href="#L-679"><span class="linenos" data-line="679"></span></a> <span class="p">[</span><span class="s1">'%c'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%x %X"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-680"><a href="#L-680"><span class="linenos" data-line="680"></span></a> <span class="c1">-- The preferred date representation, same as "%a %b %d %\b"</span> </span><span id="L-681"><a href="#L-681"><span class="linenos" data-line="681"></span></a> <span class="p">[</span><span class="s1">'%x'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%a %b %d %</span><span class="se">\b</span><span class="s2">"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-682"><a href="#L-682"><span class="linenos" data-line="682"></span></a> <span class="c1">-- The preferred time representation, same as "%H:%M:%\f"</span> </span><span id="L-683"><a href="#L-683"><span class="linenos" data-line="683"></span></a> <span class="p">[</span><span class="s1">'%X'</span><span class="p">]</span><span class="o">=</span><span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%H:%M:%</span><span class="se">\f</span><span class="s2">"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-684"><a href="#L-684"><span class="linenos" data-line="684"></span></a> <span class="c1">-- GroupSpec --</span> </span><span id="L-685"><a href="#L-685"><span class="linenos" data-line="685"></span></a> <span class="c1">-- Iso format, same as "%Y-%m-%dT%T"</span> </span><span id="L-686"><a href="#L-686"><span class="linenos" data-line="686"></span></a> <span class="p">[</span><span class="s1">'${iso}'</span><span class="p">]</span> <span class="o">=</span> <span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%Y-%m-%dT%T"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-687"><a href="#L-687"><span class="linenos" data-line="687"></span></a> <span class="c1">-- http format, same as "%a, %d %b %Y %T GMT"</span> </span><span id="L-688"><a href="#L-688"><span class="linenos" data-line="688"></span></a> <span class="p">[</span><span class="s1">'${http}'</span><span class="p">]</span> <span class="o">=</span> <span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%a, %d %b %Y %T GMT"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-689"><a href="#L-689"><span class="linenos" data-line="689"></span></a> <span class="c1">-- ctime format, same as "%a %b %d %T GMT %Y"</span> </span><span id="L-690"><a href="#L-690"><span class="linenos" data-line="690"></span></a> <span class="p">[</span><span class="s1">'${ctime}'</span><span class="p">]</span> <span class="o">=</span> <span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%a %b %d %T GMT %Y"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-691"><a href="#L-691"><span class="linenos" data-line="691"></span></a> <span class="c1">-- RFC850 format, same as "%A, %d-%b-%y %T GMT"</span> </span><span id="L-692"><a href="#L-692"><span class="linenos" data-line="692"></span></a> <span class="p">[</span><span class="s1">'${rfc850}'</span><span class="p">]</span> <span class="o">=</span> <span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%A, %d-%b-%y %T GMT"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-693"><a href="#L-693"><span class="linenos" data-line="693"></span></a> <span class="c1">-- RFC1123 format, same as "%a, %d %b %Y %T GMT"</span> </span><span id="L-694"><a href="#L-694"><span class="linenos" data-line="694"></span></a> <span class="p">[</span><span class="s1">'${rfc1123}'</span><span class="p">]</span> <span class="o">=</span> <span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%a, %d %b %Y %T GMT"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-695"><a href="#L-695"><span class="linenos" data-line="695"></span></a> <span class="c1">-- asctime format, same as "%a %b %d %T %Y"</span> </span><span id="L-696"><a href="#L-696"><span class="linenos" data-line="696"></span></a> <span class="p">[</span><span class="s1">'${asctime}'</span><span class="p">]</span> <span class="o">=</span> <span class="kr">function</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">(</span><span class="s2">"%a %b %d %T %Y"</span><span class="p">)</span> <span class="kr">end</span><span class="p">,</span> </span><span id="L-697"><a href="#L-697"><span class="linenos" data-line="697"></span></a><span class="p">}</span> </span><span id="L-698"><a href="#L-698"><span class="linenos" data-line="698"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">fmt0</span><span class="p">(</span><span class="n">str</span><span class="p">)</span> <span class="kr">return</span> <span class="p">(</span><span class="n">gsub</span><span class="p">(</span><span class="n">str</span><span class="p">,</span> <span class="s2">"%%[%a%%</span><span class="se">\b\f</span><span class="s2">]"</span><span class="p">,</span> <span class="kr">function</span><span class="p">(</span><span class="n">x</span><span class="p">)</span> <span class="kd">local</span> <span class="n">f</span> <span class="o">=</span> <span class="n">tvspec</span><span class="p">[</span><span class="n">x</span><span class="p">];</span><span class="kr">return</span> <span class="p">(</span><span class="n">f</span> <span class="ow">and</span> <span class="n">f</span><span class="p">(</span><span class="n">self</span><span class="p">))</span> <span class="ow">or</span> <span class="n">x</span> <span class="kr">end</span><span class="p">))</span> <span class="kr">end</span> </span><span id="L-699"><a href="#L-699"><span class="linenos" data-line="699"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">fmt</span><span class="p">(</span><span class="n">str</span><span class="p">)</span> </span><span id="L-700"><a href="#L-700"><span class="linenos" data-line="700"></span></a> <span class="n">str</span> <span class="o">=</span> <span class="n">str</span> <span class="ow">or</span> <span class="n">self</span><span class="p">.</span><span class="n">fmtstr</span> <span class="ow">or</span> <span class="n">fmtstr</span> </span><span id="L-701"><a href="#L-701"><span class="linenos" data-line="701"></span></a> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt0</span><span class="p">((</span><span class="n">gmatch</span><span class="p">(</span><span class="n">str</span><span class="p">,</span> <span class="s2">"${%w+}"</span><span class="p">))</span> <span class="ow">and</span> <span class="p">(</span><span class="n">gsub</span><span class="p">(</span><span class="n">str</span><span class="p">,</span> <span class="s2">"${%w+}"</span><span class="p">,</span> <span class="kr">function</span><span class="p">(</span><span class="n">x</span><span class="p">)</span><span class="kd">local</span> <span class="n">f</span><span class="o">=</span><span class="n">tvspec</span><span class="p">[</span><span class="n">x</span><span class="p">];</span><span class="kr">return</span> <span class="p">(</span><span class="n">f</span> <span class="ow">and</span> <span class="n">f</span><span class="p">(</span><span class="n">self</span><span class="p">))</span> <span class="ow">or</span> <span class="n">x</span> <span class="kr">end</span><span class="p">))</span> <span class="ow">or</span> <span class="n">str</span><span class="p">)</span> </span><span id="L-702"><a href="#L-702"><span class="linenos" data-line="702"></span></a><span class="kr">end</span> </span><span id="L-703"><a href="#L-703"><span class="linenos" data-line="703"></span></a> </span><span id="L-704"><a href="#L-704"><span class="linenos" data-line="704"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">.</span><span class="nf">__lt</span><span class="p">(</span><span class="n">a</span><span class="p">,</span> <span class="n">b</span><span class="p">)</span> <span class="kr">if</span> <span class="p">(</span><span class="n">a</span><span class="p">.</span><span class="n">daynum</span> <span class="o">==</span> <span class="n">b</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> <span class="kr">then</span> <span class="kr">return</span> <span class="p">(</span><span class="n">a</span><span class="p">.</span><span class="n">dayfrc</span> <span class="o"><</span> <span class="n">b</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span> <span class="kr">else</span> <span class="kr">return</span> <span class="p">(</span><span class="n">a</span><span class="p">.</span><span class="n">daynum</span> <span class="o"><</span> <span class="n">b</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> <span class="kr">end</span> <span class="kr">end</span> </span><span id="L-705"><a href="#L-705"><span class="linenos" data-line="705"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">.</span><span class="nf">__le</span><span class="p">(</span><span class="n">a</span><span class="p">,</span> <span class="n">b</span><span class="p">)</span> <span class="kr">if</span> <span class="p">(</span><span class="n">a</span><span class="p">.</span><span class="n">daynum</span> <span class="o">==</span> <span class="n">b</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> <span class="kr">then</span> <span class="kr">return</span> <span class="p">(</span><span class="n">a</span><span class="p">.</span><span class="n">dayfrc</span> <span class="o"><=</span> <span class="n">b</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span> <span class="kr">else</span> <span class="kr">return</span> <span class="p">(</span><span class="n">a</span><span class="p">.</span><span class="n">daynum</span> <span class="o"><=</span> <span class="n">b</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> <span class="kr">end</span> <span class="kr">end</span> </span><span id="L-706"><a href="#L-706"><span class="linenos" data-line="706"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">.</span><span class="nf">__eq</span><span class="p">(</span><span class="n">a</span><span class="p">,</span> <span class="n">b</span><span class="p">)</span><span class="kr">return</span> <span class="p">(</span><span class="n">a</span><span class="p">.</span><span class="n">daynum</span> <span class="o">==</span> <span class="n">b</span><span class="p">.</span><span class="n">daynum</span><span class="p">)</span> <span class="ow">and</span> <span class="p">(</span><span class="n">a</span><span class="p">.</span><span class="n">dayfrc</span> <span class="o">==</span> <span class="n">b</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-707"><a href="#L-707"><span class="linenos" data-line="707"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">.</span><span class="nf">__sub</span><span class="p">(</span><span class="n">a</span><span class="p">,</span><span class="n">b</span><span class="p">)</span> </span><span id="L-708"><a href="#L-708"><span class="linenos" data-line="708"></span></a> <span class="kd">local</span> <span class="n">d1</span><span class="p">,</span> <span class="n">d2</span> <span class="o">=</span> <span class="n">date_getdobj</span><span class="p">(</span><span class="n">a</span><span class="p">),</span> <span class="n">date_getdobj</span><span class="p">(</span><span class="n">b</span><span class="p">)</span> </span><span id="L-709"><a href="#L-709"><span class="linenos" data-line="709"></span></a> <span class="kd">local</span> <span class="n">d0</span> <span class="o">=</span> <span class="n">d1</span> <span class="ow">and</span> <span class="n">d2</span> <span class="ow">and</span> <span class="n">date_new</span><span class="p">(</span><span class="n">d1</span><span class="p">.</span><span class="n">daynum</span> <span class="o">-</span> <span class="n">d2</span><span class="p">.</span><span class="n">daynum</span><span class="p">,</span> <span class="n">d1</span><span class="p">.</span><span class="n">dayfrc</span> <span class="o">-</span> <span class="n">d2</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span> </span><span id="L-710"><a href="#L-710"><span class="linenos" data-line="710"></span></a> <span class="kr">return</span> <span class="n">d0</span> <span class="ow">and</span> <span class="n">d0</span><span class="p">:</span><span class="n">normalize</span><span class="p">()</span> </span><span id="L-711"><a href="#L-711"><span class="linenos" data-line="711"></span></a><span class="kr">end</span> </span><span id="L-712"><a href="#L-712"><span class="linenos" data-line="712"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">.</span><span class="nf">__add</span><span class="p">(</span><span class="n">a</span><span class="p">,</span><span class="n">b</span><span class="p">)</span> </span><span id="L-713"><a href="#L-713"><span class="linenos" data-line="713"></span></a> <span class="kd">local</span> <span class="n">d1</span><span class="p">,</span> <span class="n">d2</span> <span class="o">=</span> <span class="n">date_getdobj</span><span class="p">(</span><span class="n">a</span><span class="p">),</span> <span class="n">date_getdobj</span><span class="p">(</span><span class="n">b</span><span class="p">)</span> </span><span id="L-714"><a href="#L-714"><span class="linenos" data-line="714"></span></a> <span class="kd">local</span> <span class="n">d0</span> <span class="o">=</span> <span class="n">d1</span> <span class="ow">and</span> <span class="n">d2</span> <span class="ow">and</span> <span class="n">date_new</span><span class="p">(</span><span class="n">d1</span><span class="p">.</span><span class="n">daynum</span> <span class="o">+</span> <span class="n">d2</span><span class="p">.</span><span class="n">daynum</span><span class="p">,</span> <span class="n">d1</span><span class="p">.</span><span class="n">dayfrc</span> <span class="o">+</span> <span class="n">d2</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span> </span><span id="L-715"><a href="#L-715"><span class="linenos" data-line="715"></span></a> <span class="kr">return</span> <span class="n">d0</span> <span class="ow">and</span> <span class="n">d0</span><span class="p">:</span><span class="n">normalize</span><span class="p">()</span> </span><span id="L-716"><a href="#L-716"><span class="linenos" data-line="716"></span></a><span class="kr">end</span> </span><span id="L-717"><a href="#L-717"><span class="linenos" data-line="717"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">.</span><span class="nf">__concat</span><span class="p">(</span><span class="n">a</span><span class="p">,</span> <span class="n">b</span><span class="p">)</span> <span class="kr">return</span> <span class="nb">tostring</span><span class="p">(</span><span class="n">a</span><span class="p">)</span> <span class="o">..</span> <span class="nb">tostring</span><span class="p">(</span><span class="n">b</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-718"><a href="#L-718"><span class="linenos" data-line="718"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">__tostring</span><span class="p">()</span> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">fmt</span><span class="p">()</span> <span class="kr">end</span> </span><span id="L-719"><a href="#L-719"><span class="linenos" data-line="719"></span></a> </span><span id="L-720"><a href="#L-720"><span class="linenos" data-line="720"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">copy</span><span class="p">()</span> <span class="kr">return</span> <span class="n">date_new</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">,</span> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-721"><a href="#L-721"><span class="linenos" data-line="721"></span></a> </span><span id="L-722"><a href="#L-722"><span class="linenos" data-line="722"></span></a><span class="cm">--[[ THE LOCAL DATE OBJECT METHODS ]]</span><span class="c1">--</span> </span><span id="L-723"><a href="#L-723"><span class="linenos" data-line="723"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">tolocal</span><span class="p">()</span> </span><span id="L-724"><a href="#L-724"><span class="linenos" data-line="724"></span></a> <span class="kd">local</span> <span class="n">dn</span><span class="p">,</span><span class="n">df</span> <span class="o">=</span> <span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">,</span> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span> </span><span id="L-725"><a href="#L-725"><span class="linenos" data-line="725"></span></a> <span class="kd">local</span> <span class="n">bias</span> <span class="o">=</span> <span class="n">getbiasutc2</span><span class="p">(</span><span class="n">self</span><span class="p">)</span> </span><span id="L-726"><a href="#L-726"><span class="linenos" data-line="726"></span></a> <span class="kr">if</span> <span class="n">bias</span> <span class="kr">then</span> </span><span id="L-727"><a href="#L-727"><span class="linenos" data-line="727"></span></a> <span class="c1">-- utc = local + bias; local = utc - bias</span> </span><span id="L-728"><a href="#L-728"><span class="linenos" data-line="728"></span></a> <span class="n">self</span><span class="p">.</span><span class="n">daynum</span> <span class="o">=</span> <span class="n">dn</span> </span><span id="L-729"><a href="#L-729"><span class="linenos" data-line="729"></span></a> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span> <span class="o">=</span> <span class="n">df</span> <span class="o">-</span> <span class="n">bias</span><span class="o">*</span><span class="n">TICKSPERSEC</span> </span><span id="L-730"><a href="#L-730"><span class="linenos" data-line="730"></span></a> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">normalize</span><span class="p">()</span> </span><span id="L-731"><a href="#L-731"><span class="linenos" data-line="731"></span></a> <span class="kr">else</span> </span><span id="L-732"><a href="#L-732"><span class="linenos" data-line="732"></span></a> <span class="kr">return</span> <span class="kc">nil</span> </span><span id="L-733"><a href="#L-733"><span class="linenos" data-line="733"></span></a> <span class="kr">end</span> </span><span id="L-734"><a href="#L-734"><span class="linenos" data-line="734"></span></a><span class="kr">end</span> </span><span id="L-735"><a href="#L-735"><span class="linenos" data-line="735"></span></a> </span><span id="L-736"><a href="#L-736"><span class="linenos" data-line="736"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">toutc</span><span class="p">()</span> </span><span id="L-737"><a href="#L-737"><span class="linenos" data-line="737"></span></a> <span class="kd">local</span> <span class="n">dn</span><span class="p">,</span><span class="n">df</span> <span class="o">=</span> <span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">,</span> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span> </span><span id="L-738"><a href="#L-738"><span class="linenos" data-line="738"></span></a> <span class="kd">local</span> <span class="n">bias</span> <span class="o">=</span> <span class="n">getbiasloc2</span><span class="p">(</span><span class="n">dn</span><span class="p">,</span> <span class="n">df</span><span class="p">)</span> </span><span id="L-739"><a href="#L-739"><span class="linenos" data-line="739"></span></a> <span class="kr">if</span> <span class="n">bias</span> <span class="kr">then</span> </span><span id="L-740"><a href="#L-740"><span class="linenos" data-line="740"></span></a> <span class="c1">-- utc = local + bias;</span> </span><span id="L-741"><a href="#L-741"><span class="linenos" data-line="741"></span></a> <span class="n">self</span><span class="p">.</span><span class="n">daynum</span> <span class="o">=</span> <span class="n">dn</span> </span><span id="L-742"><a href="#L-742"><span class="linenos" data-line="742"></span></a> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span> <span class="o">=</span> <span class="n">df</span> <span class="o">+</span> <span class="n">bias</span><span class="o">*</span><span class="n">TICKSPERSEC</span> </span><span id="L-743"><a href="#L-743"><span class="linenos" data-line="743"></span></a> <span class="kr">return</span> <span class="n">self</span><span class="p">:</span><span class="n">normalize</span><span class="p">()</span> </span><span id="L-744"><a href="#L-744"><span class="linenos" data-line="744"></span></a> <span class="kr">else</span> </span><span id="L-745"><a href="#L-745"><span class="linenos" data-line="745"></span></a> <span class="kr">return</span> <span class="kc">nil</span> </span><span id="L-746"><a href="#L-746"><span class="linenos" data-line="746"></span></a> <span class="kr">end</span> </span><span id="L-747"><a href="#L-747"><span class="linenos" data-line="747"></span></a><span class="kr">end</span> </span><span id="L-748"><a href="#L-748"><span class="linenos" data-line="748"></span></a> </span><span id="L-749"><a href="#L-749"><span class="linenos" data-line="749"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">getbias</span><span class="p">()</span> <span class="kr">return</span> <span class="p">(</span><span class="n">getbiasloc2</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">,</span> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">))</span><span class="o">/</span><span class="n">SECPERMIN</span> <span class="kr">end</span> </span><span id="L-750"><a href="#L-750"><span class="linenos" data-line="750"></span></a> </span><span id="L-751"><a href="#L-751"><span class="linenos" data-line="751"></span></a><span class="kr">function</span> <span class="nc">dobj</span><span class="p">:</span><span class="nf">gettzname</span><span class="p">()</span> </span><span id="L-752"><a href="#L-752"><span class="linenos" data-line="752"></span></a> <span class="kd">local</span> <span class="n">_</span><span class="p">,</span> <span class="n">tvu</span><span class="p">,</span> <span class="n">_</span> <span class="o">=</span> <span class="n">getbiasloc2</span><span class="p">(</span><span class="n">self</span><span class="p">.</span><span class="n">daynum</span><span class="p">,</span> <span class="n">self</span><span class="p">.</span><span class="n">dayfrc</span><span class="p">)</span> </span><span id="L-753"><a href="#L-753"><span class="linenos" data-line="753"></span></a> <span class="kr">return</span> <span class="n">tvu</span> <span class="ow">and</span> <span class="n">osdate</span><span class="p">(</span><span class="s2">"%Z"</span><span class="p">,</span><span class="n">tvu</span><span class="p">)</span> <span class="ow">or</span> <span class="s2">""</span> </span><span id="L-754"><a href="#L-754"><span class="linenos" data-line="754"></span></a><span class="kr">end</span> </span><span id="L-755"><a href="#L-755"><span class="linenos" data-line="755"></span></a> </span><span id="L-756"><a href="#L-756"><span class="linenos" data-line="756"></span></a><span class="c1">--#if not DATE_OBJECT_AFX then</span> </span><span id="L-757"><a href="#L-757"><span class="linenos" data-line="757"></span></a><span class="kr">function</span> <span class="nc">date</span><span class="p">.</span><span class="nf">time</span><span class="p">(</span><span class="n">h</span><span class="p">,</span> <span class="n">r</span><span class="p">,</span> <span class="n">s</span><span class="p">,</span> <span class="n">t</span><span class="p">)</span> </span><span id="L-758"><a href="#L-758"><span class="linenos" data-line="758"></span></a> <span class="n">h</span><span class="p">,</span> <span class="n">r</span><span class="p">,</span> <span class="n">s</span><span class="p">,</span> <span class="n">t</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">h</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">r</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">s</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">),</span> <span class="n">truncate</span><span class="p">(</span><span class="n">t</span> <span class="ow">or</span> <span class="mi">0</span><span class="p">)</span> </span><span id="L-759"><a href="#L-759"><span class="linenos" data-line="759"></span></a> <span class="kr">if</span> <span class="n">h</span> <span class="ow">and</span> <span class="n">r</span> <span class="ow">and</span> <span class="n">s</span> <span class="ow">and</span> <span class="n">t</span> <span class="kr">then</span> </span><span id="L-760"><a href="#L-760"><span class="linenos" data-line="760"></span></a> <span class="kr">return</span> <span class="n">date_new</span><span class="p">(</span><span class="n">DAYNUM_DEF</span><span class="p">,</span> <span class="n">makedayfrc</span><span class="p">(</span><span class="n">h</span><span class="p">,</span> <span class="n">r</span><span class="p">,</span> <span class="n">s</span><span class="p">,</span> <span class="n">t</span><span class="p">))</span> </span><span id="L-761"><a href="#L-761"><span class="linenos" data-line="761"></span></a> <span class="kr">else</span> </span><span id="L-762"><a href="#L-762"><span class="linenos" data-line="762"></span></a> <span class="kr">return</span> <span class="n">date_error_arg</span><span class="p">()</span> </span><span id="L-763"><a href="#L-763"><span class="linenos" data-line="763"></span></a> <span class="kr">end</span> </span><span id="L-764"><a href="#L-764"><span class="linenos" data-line="764"></span></a><span class="kr">end</span> </span><span id="L-765"><a href="#L-765"><span class="linenos" data-line="765"></span></a> </span><span id="L-766"><a href="#L-766"><span class="linenos" data-line="766"></span></a><span class="kr">function</span> <span class="nc">date</span><span class="p">:</span><span class="nf">__call</span><span class="p">(</span><span class="n">arg1</span><span class="p">,</span> <span class="p">...)</span> </span><span id="L-767"><a href="#L-767"><span class="linenos" data-line="767"></span></a> <span class="kd">local</span> <span class="n">arg_count</span> <span class="o">=</span> <span class="nb">select</span><span class="p">(</span><span class="s2">"#"</span><span class="p">,</span> <span class="p">...)</span> <span class="o">+</span> <span class="p">(</span><span class="n">arg1</span> <span class="o">==</span> <span class="kc">nil</span> <span class="ow">and</span> <span class="mi">0</span> <span class="ow">or</span> <span class="mi">1</span><span class="p">)</span> </span><span id="L-768"><a href="#L-768"><span class="linenos" data-line="768"></span></a> <span class="kr">if</span> <span class="n">arg_count</span> <span class="o">></span> <span class="mi">1</span> <span class="kr">then</span> <span class="kr">return</span> <span class="p">(</span><span class="n">date_from</span><span class="p">(</span><span class="n">arg1</span><span class="p">,</span> <span class="p">...))</span> </span><span id="L-769"><a href="#L-769"><span class="linenos" data-line="769"></span></a> <span class="kr">elseif</span> <span class="n">arg_count</span> <span class="o">==</span> <span class="mi">0</span> <span class="kr">then</span> <span class="kr">return</span> <span class="p">(</span><span class="n">date_getdobj</span><span class="p">(</span><span class="kc">false</span><span class="p">))</span> </span><span id="L-770"><a href="#L-770"><span class="linenos" data-line="770"></span></a> <span class="kr">else</span> <span class="kd">local</span> <span class="n">o</span><span class="p">,</span> <span class="n">r</span> <span class="o">=</span> <span class="n">date_getdobj</span><span class="p">(</span><span class="n">arg1</span><span class="p">);</span> <span class="kr">return</span> <span class="n">r</span> <span class="ow">and</span> <span class="n">o</span><span class="p">:</span><span class="n">copy</span><span class="p">()</span> <span class="ow">or</span> <span class="n">o</span> <span class="kr">end</span> </span><span id="L-771"><a href="#L-771"><span class="linenos" data-line="771"></span></a><span class="kr">end</span> </span><span id="L-772"><a href="#L-772"><span class="linenos" data-line="772"></span></a> </span><span id="L-773"><a href="#L-773"><span class="linenos" data-line="773"></span></a><span class="n">date</span><span class="p">.</span><span class="n">diff</span> <span class="o">=</span> <span class="n">dobj</span><span class="p">.</span><span class="n">__sub</span> </span><span id="L-774"><a href="#L-774"><span class="linenos" data-line="774"></span></a> </span><span id="L-775"><a href="#L-775"><span class="linenos" data-line="775"></span></a><span class="kr">function</span> <span class="nc">date</span><span class="p">.</span><span class="nf">isleapyear</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> </span><span id="L-776"><a href="#L-776"><span class="linenos" data-line="776"></span></a> <span class="kd">local</span> <span class="n">y</span> <span class="o">=</span> <span class="n">truncate</span><span class="p">(</span><span class="n">v</span><span class="p">);</span> </span><span id="L-777"><a href="#L-777"><span class="linenos" data-line="777"></span></a> <span class="kr">if</span> <span class="ow">not</span> <span class="n">y</span> <span class="kr">then</span> </span><span id="L-778"><a href="#L-778"><span class="linenos" data-line="778"></span></a> <span class="n">y</span> <span class="o">=</span> <span class="n">date_getdobj</span><span class="p">(</span><span class="n">v</span><span class="p">)</span> </span><span id="L-779"><a href="#L-779"><span class="linenos" data-line="779"></span></a> <span class="n">y</span> <span class="o">=</span> <span class="n">y</span> <span class="ow">and</span> <span class="n">y</span><span class="p">:</span><span class="n">getyear</span><span class="p">()</span> </span><span id="L-780"><a href="#L-780"><span class="linenos" data-line="780"></span></a> <span class="kr">end</span> </span><span id="L-781"><a href="#L-781"><span class="linenos" data-line="781"></span></a> <span class="kr">return</span> <span class="n">isleapyear</span><span class="p">(</span><span class="n">y</span><span class="o">+</span><span class="mi">0</span><span class="p">)</span> </span><span id="L-782"><a href="#L-782"><span class="linenos" data-line="782"></span></a><span class="kr">end</span> </span><span id="L-783"><a href="#L-783"><span class="linenos" data-line="783"></span></a> </span><span id="L-784"><a href="#L-784"><span class="linenos" data-line="784"></span></a><span class="kr">function</span> <span class="nc">date</span><span class="p">.</span><span class="nf">epoch</span><span class="p">()</span> <span class="kr">return</span> <span class="n">date_epoch</span><span class="p">:</span><span class="n">copy</span><span class="p">()</span> <span class="kr">end</span> </span><span id="L-785"><a href="#L-785"><span class="linenos" data-line="785"></span></a> </span><span id="L-786"><a href="#L-786"><span class="linenos" data-line="786"></span></a><span class="kr">function</span> <span class="nc">date</span><span class="p">.</span><span class="nf">isodate</span><span class="p">(</span><span class="n">y</span><span class="p">,</span><span class="n">w</span><span class="p">,</span><span class="n">d</span><span class="p">)</span> <span class="kr">return</span> <span class="n">date_new</span><span class="p">(</span><span class="n">makedaynum_isoywd</span><span class="p">(</span><span class="n">y</span> <span class="o">+</span> <span class="mi">0</span><span class="p">,</span> <span class="n">w</span> <span class="ow">and</span> <span class="p">(</span><span class="n">w</span><span class="o">+</span><span class="mi">0</span><span class="p">)</span> <span class="ow">or</span> <span class="mi">1</span><span class="p">,</span> <span class="n">d</span> <span class="ow">and</span> <span class="p">(</span><span class="n">d</span><span class="o">+</span><span class="mi">0</span><span class="p">)</span> <span class="ow">or</span> <span class="mi">1</span><span class="p">),</span> <span class="mi">0</span><span class="p">)</span> <span class="kr">end</span> </span><span id="L-787"><a href="#L-787"><span class="linenos" data-line="787"></span></a><span class="kr">function</span> <span class="nc">date</span><span class="p">.</span><span class="nf">setcenturyflip</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> </span><span id="L-788"><a href="#L-788"><span class="linenos" data-line="788"></span></a> <span class="kr">if</span> <span class="n">y</span> <span class="o">~=</span> <span class="n">floor</span><span class="p">(</span><span class="n">y</span><span class="p">)</span> <span class="ow">or</span> <span class="n">y</span> <span class="o"><</span> <span class="mi">0</span> <span class="ow">or</span> <span class="n">y</span> <span class="o">></span> <span class="mi">100</span> <span class="kr">then</span> <span class="n">date_error_arg</span><span class="p">()</span> <span class="kr">end</span> </span><span id="L-789"><a href="#L-789"><span class="linenos" data-line="789"></span></a> <span class="n">centuryflip</span> <span class="o">=</span> <span class="n">y</span> </span><span id="L-790"><a href="#L-790"><span class="linenos" data-line="790"></span></a><span class="kr">end</span> </span><span id="L-791"><a href="#L-791"><span class="linenos" data-line="791"></span></a><span class="kr">function</span> <span class="nc">date</span><span class="p">.</span><span class="nf">getcenturyflip</span><span class="p">()</span> <span class="kr">return</span> <span class="n">centuryflip</span> <span class="kr">end</span> </span><span id="L-792"><a href="#L-792"><span class="linenos" data-line="792"></span></a> </span><span id="L-793"><a href="#L-793"><span class="linenos" data-line="793"></span></a><span class="c1">-- Internal functions</span> </span><span id="L-794"><a href="#L-794"><span class="linenos" data-line="794"></span></a><span class="kr">function</span> <span class="nc">date</span><span class="p">.</span><span class="nf">fmt</span><span class="p">(</span><span class="n">str</span><span class="p">)</span> <span class="kr">if</span> <span class="n">str</span> <span class="kr">then</span> <span class="n">fmtstr</span> <span class="o">=</span> <span class="n">str</span> <span class="kr">end</span><span class="p">;</span> <span class="kr">return</span> <span class="n">fmtstr</span> <span class="kr">end</span> </span><span id="L-795"><a href="#L-795"><span class="linenos" data-line="795"></span></a><span class="kr">function</span> <span class="nc">date</span><span class="p">.</span><span class="nf">daynummin</span><span class="p">(</span><span class="n">n</span><span class="p">)</span> <span class="n">DAYNUM_MIN</span> <span class="o">=</span> <span class="p">(</span><span class="n">n</span> <span class="ow">and</span> <span class="n">n</span> <span class="o"><</span> <span class="n">DAYNUM_MAX</span><span class="p">)</span> <span class="ow">and</span> <span class="n">n</span> <span class="ow">or</span> <span class="n">DAYNUM_MIN</span> <span class="kr">return</span> <span class="n">n</span> <span class="ow">and</span> <span class="n">DAYNUM_MIN</span> <span class="ow">or</span> <span class="n">date_new</span><span class="p">(</span><span class="n">DAYNUM_MIN</span><span class="p">,</span> <span class="mi">0</span><span class="p">):</span><span class="n">normalize</span><span class="p">()</span><span class="kr">end</span> </span><span id="L-796"><a href="#L-796"><span class="linenos" data-line="796"></span></a><span class="kr">function</span> <span class="nc">date</span><span class="p">.</span><span class="nf">daynummax</span><span class="p">(</span><span class="n">n</span><span class="p">)</span> <span class="n">DAYNUM_MAX</span> <span class="o">=</span> <span class="p">(</span><span class="n">n</span> <span class="ow">and</span> <span class="n">n</span> <span class="o">></span> <span class="n">DAYNUM_MIN</span><span class="p">)</span> <span class="ow">and</span> <span class="n">n</span> <span class="ow">or</span> <span class="n">DAYNUM_MAX</span> <span class="kr">return</span> <span class="n">n</span> <span class="ow">and</span> <span class="n">DAYNUM_MAX</span> <span class="ow">or</span> <span class="n">date_new</span><span class="p">(</span><span class="n">DAYNUM_MAX</span><span class="p">,</span> <span class="mi">0</span><span class="p">):</span><span class="n">normalize</span><span class="p">()</span><span class="kr">end</span> </span><span id="L-797"><a href="#L-797"><span class="linenos" data-line="797"></span></a><span class="kr">function</span> <span class="nc">date</span><span class="p">.</span><span class="nf">ticks</span><span class="p">(</span><span class="n">t</span><span class="p">)</span> <span class="kr">if</span> <span class="n">t</span> <span class="kr">then</span> <span class="n">setticks</span><span class="p">(</span><span class="n">t</span><span class="p">)</span> <span class="kr">end</span> <span class="kr">return</span> <span class="n">TICKSPERSEC</span> <span class="kr">end</span> </span><span id="L-798"><a href="#L-798"><span class="linenos" data-line="798"></span></a><span class="c1">--#end -- not DATE_OBJECT_AFX</span> </span><span id="L-799"><a href="#L-799"><span class="linenos" data-line="799"></span></a> </span><span id="L-800"><a href="#L-800"><span class="linenos" data-line="800"></span></a><span class="kd">local</span> <span class="n">tm</span> <span class="o">=</span> <span class="n">osdate</span><span class="p">(</span><span class="s2">"!*t"</span><span class="p">,</span> <span class="mi">0</span><span class="p">);</span> </span><span id="L-801"><a href="#L-801"><span class="linenos" data-line="801"></span></a><span class="kr">if</span> <span class="n">tm</span> <span class="kr">then</span> </span><span id="L-802"><a href="#L-802"><span class="linenos" data-line="802"></span></a> <span class="n">date_epoch</span> <span class="o">=</span> <span class="n">date_new</span><span class="p">(</span><span class="n">makedaynum</span><span class="p">(</span><span class="n">tm</span><span class="p">.</span><span class="n">year</span><span class="p">,</span> <span class="n">tm</span><span class="p">.</span><span class="n">month</span> <span class="o">-</span> <span class="mi">1</span><span class="p">,</span> <span class="n">tm</span><span class="p">.</span><span class="n">day</span><span class="p">),</span> <span class="n">makedayfrc</span><span class="p">(</span><span class="n">tm</span><span class="p">.</span><span class="n">hour</span><span class="p">,</span> <span class="n">tm</span><span class="p">.</span><span class="n">min</span><span class="p">,</span> <span class="n">tm</span><span class="p">.</span><span class="n">sec</span><span class="p">,</span> <span class="mi">0</span><span class="p">))</span> </span><span id="L-803"><a href="#L-803"><span class="linenos" data-line="803"></span></a> <span class="c1">-- the distance from our epoch to os epoch in daynum</span> </span><span id="L-804"><a href="#L-804"><span class="linenos" data-line="804"></span></a> <span class="n">DATE_EPOCH</span> <span class="o">=</span> <span class="n">date_epoch</span> <span class="ow">and</span> <span class="n">date_epoch</span><span class="p">:</span><span class="n">spandays</span><span class="p">()</span> </span><span id="L-805"><a href="#L-805"><span class="linenos" data-line="805"></span></a><span class="kr">else</span> <span class="c1">-- error will be raise only if called!</span> </span><span id="L-806"><a href="#L-806"><span class="linenos" data-line="806"></span></a> <span class="n">date_epoch</span> <span class="o">=</span> <span class="nb">setmetatable</span><span class="p">({},{</span><span class="n">__index</span> <span class="o">=</span> <span class="kr">function</span><span class="p">()</span> <span class="nb">error</span><span class="p">(</span><span class="s2">"failed to get the epoch date"</span><span class="p">)</span> <span class="kr">end</span><span class="p">})</span> </span><span id="L-807"><a href="#L-807"><span class="linenos" data-line="807"></span></a><span class="kr">end</span> </span><span id="L-808"><a href="#L-808"><span class="linenos" data-line="808"></span></a> </span><span id="L-809"><a href="#L-809"><span class="linenos" data-line="809"></span></a><span class="c1">--#if not DATE_OBJECT_AFX then</span> </span><span id="L-810"><a href="#L-810"><span class="linenos" data-line="810"></span></a><span class="kr">return</span> <span class="n">date</span> </span><span id="L-811"><a href="#L-811"><span class="linenos" data-line="811"></span></a><span class="c1">--#else</span> </span><span id="L-812"><a href="#L-812"><span class="linenos" data-line="812"></span></a><span class="c1">--$return date_from</span> </span><span id="L-813"><a href="#L-813"><span class="linenos" data-line="813"></span></a><span class="c1">--#end</span> </span></pre></div> <!-- NewPP limit report Parsed by mw鈥恮eb.codfw.main鈥恌69cdc8f6鈥恟24xm Cached time: 20241125021153 Cache expiry: 2592000 Reduced expiry: false Complications: [] CPU time usage: 0.002 seconds Real time usage: 0.002 seconds Preprocessor visited node count: 1/1000000 Post鈥恊xpand include size: 0/2097152 bytes Template argument size: 0/2097152 bytes Highest expansion depth: 1/100 Expensive parser function count: 0/500 Unstrip recursion depth: 0/20 Unstrip post鈥恊xpand size: 0/5000000 bytes Number of Wikibase entities loaded: 0/400 --> <!-- Transclusion expansion time report (%,ms,calls,template) 100.00% 0.000 1 -total --> </div><!--esi <esi:include src="/esitest-fa8a495983347898/content" /> --><noscript><img src="https://login.wikimedia.org/wiki/Special:CentralAutoLogin/start?type=1x1" alt="" width="1" height="1" style="border: none; position: absolute;"></noscript> <div class="printfooter" data-nosnippet="">Obtenido de 芦<a dir="ltr" href="https://es.wiktionary.org/w/index.php?title=M贸dulo:fecha&oldid=5298303">https://es.wiktionary.org/w/index.php?title=M贸dulo:fecha&oldid=5298303</a>禄</div></div> <div id="catlinks" class="catlinks catlinks-allhidden" data-mw="interface"></div> </div> </main> </div> <div class="mw-footer-container"> <footer id="footer" class="mw-footer" > <ul id="footer-info"> <li id="footer-info-lastmod"> Esta p谩gina se edit贸 por 煤ltima vez el 20 feb 2024 a las 08:30.</li> <li id="footer-info-copyright">El texto est谩 disponible bajo la <a rel="nofollow" class="external text" href="https://creativecommons.org/licenses/by-sa/4.0/deed.es">Licencia Creative Commons Atribuci贸n-CompartirIgual 4.0</a>. Pueden existir condiciones adicionales. V茅anse los <a class="external text" href="https://foundation.wikimedia.org/wiki/Special:MyLanguage/Policy:Terms_of_Use/es">t茅rminos de uso</a> para m谩s detalles.</li> </ul> <ul id="footer-places"> <li id="footer-places-privacy"><a href="https://foundation.wikimedia.org/wiki/Special:MyLanguage/Policy:Privacy_policy/es">Pol铆tica de privacidad</a></li> <li id="footer-places-about"><a href="/wiki/Wikcionario:Acerca_de">Acerca de Wikcionario</a></li> <li id="footer-places-disclaimers"><a href="/wiki/Wikcionario:Descargo_general">Aviso legal</a></li> <li id="footer-places-wm-codeofconduct"><a href="https://foundation.wikimedia.org/wiki/Special:MyLanguage/Policy:Universal_Code_of_Conduct">C贸digo de conducta</a></li> <li id="footer-places-developers"><a href="https://developer.wikimedia.org">Desarrolladores</a></li> <li id="footer-places-statslink"><a href="https://stats.wikimedia.org/#/es.wiktionary.org">Estad铆sticas</a></li> <li id="footer-places-cookiestatement"><a href="https://foundation.wikimedia.org/wiki/Special:MyLanguage/Policy:Cookie_statement/es">Declaraci贸n de cookies</a></li> <li id="footer-places-mobileview"><a href="//es.m.wiktionary.org/w/index.php?title=M%C3%B3dulo:fecha&mobileaction=toggle_view_mobile" class="noprint stopMobileRedirectToggle">Versi贸n para m贸viles</a></li> </ul> <ul id="footer-icons" class="noprint"> <li id="footer-copyrightico"><a href="https://wikimediafoundation.org/" class="cdx-button cdx-button--fake-button cdx-button--size-large cdx-button--fake-button--enabled"><img src="/static/images/footer/wikimedia-button.svg" width="84" height="29" alt="Wikimedia Foundation" loading="lazy"></a></li> <li id="footer-poweredbyico"><a href="https://www.mediawiki.org/" class="cdx-button cdx-button--fake-button cdx-button--size-large cdx-button--fake-button--enabled"><img src="/w/resources/assets/poweredby_mediawiki.svg" alt="Powered by MediaWiki" width="88" height="31" loading="lazy"></a></li> </ul> </footer> </div> </div> </div> <div class="vector-settings" id="p-dock-bottom"> <ul></ul> </div><script>(RLQ=window.RLQ||[]).push(function(){mw.config.set({"wgHostname":"mw-web.codfw.main-f69cdc8f6-r24xm","wgBackendResponseTime":324,"wgPageParseReport":{"limitreport":{"cputime":"0.002","walltime":"0.002","ppvisitednodes":{"value":1,"limit":1000000},"postexpandincludesize":{"value":0,"limit":2097152},"templateargumentsize":{"value":0,"limit":2097152},"expansiondepth":{"value":1,"limit":100},"expensivefunctioncount":{"value":0,"limit":500},"unstrip-depth":{"value":0,"limit":20},"unstrip-size":{"value":0,"limit":5000000},"entityaccesscount":{"value":0,"limit":400},"timingprofile":["100.00% 0.000 1 -total"]},"cachereport":{"origin":"mw-web.codfw.main-f69cdc8f6-r24xm","timestamp":"20241125021153","ttl":2592000,"transientcontent":false}}});});</script> </body> </html>