- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
¥»©«³Ì«á¥Ñ kimbal ©ó 2012-7-21 00:30 ½s¿è
½Ð±Ð¦U¦ì¦Ñ®v̦p¦ó¦bªí³æ¸ÌªºTextBox2¿é¤J¦~.¤ë.¤é(2012/07/20)¡A¦bLabel1ªº¤é´Á(¦~.¤ë.¤é)°£¤Fn«O¦³»PTe ...
man65boy µoªí©ó 2012-7-20 23:46
6 / 10 ¨â¦æ¬O¤@¼Ëªº
¥H¨¾¤é¤ë¤ÏÂà,¥Î¤Fdateserial
ªºTextBox1_Change¤èªk, 2/29¤é¬O·|¦³°ÝÃDªº,§Ú¤@¨Ö§ï¤F.- Private Sub UserForm_Initialize()
- Label1 = Format(Date, "yyyy/mm/dd")
- TextBox2.Text = Format(Date, "yyyy/mm/dd")
- End Sub
- Private Sub TextBox1_Change()
- Label1 = Format(DateSerial(Left(TextBox2, 4) + IIf(Val(TextBox1) <> 0, Val(TextBox1), 0), Mid(TextBox2, 6, 2), Right(TextBox2, 2)), "yyyy/mm/dd")
- End Sub
- Private Sub TextBox2_Change()
- If IsDate(TextBox2) Then
- Label1 = Format(DateSerial(Left(TextBox2, 4) + IIf(Val(TextBox1) > 0, Val(TextBox1), 0), Mid(TextBox2, 6, 2), Right(TextBox2, 2)), "yyyy/mm/dd")
- End If
- End Sub
½Æ»s¥N½X |
|