Hsieh

¦^´_ 3# man65boy

1. Private Sub TextBox2_Change()
   
2. If IsDate(TextBox2) Then
   
3. Label1.Caption = DateAdd("yyyy", Val(TextBox1), CDate(TextBox2)) - 1'¼ÐÅÒ¤é´Á¬°TextBox2¥[¤WTextBox1¦~ªº«e¤@¤Ñ
   
4. End If
   
5. End Sub
   
6. 
   
7. Private Sub UserForm_Initialize()'°_°Êªí³æ¦Û°ÊÅã¥Ü·í¤Ñ¤é´Á
   
8. TextBox2.Text = Format(Date, "yyyy/mm/dd")
   
9.     myday = Format(Date, "yyyy")
   
10.     Label1 = myday
    
11. End Sub
    
12. Private Sub TextBox1_Change()
    
13. Label1.Caption = DateAdd("yyyy", Val(TextBox1), CDate(TextBox2)) - 1'¼ÐÅÒ¤é´Á¬°TextBox2¥[¤WTextBox1¦~ªº«e¤@¤Ñ
    
14. End Sub

½Æ»s¥N½X