No.1ベストアンサー
- 回答日時:
'Form1にテキストボックスを二つ、コマンドボタンをひとつ貼り付けて実行してみてください。
Private Sub Command1_Click()
Dim dtDate1 As Date, dtDate2 As Date, lngDiffDate As Long
dtDate1 = CDate(Form1.Text1)
dtDate2 = CDate(Form1.Text2)
lngDiffDate = DateDiff("d", dtDate1, dtDate2)
MsgBox lngDiffDate & " 日です。"
End Sub
'以上
No.3
- 回答日時:
例として
Sub tst02()
a = "020324"
t1 = Format(a, "00/00/00")
t2 = CDate(t1)
MsgBox t2
b = "020314"
t3 = Format(b, "00/00/00")
t4 = CDate(t3)
MsgBox t4
ret = DateDiff("d", t4, t2)
MsgBox ret
End Sub
結果は10
ーー
VB6でやってみて、CDateで日付化できませんか。
出来れば2つの文字列を日付化しDateDiffで引き算する。
No.2
- 回答日時:
'No.1です。
YYMMDD形式を忘れていました。'以下の通り修正してください。
Private Sub Command1_Click()
Dim dtDate1 As Date, dtDate2 As Date, lngDiffDate As Long
Dim stryear1 As String, strMonth1 As String, strDay1 As String
Dim stryear2 As String, strMonth2 As String, strDay2 As String
With Form1
stryear1 = "20" & Mid(.Text1, 1, 2)
strMonth1 = Mid(.Text1, 3, 2)
strDay1 = Mid(.Text1, 5, 2)
stryear2 = "20" & Mid(.Text2, 1, 2)
strMonth2 = Mid(.Text2, 3, 2)
strDay2 = Mid(.Text2, 5, 2)
End With
dtDate1 = CDate(stryear1 & "/" & strMonth1 & "/" & strDay1)
dtDate2 = CDate(stryear2 & "/" & strMonth2 & "/" & strDay2)
lngDiffDate = DateDiff("d", dtDate1, dtDate2)
MsgBox lngDiffDate & " 日です。"
End Sub
'以上
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- HTML・CSS CSS上での計算を行うためのルールについて教えてください。 3 2022/08/15 14:43
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Excel(エクセル) セルに特定の色が出た時だけ、式を発動させたい 4 2022/06/17 10:32
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Visual Basic(VBA) vbaで条件付き書式を設定したときの適用範囲について 1 2023/07/17 23:14
- 高校 日本の高校の卒業までに必要な単位について。 調べると、3年間で74単位とあるのですが、この74単位と 3 2023/08/25 11:18
- Excel(エクセル) エクセル/列追加時、合計行の計算式 7 2023/03/15 11:14
- その他(IT・Webサービス) 見たことのない形式で日付が表示されているのでそれを解析してほしい 3 2023/01/23 16:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ASPで日付(期間)検索
-
【VB6.0】 あるフォームから他...
-
C#のループでtextboxに値を入れ...
-
二点の座標から距離や角度を求...
-
VB.NETでのイベントの途中終了
-
エクセルVBAでテキストボッ...
-
C言語のサフィックスについて
-
VBAでcallで呼び出したsubを終...
-
他のフォームから別のフォーム...
-
pthread_cond_waitとptherad_co...
-
VC++ (byte)(col & 0xFF) の意味
-
Pythonでのstrip()とsplit()の...
-
perlによるxmlファイルの取得
-
sublimit textっていうエディタ...
-
レコードセットにnullの場合
-
C言語で10行10列の行列式の値を...
-
タイムアウトする仕組みを作りたい
-
String型の値にスラッシュをつ...
-
アクセスできない保護レベルエ...
-
VBA public変数はどのようなこ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SavePictureで保存できない
-
ボールが壁に当たって跳ね返る...
-
Matlabでsin波を使って矩形波を...
-
PictureBoxでのアニメーション...
-
Matlab/SimulinkのChirp信号に...
-
FlexGridで文字色を変更。
-
ピッ、ってアルファベットでど...
-
SCALEの使い方教えてください
-
プログレスバーに似たコントロ...
-
Picture box の サイズを変更
-
(VB)ピクチャボックスに表示し...
-
画像をランダムに表示させたい...
-
ペイントソフトの作成方法
-
ピクチャーボックスの画像を印...
-
C言語のOpenGLで複数のテクスチ...
-
VBによる回帰直線のプログラム
-
文字間の幅の設定
-
画像処理
-
三項でたとえば交換って
-
VBA public変数はどのようなこ...
おすすめ情報