|
年末調整事務用のVBAを作成しています。
生年月日により、特定扶養控除対象者、老人等、年齢要件により控除額が決定されるものがあります。
扶養情報のFormで、生年月日を入力して、その生年月日により、年齢要件を自動で判定したいのですが、日付データとしての取得方法がわかりません。
combo元号、text年、text月、text日を連結して日付データとして、sheet1.range("A1")の日付と比較して、"老人","一般"と判定するVBAをご教示ください。
例:昭和16年1月1日以前に生まれた人は「老人」です。
combo元号=[S]、text年=[10]、text月=[4]、text日=[5]と入力した場合
Sub 判定()
Dim Birthday As Date
Birthday = combo元号.value & val(text年.value) & "/" & val(text月.value) & "/" & val(text日.value)
MsgBox ”Birthday”→”35/04/05”と表示しました
If Birthday <= range("A1").value Then
'A1には「S16.1.1」の日付データが入っています。
MsgBox ”老人”
else
MsgBox ”一般”→”老人”のはずが”一般”と表示されました
end if
end sub
この程度のことがわからず、年末調整のVBAを組むなどお恥ずかしいかぎりですが、素人なりに何とかがんばりたいと考えています。
どなたかご教示お願いします。
|
|