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

lct

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

stillfish00

¦^´_ 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

sunnyso

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

Hsieh

¦^´_ 1# lct
¨ç¼Æ§Y¥i¹F¦¨
=--TEXT(EDATE(--(TEXT(A1,"0000-00")&"-01"),2),"yyyymm")

¤U¸ü (5.3 KB)

2013-6-27 13:45

lct

¦^´_ 2# stillfish00

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

lct

¦^´_ 4# Hsieh

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

Hsieh

¦^´_ 6# lct

¤Ä¿ï¤u¨ã/¼W¯q¶°/¤ÀªR¤u¨ã½c

ML089

¦^´_ 1# lct


A1 =201303
B1 =3
C1 =TEXT(DATE(LEFT(A1,4),RIGHT(A1,2)+B1,1),"yyyymm")