Cho mã ngày số nguyên kiểu Excel không âm, trả về "ngày" tương ứng ở bất kỳ dạng hợp lý nào hiển thị rõ ràng năm, tháng và "ngày".

Tầm thường, bạn có thể nghĩ. Bạn có nhận thấy "trích dẫn sợ hãi"? Tôi đã sử dụng chúng vì Excel có một số quirks. Excel đếm ngày với số 1 cho ngày 01 tháng 1 ^st , năm 1900, nhưng , nếu như năm 1900 đã có một tháng một 0 ^ngày và một tháng hai 29 ^ngày , vì vậy phải rất cẩn thận để thử tất cả các trường hợp thử nghiệm:

 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

với định dạng

yyy/m/d

Cổng tinh khiết

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

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

để kiểm tra, dán dòng này trong bảng điều khiển 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;

đầu ra phải là

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

{ } là một hàm với đối số x

0 60?xchỉ số trong xsố 0 60hoặc 2 nếu không tìm thấy

ˋ1900.01.00ˋ1900.02.29 một danh sách hai biểu tượng

, nối vào nó

"d"$ chuyển đổi thành một ngày

x-36526 số ngày kể từ năm 1900 (thay vì 2000 mặc định)

- x<60 điều chỉnh cho lỗi nhảy vọt của excel

(ˋ1900.01.00ˋ1900.02.29,"d"$x-36526-x<60)@ 0 60?xjuxtap vị trí có nghĩa là lập chỉ mục - "@" ở giữa là ẩn

$ chuyển đổi thành chuỗi

Python 2 , 111 byte

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

Hãy thử trực tuyến!

-5 cảm ơn ngn .

JavaScript (ES6),  89 82  77 byte

Đã lưu  7  12 byte nhờ @tsh

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

Hãy thử trực tuyến!

Sạch , 205 189 byte

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)

Hãy thử trực tuyến!

Japt, 43 byte

Kết thúc với một phần của giải pháp Arnauld .

Đầu ra có yyyy-m-dđịnh dạng.

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

Dùng thử trực tuyến hoặc kiểm tra 0-100

APL (Dyalog Classic) , 31 byte

Chức năng tiền tố ẩn danh. Trả về ngày là[Y,M,D]

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

Hãy thử trực tuyến!

× ký mã ngày

⊢- trừ đi từ đối số (mã ngày)

60∘>+ gia tăng nếu mã ngày trên sáu mươi

2⎕NQ#263, sử dụng đó làm đối số ngay lập tức cho "Sự kiện 263" (IDN cho đến nay)
  ^{IDN giống như mã ngày của Excel, nhưng không có ngày 29 tháng 2 năm 1900 và một ngày trước ngày 1 tháng 1 năm 1900 là ngày 31 tháng 12 năm 1899}

3↑ lấy ba yếu tố đầu tiên (yếu tố thứ tư là ngày trong tuần)

(Giáo dục)+  thêm những điều sau đây để những người:

 60∘≠ 0 nếu mã ngày là 60; 1 nếu mã ngày không phải là 60

 ×- trừ đi từ dấu của mã ngày

 ¯3↑ lấy ba phần tử cuối cùng (chỉ có một) phần đệm với (hai) số không

được phát triển cùng với @ Adám trong trò chuyện

C # (.NET Core) , 186 185 byte

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"));}}

Hãy thử trực tuyến!

-1 byte bằng cách thay thế toán tử OR (||) bằng toán tử OR nhị phân (|).

Perl 6 , 81 byte

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

Hãy thử trực tuyến!

T-SQL, 141 95 94 byte

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

Ngắt dòng chỉ dành cho khả năng đọc.

Đầu vào được lấy thông qua bảng i có sẵn với số nguyên n , theo tiêu chuẩn IO của chúng tôi .

SQL sử dụng điểm bắt đầu 1-1-1900 tương tự (nhưng đã sửa) cho định dạng ngày bên trong của nó, vì vậy tôi chỉ phải bù lại 1 hoặc 2 ngày trong DATEADD hàm.

SQL không thể xuất ra một cột chứa hỗn hợp các giá trị ngày và ký tự, vì vậy tôi không thể bỏ FORMATlệnh (vì sau đó nó sẽ cố gắng chuyển đổi1/0/1900 thành một ngày, tất nhiên là không hợp lệ).

Điều tuyệt vời ở SQL là tôi có thể tải lên tất cả các giá trị đầu vào vào bảng và chạy tất cả chúng cùng một lúc. Địa phương của tôi (Hoa Kỳ) mặc định ở m/d/yyyyđịnh dạng ngày:

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

EDIT : Đã lưu 46 byte bằng cách thay đổi thành lồng nhau IIF()thay vì dài dòng hơn nhiều CASE WHEN.

EDIT 2 : Đã lưu một byte khác bằng cách di chuyển -phía trước IIF.