引数での日付データを加工して、変換させたいのですがエラー("String型からData型への変換は無効です。")がでます。
対処方法をアドバイスいただけないでしょうか?
コードを下記に示します。
VS 2010を使用しています。
Dim From As Long
Dim Year As Integer
Dim Month As Integer
Dim Day As Integer
From = CLng(Format(DateAdd("d", 1, DateAdd("m", -1, CDate(CStr(Year) & "/" & CStr(Month) & "/" & CStr(Day)))), "yyyyMMdd"))
No.2ベストアンサー
- 回答日時:
本当にこの通りのソースですか?
ならば、Year もMonth もDay も、値が設定されていないので、0になる。
なので、
CDate(CStr(Year) & "/" & CStr(Month) & "/" & CStr(Day))は
CDate("0/0/0")となり、これは日付として存在しないのでエラーでしょう。
ところで、Year 、Month 、Day といった関数と同じ名前を変数に使うべきではありません。
ソースを見たときに混乱しますよ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 【VBA】先月分の取得ができない理由が分かりません。 2 2022/04/24 11:16
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Access(アクセス) アクセス 有効なフィールド名、または式として認識できませんのエラー 3 2022/08/19 11:53
- Visual Basic(VBA) Sheet2の日付をキーにオートフィルターで2023年1月のデータを抽出し、Sheet3へ書き出すた 2 2023/03/06 23:57
- Visual Basic(VBA) ExcelのVBAでシフト表を作っていますが、バグが出て困っています 2 2022/09/13 11:33
- Visual Basic(VBA) 【再投稿】VBAのシフト表でバグが出て困っています 3 2022/09/24 08:29
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) 今日の日付が過ぎたらその行を削除したい 1 2023/04/01 20:06
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
String"から型'Double'への変換は無効です。 とエラーが出ます。
Visual Basic(VBA)
-
VBのReturnの使い方
Visual Basic(VBA)
-
演算子が DBnull 及び integerに対して有効でない
Visual Basic(VBA)
-
-
4
SQL文がDouble型として認識される
Visual Basic(VBA)
-
5
VB.NET DateTimeの型について
Visual Basic(VBA)
-
6
【VB.NET】App.configにファイルパスを設定して読み込みたい
Microsoft ASP
-
7
VB.net 重複チェックがしたいです
Visual Basic(VBA)
-
8
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
9
Oracle 2つのDate型の値の差を「分」で取得したい
その他(データベース)
-
10
カンマの含まれる文字列の数値変換方法について
Visual Basic(VBA)
-
11
【VB】コンボボックスにデータベースから取り出した値を入れたい
Visual Basic(VBA)
-
12
プロシージャまたは関数の引数が多すぎますのエラー
Visual Basic(VBA)
-
13
FriendとPublicの違い。。。
Visual Basic(VBA)
-
14
VB.NETで他のプロジェクトで作成したフォームを使う方法
Visual Basic(VBA)
-
15
VB.NETでコンボボックスの1行目を空白にしたい
Visual Basic(VBA)
-
16
CloseとDisposeの違い
Visual Basic(VBA)
-
17
VB.NET getとsetの概念がわかりません。
Visual Basic(VBA)
-
18
VB.NET2005 TextBox 高さ(Height) 変更
Visual Basic(VBA)
-
19
データベースのデータをTextBoxに入力された値で検索しDataGridViewに表示する方法
Visual Basic(VBA)
-
20
フォームの再読み込み
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
ACCESS VBAのSplit()関数の使用...
-
String""から型'Double'への変...
-
LaTeXのエラーについて(コンパ...
-
マクロの「SaveAs」でエラーが...
-
WindowsでのPythonの挙動について
-
実行時エラー 438 の解決策をお...
-
ApplicationとWorksheetFunctio...
-
エクセル関数を教えてください
-
【VBA】ワークブックを開く時に...
-
Python openpyxlを使用したセル...
-
VBA データ(特定値)のある最...
-
ACCESSで値を代入できないとは?
-
VBAでのファイル読込エラー...
-
演算子が DBnull 及び integer...
-
エクセルVBA 「On Error GoTo...
-
UBoundに配列がありませんとエ...
-
アクセスのデータ型えらーについて
-
VBAでfunctionを利用しようとし...
-
エクセルVBAで埋め込みグラフ(C...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
VBAでfunctionを利用しようとし...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
マクロで"#N/A"のエラー行を削...
-
On ErrorでエラーNoが0
-
エクセルVBA 「On Error GoTo...
-
VBA データ(特定値)のある最...
-
実行時エラー'-2147467259(8000...
-
【VBA】ワークブックを開く時に...
-
VBでSQL文のUPDATE構文を使った...
-
ACCESSで値を代入できないとは?
-
マクロの「SaveAs」でエラーが...
-
Excel vbaについての質問
-
インポート時のエラー「データ...
-
Filter関数を用いた結果、何も...
-
「実行時エラー '3167' レコー...
-
バッチファイルで、あるスクリ...
おすすめ情報