掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
式中の型が一致しません (ID:25002)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
なんか、試されているSQL分 めちゃくちゃになってますよ。 デバッガでとめて内容を確認するようにしないと、コードの問題か コードの入力ミスの問題か識別できていないのではないでしょうか？ フォームにEdit1,2 ボタンをクリック時 Edit1の年とEdit2の月を使って開始・終了日付を求めています。 （Editの入力内容は未チェックですよ） procedure TForm1.Button1Click(Sender: TObject); Var From_ymd : TDate; // 開始日付 To_ymd : TDate; // 終了日付 begin // Edit1には、指定年 Edit2には指定月を入力している // 月初め From_ymd := StrToDate(Edit1.Text + '/' + Edit2.Text + '/01'); // 月末=月初めに1月足して-1日する To_ymd := IncDay(IncMonth(From_ymd,1),-1) ; MessageDlg('開始日付:'+FormatDatetime('yyyy/mm/dd',From_ymd) + #13 + '終了日付:'+FormatDatetime('yyyy/mm/dd',To_ymd), mtInformation, [mbOK], 0); MessageDlg('SQL開始日付:'+FormatDatetime('mm/dd/yyyy',From_ymd) + #13 + 'SQL終了日付:'+FormatDatetime('mm/dd/yyyy',To_ymd), mtInformation, [mbOK], 0); end; SQL分に埋め込む場合は、FormatDatetime('mm/dd/yyyy',To_ymd)を お使いになるといいです。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.