掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
datetimepickerから月日だけを取得 (ID:146670)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> 良い方法が思い浮かばず投稿させていただいております 何を以て「良い方法」なのかにもよりますが、 Year と Month が分かれば、それで十分では無いでしょうか? > 月と日は取れますがそれらを総合的に取り出して 「総合的に取り出す」の意味が分かりかねますが、Year と Month が分かるなら、 それを MMDD 形式の文字列なり数値なりに置き換えてみては如何でしょうか。 Private Sub DateTimePicker1_ValueChanged() Handles DateTimePicker1.ValueChanged Dim dt As Date = DateTimePicker1.Value Dim YM As Integer = dt.Month * 100 + dt.Day Select Case YM Case Is <= 119 : Label1.Text = "山羊座" Case Is <= 218 : Label1.Text = "水瓶座" Case Is <= 320 : Label1.Text = "魚座" Case Is <= 419 : Label1.Text = "牡羊座" Case Is <= 520 : Label1.Text = "牡牛座" Case Is <= 621 : Label1.Text = "双子座" Case Is <= 722 : Label1.Text = "蟹座" Case Is <= 822 : Label1.Text = "獅子座" Case Is <= 922 : Label1.Text = "乙女座" Case Is <= 1023 : Label1.Text = "天秤座" Case Is <= 1121 : Label1.Text = "蠍座" Case Is <= 1221 : Label1.Text = "射手座" Case Else : Label1.Text = "山羊座" End Select End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.