สอบถามการบวกปี พ.ศ. ตาม Format ครับ

[arampong]

สวัสดีครับอาจารย์ และพี่ๆทุกท่าน

          ผมอยากสอบถามการบวกปี พ.ศ.ตาม Format ครับ
รายละเอียดดังนี้ครับ
         
ผมมี Text1 รับค่าวันที่ตาม Format(Date(),"mm-yy")  จะได้ ก.พ.61 ตามวันที่เครื่องผมครับ
1.ผมอยากให้เวลาไปใช้เครื่องไหนก็ได้ที่ไม่ใช่ Format เหมือนที่เครื่องผมแต่ก็ยังใช้งานได้ครับ
2.ผมมี Text2 และจะบวกค่า1 เข้าไปที่ปี พ.ศ. จะบวกยังไงครับ ก.พ.61 ก็จะเป็น ก.พ.62

ขอบคุณครับ

[pizza_p]

1. ปกติ Date() จะแสดงผลตามการตั้งค่าใน windows อยู่เครื่องไหนก็แสดงตามเครื่องนั้น แต่วันที่ก็เป็นวันเดิม พยายามอย่าไปแก้โดยให้เป็นตาม format พ.ศ.ที่เราต้องการ เพราะมันจะเพี้ยนเวลาย้ายเครื่อง (จริงๆก็มีวิธี fix เป็นปี พ.ศ. อยู่แต่เจ้าของเครื่องเขาพอใจจะใช้ตามที่ตัวเองตั้งค่าไว้ใน windows หรือไม่)
2. ถ้าจะบวกปีเข้าไป 1 ปี ก็ใช้ Text2 = Format(DateAdd("yyyy",1,Date()), "mm-yy")

[arampong]

ขอบคุณมากครับ เดี๋ยวข้อ1ปรึกษา คนใช้งานอีกทีครับ