![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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ランキング
-
マウスポインタの変更
-
零元のはいっている
-
subsequentとnextの違いってな...
-
他のフォームから別のフォーム...
-
テキストボックスかラベル上の...
-
Excel VBAでsub,dimは何の略?
-
演奏記号の・・・・
-
2次元配列のデータをファイルへ...
-
xmlの値を配列に格納したいんで...
-
xmlの値を配列変数に格納し...
-
アクセスのフィールドに値をペ...
-
サブドメインのindexはSEO的に...
-
texで図と表を並べたい
-
4変数の非線形方程式のときかた
-
Excel ユーザーフォームで計算 ...
-
パーソナルXLSBのfuctionを呼び...
-
チェックボックスを操作できな...
-
C言語のサフィックスについて
-
visual basic初心者です。 visu...
-
文字列を繰り返して表示する VBA
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マウスポインタの変更
-
Matlabでsin波を使って矩形波を...
-
SavePictureで保存できない
-
FlexGridで文字色を変更。
-
(VB)ピクチャボックスに表示し...
-
ボールが壁に当たって跳ね返る...
-
画像処理について。(移動)
-
画像処理
-
画像をランダムに表示させたい...
-
VBによる回帰直線のプログラム
-
VBでbmpのビットを抜出す
-
SCALEの使い方教えてください
-
Matlab/SimulinkのChirp信号に...
-
PictureBoxでのアニメーション...
-
リソースファイルの選択
-
画像ファイルの高さと幅の取得
-
Picture box の サイズを変更
-
picture boxの画像をimageに上...
-
BMPファイルを作成し保存
-
日付の計算
おすすめ情報