質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.93%

入力したデータにより条件を変更したい

解決済

回答 2

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 147

Umeda2019

score 11

下記の通り、入力したデータ(今回は日付)を条件式に反映したいです。
Visual Studio 2019。

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '処理する日付をセット
        Dim 伝票日付 = DateTime.Now
        Me.伝票日付.Text = Date.Now
        Me.KeyPreview = True
        AddHandler Me.伝票日付.Enter, AddressOf TextBoxes_Enter

    End Sub


処理を起動した際に「伝票日付」に今日の日付が入ります。
次に、

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim 伝票日付 As Date
        伝票日付 = Date.Parse(伝票日付)
        Dim 基準日1 As New DateTime(2019, 9, 30)

        If A.Checked = True Then
            If 伝票日付 <= 基準日1 Then
                表示項目.Text = "S4"
            End If
            If 伝票日付 > 基準日1 Then
                表示項目.Text = "S5"
            End If
        End If
        If B.Checked = True Then
            If 伝票日付 <= 基準日1 Then
                表示項目.Text = "Q4"
            ElseIf 伝票日付 > 基準日1 Then
                表示項目.Text = "Q5"
            End If
        End If

    End Sub


「GroupBox」はAとBの二つで構成しています。
「基準日1」は2019年9月30日で固定です。
「A」をチェックしてボタンをクリックすると、「表示項目」には「S5」が表示されます。「B」の場合は「Q5」です。
ところが「伝票日付」に別の日付(例えば2000年10月1日)を入力しても、「S4」や「Q4」とは表示されません。
どのようにすればよろしいでしょうか。

YAmaGNZさん、再度の回答ありがとうございます。
で、変数名を「伝票日付」から「a伝票日付」に変更したところエラーメッセージが出ました。

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim abc As Date
        abc = Date.Parse(abc)
        Dim 基準日1 As New DateTime(2019, 9, 30)

        If 営業部門.Checked = True Then
            If abc <= 基準日1 Then
                表示項目.Text = "S4"
            End If
            If abc > 基準日1 Then
                表示項目.Text = "S5"
            End If
        End If
        If 管理部門.Checked = True Then
            If abc <= 基準日1 Then
                表示項目.Text = "Q4"
            ElseIf abc > 基準日1 Then
                表示項目.Text = "Q5"
            End If
        End If

    End Sub


すみません、以下の部分はいったん削除します。
ここから、
エラーメッセージは、「BC30311」で、「型’MaskedTextBox’の値を’String'に変換できません。」というものでした。
「伝票日付」はTextBoxではなく、MaskedTextBoxでした。「Date.Parse(伝票日付)」ではDate型に変換できないということでしょうか。
ここまで。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • Umeda2019

    2020/07/10 17:01

    回答ありがとうございます。
    質問の方に追記しています。

    キャンセル

  • YAmaGNZ

    2020/07/10 17:02

    MaskedTextBoxの伝票日付に対して本日を代入している時はどうしていますか?
    では、MaskedTextBoxにあるテキストを取り出すときは?

    キャンセル

  • Umeda2019

    2020/07/10 17:45

    手を煩わせています。
    質問のコード(上段のものです)に記載漏れがありましたので、2行追加しました。
    合わせて追記したコード(最下段のものです)の変数名を「abc」としました。

    記載漏れの部分に問題があるかもしれません。

    キャンセル

回答 2

checkベストアンサー

0

Date.Parseの使い方を理解されていないようです。
Date.Parseは引数に指定した文字列をDate型に変換するためのものです。

Dim abc As Date
abc = Date.Parse(abc)


Date.Parseは引数に初期化していないDate型変数(値はDate.MinValue)を引数とすると当日の0:0:0を返します。
この為、比較は必ず当日で行われることになります。

Date.Parseの引数には伝票日付のテキストを渡してやる必要があります。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2020/07/13 10:32

    回答ありがとうございます。
    ご指摘の通りでした。

    キャンセル

0

以下の通りコードを修正しました。

Dim abc As Date
abc = Date.Parse(s:=伝票日付.Text)


これで狙い通りの動きとなりました。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2020/07/13 10:43

    わざわざ名前付き引数での呼び出しではなく
    abc = Date.Parse(伝票日付.Text)
    でいいと思います。(コーディング規約等で定められているのであれば別ですが)

    キャンセル

  • 2020/07/13 10:58

    ありがとうございます。
    そうですね。最初はそのように記載したのですが、visual studioでガイドが出ましたのでそのまま変更してしまいました。
    問題なく動きますので、ご指摘の通りに再度書き換えました。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.93%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る