表單的2個TextBox同步加總

man65boy

請教各位老師們如何在表單裡的TextBox2輸入年.月.日(2012/07/20)，在Label1的日期(年.月.日)除了要保有與TextBox1的年加總外，還要跟TextBox2的日期作同步的加總變動。
20120720.rar (88.89 KB)

下載次數: 15

2012-7-20 23:44

麻煩各位先師們指教，謝謝!

man65boy

回復 4# Hsieh


    感謝老師的精細的回答，不材小弟已知該如何應用了，謝謝你!

Hsieh

回復 3# man65boy

1. Private Sub TextBox2_Change()
   
2. If IsDate(TextBox2) Then
   
3. Label1.Caption = DateAdd("yyyy", Val(TextBox1), CDate(TextBox2)) - 1'標籤日期為TextBox2加上TextBox1年的前一天
   
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加上TextBox1年的前一天
    
14. End Sub

複製代碼

man65boy

回復 2# kimbal
感謝老師的回答，真是太妙了!
再請問老師，Label1的mm(日)要減一天，要如何下手，
還有如何讓TextBox2.Text = Format(Date, "yyyy/mm/dd")在顯現後隨意更改 年or月or日
不要跑出"型態不符合"
再次地感謝老師的回答。

kimbal

請教各位老師們如何在表單裡的TextBox2輸入年.月.日(2012/07/20)，在Label1的日期(年.月.日)除了要保有與Te ...
man65boy 發表於 2012-7-20 23:46

6 / 10 兩行是一樣的
以防日月反轉,用了dateserial
舊的TextBox1_Change方法, 2/29日是會有問題的,我一併改了.

1. Private Sub UserForm_Initialize()
   
2.     Label1 = Format(Date, "yyyy/mm/dd")
   
3.     TextBox2.Text = Format(Date, "yyyy/mm/dd")
   
4. End Sub
   
5. Private Sub TextBox1_Change()
   
6.     Label1 = Format(DateSerial(Left(TextBox2, 4) + IIf(Val(TextBox1) <> 0, Val(TextBox1), 0), Mid(TextBox2, 6, 2), Right(TextBox2, 2)), "yyyy/mm/dd")
   
7. End Sub
   
8. Private Sub TextBox2_Change()
   
9.     If IsDate(TextBox2) Then
   
10.         Label1 = Format(DateSerial(Left(TextBox2, 4) + IIf(Val(TextBox1) > 0, Val(TextBox1), 0), Mid(TextBox2, 6, 2), Right(TextBox2, 2)), "yyyy/mm/dd")
    
11.     End If
    
12. End Sub

複製代碼