SQLserverのdate型データとVBで取得した日付を比較したいです。

Question

初級者です。ASP.NET Webフォームアプリに関する質問です。初歩的なことですが、よろしくお願いします。

※OSはWindows7、.NET Framework4、Visual Stdio 2010、SQLserver2012、IE11を利用しています。

テーブルからdate型のデータを（SQLserver2012を使用）取得し、
VB側の構文「Dim dtToday As DateTime = Date.Today」で取得した日付と比較、
同日なら処理Aを、日付が異なるなら処理Bを実行するようコードを記述したいと考えています。
（質問用に処理A、Bはラベルコントロールにメッセージを表示させるのみとしています）

＜テーブルの内容＞

※特定のFacilityIDの日付が最新のレコードを参照して"date"だけを取得します。
現在の格納内容でいえば、取得されるべきは「valueID」が「6」のレコードの「2016-09-08」の部分。
（SQL構文で「FacilityID」を「1」と指定した場合）

＜テーブルの構成＞
]

現在のコードでは、双方で取得された日付が異なった場合の処理Bが実行されている状態にあります。

こちら（date (Transact-SQL)）に多少目を通しながらコードを記述してみたのですが、やはりSQLserverに格納されているデータの型や記述方式と、VB側で取得する日付の記述方式が異なる、といったような点が原因なのでしょうか。

※DateDiff 関数というものがあると別方面で教えていただきました。
そちらを利用したコードだとどのように書けばよいのかも教えていただけるとありがたいです。

Imports System.Data.SqlClient

Partial Class dateGet_test
    Inherits System.Web.UI.Page

    Protected Sub dateTestGo_Btn_Click(sender As Object, e As System.EventArgs) Handles dateTestGo_Btn.Click

        Dim day As String = GetDate()

        Dim dtToday As DateTime = Date.Today

        If day Like dtToday.ToString() Then
            LblMsg.Text = "今日のデータはすでに格納されています"
        Else
            LblMsg.Text = "大丈夫！"
        End If

    End Sub

    'データベースから日付(date型データ)を取得する関数
    Private Function GetDate() As String

        Dim ret As String = ""

        Dim cnStr As String = System.Configuration.ConfigurationManager.
            ConnectionStrings("○○○○○○ConnectionString").ConnectionString

        Using connection As New SqlConnection(cnStr)

            Dim SQL As String
            SQL = "SELECT date" &
                 " from tbl_valueTest as A" &
                 " WHERE Exists(SELECT * from tbl_valueTest" &
                 " group by FacilityID" &
                 " having FacilityID = A.FacilityID and MAX(date) = A.date)" &
                 " and FacilityID = 1 "

            Dim command As New SqlCommand(SQL, connection)

            Try

                connection.Open()

                Dim result As String = ""
                result = command.ExecuteScalar()

                If result IsNot "" Then ret = CStr(result)

                connection.Close()

            Catch ex As Exception

            End Try

        End Using

        Return ret

    End Function
End Class

Answer 1

日付データはDate型で扱う方が何かと楽です。
String型からDate型へ変換する場合は、Date.Parseメソッドが使えます。
(詳しくはリファレンスを調べてください)

Date.Compareメソッドで、Date型同士の比較ができます。
(これも詳しくはリファレンスを調べてください)

上記を踏まえてコードを修正すると以下のようになると思います。

Dim day As String = GetDate()

Dim dtToday As DateTime = Date.Today

If Date.Compare(Date.Parse(day), dtToday) = 0 Then
    LblMsg.Text = "今日のデータはすでに格納されています"
Else
    LblMsg.Text = "大丈夫！"
End If

※そもそも、パース失敗したときの例外処理等も考えると、
GetDateメソッドはDate型を返却するようにした方がよいかもしれません。

Comments

[taketake221]

ご回答いただきありがとうございます。
丁寧にまとめていただいているのですごくわかりやすいです。

ご提示いただいたコードをもとに、GetDateがdate型で返すように改編してみましたが、正しい結果が得られました。

初級者ゆえ、コードを記述しても例外処理等を踏まえたより適切なコードでない場合が多いですが、ご指摘いただいているような点も注視していきたいと考えています。

ベストアンサーは先に回答いただいた方につけさせてください。申し訳ありません。

Answer 2

間違っていたら、ごめんなさい！
テーブルの内容を見ると、DATEカラムの日付がハイフン付となっているので、
IF判定時に、toStringで"yyyy-MM-dd"とハイフン付に変換してあげれば良いのではないでしょうか？

        Dim dtToday As DateTime = Date.Today

        If day Like dtToday.ToString("yyyy-MM-dd") Then
            LblMsg.Text = "今日のデータはすでに格納されています" '処理A
        Else
            LblMsg.Text = "大丈夫！" '処理B
        End If

Comments

[taketake221]

ご回答いただきありがとうございます。

試してみましたが、正しく実行されませんね・・・。
（求める動作は「LblMsg.Text = "今日のデータはすでに格納されています"」なんですが、変わらず処理Bの方が実行されたままです。）

[seesaajira-]

Dim day As String = GetDate()
のdayには、何が返ってきていますか？

GetDate関数内の

If result IsNot "" Then ret = CInt(result)
で数値変換しているのが、気になります。

[taketake221]

迅速な返信をありがとうございます。
ご指摘の If result IsNot "" Then ret = CInt(result) について、
「If result IsNot "" Then ret = CStr(result)」と修正してチェックしてみると、
「If day Like dtToday.ToString() Then」の時点で
day "2016/09/08" String
dtToday #9/8/2016# Date
となっていました。
データ型の変換が不十分なんでしょうか・・・。

[seesaajira-]

If day Like dtToday.ToShortDateString() Then
で試してみて下さい。

[taketake221]

たびたびお世話になります。
ご提示いただいたコードを分岐構文のところに当てはめて実行してみると、
処理A（つまり、データベースのdate型データとVB側で取得した日付が一致したので）が実行されました。

丁寧に記述いただきありがとうございます！