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 >>

このトピックに書きこむ