Excel VBA質問箱 IV

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

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


14891 / 76738 ←次へ | 前へ→

【67335】Re:日付データへの変換について
回答  Hirofumi  - 10/11/25(木) 19:23 -

引用なし
パスワード
   これでは?


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
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 お礼

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