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ランキング
-
PictureBoxでのアニメーション...
-
VBによる回帰直線のプログラム
-
他のフォームから別のフォーム...
-
ClickとChangeイベントの違いは...
-
C言語のサフィックスについて
-
【VB.NET】テキストボックスに...
-
プログラムの素朴な質問です 分...
-
sublimit textっていうエディタ...
-
演奏記号の・・・・
-
Functionの戻り値を配列にした...
-
アクセスできない保護レベルエ...
-
VB.NETでのイベントの途中終了
-
visual basic初心者です。 visu...
-
Vba 電卓のテキストボックスに...
-
VBA public変数はどのようなこ...
-
文字列を日付型情報として計算...
-
パーソナルXLSBのfuctionを呼び...
-
プロシージャを呼び出したプロ...
-
三項でたとえば交換って
-
VBでの入力値制限について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SavePictureで保存できない
-
文字間の幅の設定
-
Matlabでsin波を使って矩形波を...
-
ボールが壁に当たって跳ね返る...
-
FlexGridで文字色を変更。
-
[ASP]小数点第2位以下をカット!
-
C言語のOpenGLで複数のテクスチ...
-
VB6 ドラッグ&ドロップ
-
ピッ、ってアルファベットでど...
-
もぐらたたきのプログラミング
-
PictureBoxでのアニメーション...
-
グラフィックの表示について VB6
-
(VB)ピクチャボックスに表示し...
-
ホンテットマンションに乗った...
-
SCALEの使い方教えてください
-
VB6でマウスのドラッグで範囲を...
-
一次元静電粒子コードについて...
-
日付の計算
-
画像処理
-
sublimit textっていうエディタ...
おすすめ情報