Page 2 of 2
Re: กำหนด EXPIRY
Posted: Sun Jul 17, 2016 5:20 am
by busaba rienthong
อาจารย์คะ
ถ้าใช้สูตรตามที่แนบไฟล์ไปครั้งแรก จะเปลี่ยนวันที่ 2 ตัวหลัง จากสูตรที่ &00 ไว้เป็น 28 กับ 30 จะเขียนสูตรอย่างไรคะ
Re: กำหนด EXPIRY
Posted: Tue Jul 19, 2016 1:41 pm
by 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
Re: กำหนด EXPIRY
Posted: Wed Jul 20, 2016 6:26 pm
by PayomKanboon
ลองสูตรตามนี้ครับ R59 =EOMONTH(IF(LEFT(N3,2)>RIGHT(YEAR(TODAY()),2),19,20)&TEXT(N3,"00-00-00"),-3*12)+0
ปรับ format Custom เป็น yymmdd ครับ
Re: กำหนด EXPIRY
Posted: Wed Jul 20, 2016 6:48 pm
by 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 ครับ
Re: กำหนด EXPIRY
Posted: Wed Jul 20, 2016 6:52 pm
by PayomKanboon
โทษที่..เพิ่งส่งได้ครับ(:ซ้ำ)
พอดีอากาศเปลี่ยน..ช่วงนี้เป็นไข้ครับคิดถึงอาจารย์... เพื่อนสมชิกทุกท่านครับ
Re: กำหนด EXPIRY
Posted: Wed Jul 20, 2016 7:59 pm
by snasui
snasui wrote: เซลล์ 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")