Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


14885 / 76734 ←次へ | 前へ→

【67337】Re:日付データへの変換について
お礼  八家九僧陀  - 10/11/25(木) 20:42 -

引用なし
パスワード
   ▼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関数は今まで全く使ったことがないのですが、ご教示いただいたコードにも使われていますが、向後の勉強のため、その使用意図、効用を教えていただけませんか?
0 hits

【67333】日付データへの変換について 八家九僧陀 10/11/25(木) 18:24 質問
【67335】Re:日付データへの変換について Hirofumi 10/11/25(木) 19:23 回答
【67337】Re:日付データへの変換について 八家九僧陀 10/11/25(木) 20:42 お礼
【67340】Re:日付データへの変換について Hirofumi 10/11/26(金) 8:53 回答
【67347】Re:日付データへの変換について 八家九僧陀 10/11/27(土) 0:39 お礼

14885 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free