C# と VB.NET の質問掲示板
ASP.NET、C++/CLI、Java 何でもどうぞ
C# と VB.NET の入門サイト
【VBA】現在の日付から過去の日付を引く
掲示板トップ
C# と VB.NET 入門
新規作成
利用方法/規約
ツリー表示
トピック表示
ランキング
記事検索
過去ログ
[トピック内 6 記事 (1 - 6 表示)] <<
0
>>
■96815
/ inTopicNo.1)
【VBA】現在の日付から過去の日付を引く
▼
■
□投稿者/ 工場プログラマー
(54回)-(2021/02/16(Tue) 14:14:59)
分類:[Microsoft Office 全般]
2021/02/16(Tue) 14:16:39 編集(投稿者)
2021/02/16(Tue) 14:16:35 編集(投稿者)
win10 ExcelVBA
現在の日付からセル内に表示されている日付の差分を取得したいのですが
何かいい方法ありますか?
引用返信
編集キー/
編集
■96817
/ inTopicNo.2)
Re[1]: 【VBA】現在の日付から過去の日付を引く
▲
▼
■
□投稿者/ 魔界の仮面弁士
(2964回)-(2021/02/16(Tue) 14:56:59)
■
No96815
(工場プログラマー さん) に返信
> 現在の日付からセル内に表示されている日付の差分を取得したいのですが
今日は 2021/02/16 ですよね。
たとえば A1 セルに「2021/02/05」という日付が入っているとして、
B1 セルを数値書式にして、B1 に「=TODAY()-A1」と書いておけば、「11」という日数が得られます。
ワークシート関数ではなく VBA でということであれば、
Debug.Print DateDiff("d", [A1].Value, Date)
で「11」を得られます。
引用返信
編集キー/
編集
■96819
/ inTopicNo.3)
Re[1]: 【VBA】現在の日付から過去の日付を引く
▲
▼
■
□投稿者/ furu
(104回)-(2021/02/16(Tue) 15:05:27)
■
No96815
(工場プログラマー さん) に返信
> 現在の日付からセル内に表示されている日付の差分を取得したいのですが
> 何かいい方法ありますか?
引き算では駄目なの?
Range("B1").Value = Date - Range("A1").Value
引用返信
編集キー/
編集
■96822
/ inTopicNo.4)
Re[2]: 【VBA】現在の日付から過去の日付を引く
▲
▼
■
□投稿者/ 工場プログラマー
(55回)-(2021/02/16(Tue) 15:56:56)
■
No96817
(魔界の仮面弁士 さん) に返信
> ■
No96815
(工場プログラマー さん) に返信
>>現在の日付からセル内に表示されている日付の差分を取得したいのですが
>
> 今日は 2021/02/16 ですよね。
>
> たとえば A1 セルに「2021/02/05」という日付が入っているとして、
> B1 セルを数値書式にして、B1 に「=TODAY()-A1」と書いておけば、「11」という日数が得られます。
>
> ワークシート関数ではなく VBA でということであれば、
> Debug.Print DateDiff("d", [A1].Value, Date)
> で「11」を得られます。
年でもできますかね?
引用返信
編集キー/
編集
■96823
/ inTopicNo.5)
Re[3]: 【VBA】現在の日付から過去の日付を引く
▲
▼
■
□投稿者/ 魔界の仮面弁士
(2965回)-(2021/02/16(Tue) 16:47:38)
2021/02/16(Tue) 16:49:46 編集(投稿者)
■
No96822
(工場プログラマー さん) に返信
>> B1 セルを数値書式にして、B1 に「=TODAY()-A1」と書いておけば、「11」という日数が得られます。
> 年でもできますかね?
「=DATEDIF($A$1,TODAY(),"Y")」とすれば、経過年数を整数で得られます。
https://office-hack.com/excel/datedif/
VBA からは Evaluate メソッド経由で呼びだせます。
Debug.Print Application.Evaluate("DATEDIF($A$1, TODAY(), ""Y"")")
引用返信
編集キー/
編集
■96834
/ inTopicNo.6)
Re[4]: 【VBA】現在の日付から過去の日付を引く
▲
▼
■
□投稿者/ 工場プログラマー
(56回)-(2021/02/17(Wed) 16:47:02)
解決しました。
解決済み
引用返信
編集キー/
編集
このトピックをツリーで一括表示
トピック内ページ移動 / <<
0
>>
このトピックに書きこむ
入力内容にタグは利用できません。
他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
URL は自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
名前
(*必須)
E-Mail (任意)
Web サイト (任意)
投稿モード
通常モード
図表モード (ソースコードを貼る場合はこちらを使用)
本文
(質問の場合は、開発環境・使用言語のバージョンなどを最初に書いてください)
■No96819 (furu さん) に返信 > ■No96815 (工場プログラマー さん) に返信 >>現在の日付からセル内に表示されている日付の差分を取得したいのですが >>何かいい方法ありますか? > 引き算では駄目なの? > > Range("B1").Value = Date - Range("A1").Value
編集キー
自分の投稿を編集する時に必要です
(半角8文字以内)
解決済み
/
解決したらチェックしておきましょう。
プレビュー/
管理者用
-
Child Tree
-