Dado un código de fecha entero de estilo Excel no negativo, devuelva la "fecha" correspondiente en cualquier forma razonable que muestre claramente año, mes y "día".

Trivial, puedes pensar. ¿Notaste las "citas de miedo"? Los usé porque Excel tiene algunas peculiaridades. Excel cuenta días con el número 1 para enero 1 ^st , 1900, pero como si 1900 registró en enero 0 ^º y Un informe de febrero 29 de ^XX , por lo que tener mucho cuidado para tratar todos los casos de prueba:

 Input → Output (example format)
     0 → 1900-01-00    Note: NOT 1899-12-31
     1 → 1900-01-01
     2 → 1900-01-02
    59 → 1900-02-28
    60 → 1900-02-29    Note: NOT 1900-03-01
    61 → 1900-03-01
   100 → 1900-04-09
  1000 → 1902-09-26
 10000 → 1927-05-18
100000 → 2173-10-14

Excel, 3 (+7?)

=A1

con formato

yyy/m/d

Puerto puro

k (kdb + 3.5), 55 54 51 50 bytes

{$(`1900.01.00`1900.02.29,"d"$x-36526-x<60)0 60?x}

para probar, pegue esta línea en la consola q:

k)-1@{$(`1900.01.00`1900.02.29,"d"$x-36526-x<60)0 60?x}'0 1 2 59 60 61 100 1000 10000 100000;

la salida debe ser

1900.01.00
1900.01.01
1900.01.02
1900.02.28
1900.02.29
1900.03.01
1900.04.09
1902.09.26
1927.05.18
2173.10.14

{ } es una función con argumento x

0 60?xíndice de xentre 0 60o 2 si no se encuentra

ˋ1900.01.00ˋ1900.02.29 una lista de dos símbolos

, añádele

"d"$ convertido a una fecha

x-36526 número de días desde 1900 (en lugar del predeterminado 2000)

- x<60 ajustar por error de salto de Excel

(ˋ1900.01.00ˋ1900.02.29,"d"$x-36526-x<60)@ 0 60?xyuxtaposición significa indexación: la "@" en el medio está implícita

$ convertir a cadena

Python 2 , 111 bytes

from datetime import*
n=input()
print('1900-0'+'12--0209'[n>9::2],date(1900,1,1)+timedelta(n+~(n>59)))[0<n!=60]

Pruébalo en línea!

-5 gracias a ngn .

JavaScript (ES6),  89 82  77 bytes

Guardado  7  12 bytes gracias a @tsh

n=>(p=n>60?'':19)+new Date(p*400,0,n-!p||1).toJSON().slice(p/9,10-!n)+(n&&'')

Pruébalo en línea!

Limpio , 205 189 bytes

import StdEnv
a=30;b=31;c=1900;r=rem
@m=sum(take m(?c))
?n=[b,if(n>c&&(r n 4>0||r n 100<1&&r n 400>0))28 29,b,a,b,a,b,b,a,b,a,b: ?(n+1)]
$n#m=while(\m= @m<n)inc 0-1
=(c+m/12,1+r m 12,n- @m)

Pruébalo en línea!

Japt, 43 bytes

Terminé con un puerto parcial de la solución de Arnauld .

La salida está en yyyy-m-dformato.

?U-#<?Ð#¾0TUaU>#<)s7:"1900-2-29":"1900-1-0"

Pruébelo en línea o pruebe 0-100

APL (Dyalog Classic) , 31 bytes

Función de prefijo tácito anónimo. Fecha de devolución como[Y,M,D]

(¯3↑×-60∘≠)+3↑2⎕NQ#263,60∘>+⊢-×

Pruébalo en línea!

× signo del código de fecha

⊢- reste eso del argumento (el código de fecha)

60∘>+ aumentar si el código de fecha es superior a sesenta

2⎕NQ#263, úselo como argumento inmediato para el "Evento 263" (IDN hasta la fecha)
 ^{IDN es como el código de fecha de Excel, pero sin el 29 de febrero de 1900, y el día anterior al 1 de enero de 1900 es el 31 de diciembre de 1899}

3↑ tome los primeros tres elementos de eso (el cuarto es el día de la semana)

(… )+ Agregue lo siguiente a aquellos:

 60∘≠ 0 si el código de fecha es 60; 1 si el código de fecha no es 60

 ×- reste eso del signo del código de fecha

 ¯3↑ tome los últimos tres elementos (solo hay uno) relleno con (dos) ceros

desarrollado junto con @ Adám en el chat

C # (.NET Core) , 186 185 bytes

using System;class P{static void Main(){var i=int.Parse(Console.ReadLine());Console.Write((i==0|i==60)?$"1900-{i%59+1}-{i%31}":DateTime.FromOADate(i+(i<60?1:0)).ToString("yyyy-M-d"));}}

Pruébalo en línea!

-1 byte reemplazando el operador OR (||) con el operador OR binario (|).

Perl 6 , 81 bytes

{$_??$_-60??Date.new-from-daycount($_+15018+(60>$_))!!'1900-02-29'!!'1900-01-00'}

Pruébalo en línea!

T-SQL, 141 95 94 bytes

SELECT IIF(n=0,'1/0/1900',IIF(n=60,'2/29/1900',
FORMAT(DATEADD(d,n,-IIF(n<60,1,2)),'d')))FROM i

El salto de línea es solo para legibilidad.

La entrada se toma a través de la tabla i existente con el campo entero n , según nuestros estándares IO .

SQL utiliza un punto de inicio similar (pero corregido) 1-1-1900 para su formato de fecha interno, por lo que solo tengo que compensarlo en 1 o 2 días en el DATEADD función.

SQL no puede generar una columna que contenga una combinación de valores de fecha y caracteres, por lo que no puedo omitir el FORMATcomando (ya que luego intentaría convertir 1/0/1900a una fecha, que por supuesto no es válida).

Lo bueno de SQL es que puedo cargar todos los valores de entrada en la tabla y ejecutarlos todos a la vez. Mi localidad (de EE. UU.) Tiene un m/d/yyyyformato de fecha predeterminado :

n       output
0       1/0/1900
1       1/1/1900
2       1/2/1900
59      2/28/1900
60      2/29/1900
61      3/1/1900
100     4/9/1900
1000    9/26/1902
10000   5/18/1927
43432   11/28/2018
100000  10/14/2173

EDITAR : guardó 46 bytes al cambiar a un anidado en IIF()lugar del mucho más detallado CASE WHEN.

EDITAR 2 : guardado otro byte moviendo el -frente de IIF.