กำหนด EXPIRY

[busaba rienthong]

อาจารย์คะ
ถ้าใช้สูตรตามที่แนบไฟล์ไปครั้งแรก จะเปลี่ยนวันที่ 2 ตัวหลัง จากสูตรที่ &00 ไว้เป็น 28 กับ 30 จะเขียนสูตรอย่างไรคะ

[XDoll]

ลองสูตรใหม่ครับ (ตามไฟล์แนบครับ)
ผมเพิ่ม Cell ช่วยเพื่อ แปลง Format ก่อนโดย
ที่ B77 คีย์ =TEXT(RIGHT($N$3,2)&"/"&MID($N$3,3,2)&"/"&LEFT($N$3,2),"dd-mm-yy") Enter หลังจากนั้น
ืที่ R59 คีย์ =TEXT(IF(IF(MONTH(B77)=1,12,MONTH(B77))=12,YEAR(B77)+2,YEAR(B77)+3)&"/"&IF(MONTH(B77)=1,12,MONTH(B77)-1)&"/"&IF(MONTH(B77)-1=2,28,30),"yymmdd") Enter

ดูตามไฟล์แนบนะครับว่าช่วยได้ไหม
* Exp.เดือน กพ. = 28
* Exp.เดือนอื่น = 30

[PayomKanboon]

ลองสูตรตามนี้ครับ R59 =EOMONTH(IF(LEFT(N3,2)>RIGHT(YEAR(TODAY()),2),19,20)&TEXT(N3,"00-00-00"),-3*12)+0
ปรับ format Custom เป็น yymmdd ครับ

[PayomKanboon]

ลองสูตiตามนี้ครับที่R59 =EOMONTH(IF(LEFT(N3,2)>RIGHT(YEAR(TODAY()),2),19,20)&TEXT(N3,"00-00-00"),-3*12)+0

ปรับ Format Custom เป็น yymmdd ครับ

[PayomKanboon]

โทษที่..เพิ่งส่งได้ครับ(:ซ้ำ)
พอดีอากาศเปลี่ยน..ช่วงนี้เป็นไข้ครับคิดถึงอาจารย์... เพื่อนสมชิกทุกท่านครับ

[snasui]

เซลล์ A2 เพิ่มฟังก์ชั่น Text เข้าไปช่วยครับ เป็น

=Text(Date(Year(20&Left(A1,2),Month(Mid(A1,3,2)),0),"yymmdd")

สูตรด้านบนไม่จำเป็นต้องใช้ Year และ Month ผมคีย์เพลินไปหน่อย จากไฟล์ตัวอย่างที่แนบมาปรับสูตรเป็นด้านล่างครับ

=TEXT(DATE((20&LEFT(R58,2))-3,MID(R58,3,2),0),"yymmdd")