|
▼Hirofumi さん:
>これでは?
>
>
>Sub 判定()
>
> Dim Birthday As Date
>
> Birthday = DateValue(combo元号.Value & Trim(text年.Value) & "/" _
> & Trim(text月.Value) & "/" _
> & Trim(text日.Value))
>
> MsgBox Birthday '→”35/04/05”と表示しました
>
> If Birthday <= Range("A1").Value Then
> 'A1には「S16.1.1」の日付データが入っています。
> MsgBox "老人"
> Else
> MsgBox "一般" '→”老人”のはずが”一般”と表示されました
> End If
>
>End Sub
判定できました。ありがとうございます。
Datevalueでちゃんと日付データとして取得していなかったということですね。
ところで、Trim関数は今まで全く使ったことがないのですが、ご教示いただいたコードにも使われていますが、向後の勉強のため、その使用意図、効用を教えていただけませんか?
|
|