รับรหัสวันที่ในรูปแบบ Excel ที่ไม่เป็นลบจำนวนเต็มคืนค่า "วันที่" ที่สอดคล้องกันในรูปแบบที่สมเหตุสมผลซึ่งแสดงปีเดือนและ "วัน" อย่างชัดเจน

เล็กน้อยคุณอาจคิดว่า คุณสังเกตเห็น "คำพูดที่ทำให้ตกใจ" หรือไม่? ฉันใช้สิ่งเหล่านี้เพราะ Excel มีข้อผิดพลาดบางอย่าง Excel นับวันที่มีจำนวน 1 มกราคม 1 ^ST 1900 แต่เป็นถ้า 1900 มี 0 มกราคม^{ปีบริบูรณ์}และ 29 กุมภาพันธ์^{ปีบริบูรณ์}จึงควรระมัดระวังมากที่จะลองกรณีทดสอบทั้งหมด:

 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

ด้วยรูปแบบ

yyy/m/d

พอร์ตบริสุทธิ์

k (kdb + 3.5), 55 54 51 50 ไบต์

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

เพื่อทดสอบวางบรรทัดนี้ในคอนโซล 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;

ผลลัพธ์ที่ควรจะเป็น

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

{ } เป็นฟังก์ชั่นที่มีข้อโต้แย้ง x

0 60?xดัชนีของxหมู่0 60หรือ 2 หากไม่พบ

ˋ1900.01.00ˋ1900.02.29 รายการของสองสัญลักษณ์

, ต่อท้ายมัน

"d"$ แปลงเป็นวันที่

x-36526 จำนวนวันตั้งแต่ 1900 (แทนค่าเริ่มต้น 2000)

- x<60 ปรับสำหรับข้อผิดพลาดกระโดดของ excel

(ˋ1900.01.00ˋ1900.02.29,"d"$x-36526-x<60)@ 0 60?xjuxtaposition หมายถึงการจัดทำดัชนี - "@" ที่อยู่ตรงกลางคือโดยปริยาย

$ แปลงเป็นสตริง

Python 2 , 111 ไบต์

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

ลองออนไลน์!

-5 ขอบคุณที่NGN

JavaScript (ES6),  89 82  77 ไบต์

บันทึกแล้ว 7  12 ไบต์ขอบคุณ @tsh

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

ลองออนไลน์!

ทำความสะอาด , 205 189 ไบต์

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)

ลองออนไลน์!

Japt, 43 ไบต์

จบลงด้วยพอร์ตส่วนหนึ่งของ การแก้ปัญหาของ Arnauld

เอาต์พุตอยู่ใน yyyy-m-dรูปแบบ

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

ลองออนไลน์หรือทดสอบ 0-100

APL (Dyalog Classic) , 31 ไบต์

ฟังก์ชันนำหน้าเงียบโดยไม่ระบุชื่อ ส่งคืนวันที่เป็น[Y,M,D]

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

ลองออนไลน์!

× สัญลักษณ์ของรหัสวันที่

⊢- ลบออกจากอาร์กิวเมนต์ (รหัสวันที่)

60∘>+ เพิ่มขึ้นหากรหัสวันที่อยู่เหนือหกสิบ

2⎕NQ#263, ใช้เป็นอาร์กิวเมนต์ทันทีสำหรับ "เหตุการณ์ 263" (IDN ถึงวันที่)
 ^{IDN เหมือนกับรหัสวันที่ของ Excel แต่ไม่มี 29 ก.พ. 1900 และวันก่อน 1 มกราคม 1900 คือ 31 ธันวาคม 1899}

3↑ ใช้องค์ประกอบสามประการแรกขององค์ประกอบนั้น (องค์ประกอบที่สี่คือวันในสัปดาห์)

(... )+ เพิ่มสิ่งต่อไปนี้เข้ากับสิ่งเหล่านั้น:

 60∘≠ 0 ถ้ารหัสวันที่คือ 60 1 ถ้ารหัสวันที่ไม่ใช่ 60

 ×- ลบออกจากเครื่องหมายของรหัสวันที่

 ¯3↑ ใช้สามองค์ประกอบสุดท้าย (มีเพียงหนึ่ง) แพ็ดดิงที่มีศูนย์ (สอง)

พัฒนาร่วมกับ @ Adámในการแชท

C # (.NET Core) , 186 185 ไบต์

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

ลองออนไลน์!

-1 ไบต์โดยแทนที่ตัวดำเนินการ OR (||) ด้วยตัวดำเนินการแบบไบนารีหรือ (|)

Perl 6 , 81 ไบต์

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

ลองออนไลน์!

T-SQL, 141 95 94 ไบต์

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

การขึ้นบรรทัดใหม่มีไว้เพื่อให้สามารถอ่านได้เท่านั้น

การป้อนข้อมูลจะได้รับการผ่านทางที่มีอยู่ก่อนตารางฉันมีเขตจำนวนเต็มn , ตามมาตรฐาน IO ของเรา

SQL ใช้จุดเริ่มต้นที่คล้ายกัน (แต่ถูกแก้ไข) 1-1-1900 สำหรับรูปแบบวันที่ภายในดังนั้นฉันจึงต้องชดเชยมันภายใน 1 หรือ 2 วันในDATEADDฟังก์ชั่น

SQL ไม่สามารถส่งออกคอลัมน์ที่มีค่าผสมของวันที่และค่าตัวอักษรได้ดังนั้นฉันจึงไม่สามารถละทิ้งFORMATคำสั่งได้ (เพราะจะลองแปลง1/0/1900เป็นวันที่ซึ่งแน่นอนว่าไม่ถูกต้อง)

สิ่งที่ดีเกี่ยวกับ SQL คือฉันสามารถโหลดค่าอินพุตทั้งหมดลงในตารางและเรียกใช้ทั้งหมดในครั้งเดียว ค่าเริ่มต้นในท้องที่ของฉัน (สหรัฐอเมริกา) เป็นm/d/yyyyรูปแบบวันที่:

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

แก้ไข : บันทึกไว้ 46 ไบต์โดยการเปลี่ยนไปซ้อนกันแทนมากขึ้นอย่างละเอียดIIF()CASE WHEN

แก้ไข 2 : บันทึกไบต์อื่นโดยการย้ายในด้านหน้าของ-IIF