man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-7-20 23:46 | 只看該作者

表單的2個TextBox同步加總

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

20120720.rar (88.89 KB)

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

樓主熱帖

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2012-7-21 00:28 | 只看該作者

本帖最後由 kimbal 於 2012-7-21 00:30 編輯

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

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

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

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

3^#

發表於 2012-7-21 07:34 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 258
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-28

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2012-7-21 08:47 | 只看該作者

回復 3# man65boy

Private Sub TextBox2_Change()
If IsDate(TextBox2) Then
Label1.Caption = DateAdd("yyyy", Val(TextBox1), CDate(TextBox2)) - 1'標籤日期為TextBox2加上TextBox1年的前一天
End If
End Sub
Private Sub UserForm_Initialize()'起動表單自動顯示當天日期
TextBox2.Text = Format(Date, "yyyy/mm/dd")
myday = Format(Date, "yyyy")
Label1 = myday
End Sub
Private Sub TextBox1_Change()
Label1.Caption = DateAdd("yyyy", Val(TextBox1), CDate(TextBox2)) - 1'標籤日期為TextBox2加上TextBox1年的前一天
End Sub

複製代碼

學海無涯_不恥下問

TOP

man65boy

中學生 Rank: 2

帖子: 169
主題: 39
精華: 0
積分: 252
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-4-17
最後登錄: 2020-7-17

2012龍年全勤獎章 2011兔年全勤獎章

5^#

發表於 2012-7-22 07:41 | 只看該作者

回復 4# Hsieh

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

TOP