ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¼Æ­ÈÂন¦~¤ë¦A­pºâ

[µo°Ý] ¼Æ­ÈÂন¦~¤ë¦A­pºâ

½Ð°Ý¦p¦ó±N¼Æ­ÈÂন¦~¤ë«á¦A°µ­pºâ
¨Ò¦p¡G201301¡A­n¥ý§ï¦¨¬°2013¦~1¤ë¡A¤§«á¦A©¹«á¥[¢±­Ó¤ëÅܦ¨2013¦~3¤ë¡A¸Ó«ç»ò°µ©O¡H
·PÁÂ

¦^´_ 1# lct
¤£ª¾¹D§A°Ýªº¬O¤£¬O³o­Ó?
§Ú·|¥ýÂର¤é´Á¦A¹Bºâ¡A³o¼Ë§Y¨Ï¹Bºâ«á·|¸ó¦~«×¤]¤£¥Î¯S§O³B²z(¨Ò¦p¥[¤W20­Ó¤ë)¡C
  1. Sub Test()
  2.     Dim a As Long, d As Date
  3.    
  4.     a = 201301
  5.     d = DateSerial(Int(a / 100), a Mod 100, 1)  '2013/1/1
  6.     MsgBox Format(DateAdd("m", 2, d), "yyyy¦~m¤ë")
  7. End Sub
½Æ»s¥N½X

TOP

¼Æ¦r®æ¦¡©T©w¶Ü¡H
ss

TOP

¦^´_ 1# lct
¨ç¼Æ§Y¥i¹F¦¨
=--TEXT(EDATE(--(TEXT(A1,"0000-00")&"-01"),2),"yyyymm")
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# stillfish00

©êºp,¤~²¨¾Ç²L,¬Ý¤£À´,..³o¬O­n¦b¨º¸Ì°µ§r???

TOP

¦^´_ 4# Hsieh

¤£ª¾¤°»ò°ÝÃD,·ÓµÛ°µµ²ªG¥X²{  #NAME?

TOP

¦^´_ 6# lct

¤Ä¿ï¤u¨ã/¼W¯q¶°/¤ÀªR¤u¨ã½c
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# lct


A1 =201303
B1 =3
C1 =TEXT(DATE(LEFT(A1,4),RIGHT(A1,2)+B1,1),"yyyymm")
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : §Ñ¥\¤£§Ñ¹L¡A§Ñ«è¤£§Ñ®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD