パソコン仕事5倍塾
35,000人を指導した東大卒・元日本IBM社内講師が直伝
MENU
rozario980さんの投稿
(投稿ID: 4471)
小川慶一さんのコメント
(コメントID: 6165)
Sub DateValueSample() Dim dt As Date dt = #12:00:00 AM# '日付の初期値 Debug.Print CDbl(dt) dt = #4/23/2019# 'このコードを書いている日 Debug.Print CDbl(dt) dt = #4/23/2019 6:00:00 AM# 'このコードを書いている日の午前6時 Debug.Print CDbl(dt) dt = #4/23/2019 6:00:00 PM# 'このコードを書いている日の午後6時 Debug.Print CDbl(dt) dt = #4/23/2019# 'このコードを書いている日 dt = dt + 3 'このコードを書いている日の3日後 Debug.Print CDbl(dt) End Sub
rozario980さんのコメント
(コメントID: 6166)
Sub DateValueSample() > Dim dt As Date > dt = #12:00:00 AM# '日付の初期値 > Debug.Print CDbl(dt) > > dt = #4/23/2019# 'このコードを書いている日 > Debug.Print CDbl(dt) > > dt = #4/23/2019 6:00:00 AM# 'このコードを書いている日の午前6時 > Debug.Print CDbl(dt) > > dt = #4/23/2019 6:00:00 PM# 'このコードを書いている日の午後6時 > Debug.Print CDbl(dt) > > dt = #4/23/2019# 'このコードを書いている日 > dt = dt + 3 'このコードを書いている日の3日後 > Debug.Print CDbl(dt) > End Sub
たった1ヶ月で人生が劇的に変わりました
佐藤信さん
役員クラスの方から高い評価を受けるようになりました。
佐賀県 - 岩本徹さん
今までまったく知らなかったショートカットキーを使いまくっています。
東京都 - 鷹觜慶さん
年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。
東京都 - 宗内隆明さん
受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。
東京都 - 佐伯とも子さん
ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした
東京都 - 飯田倫子さん
2024年05月05日 07:10
2024年05月01日 14:04
2024年04月30日 17:13
2024年04月27日 15:36
2024年04月25日 07:00
2024年05月05日 09:45
2024年05月01日 18:39
2024年05月01日 18:17
2024年05月01日 17:47
2024年05月01日 15:18
2022年02月24日 10:59
2019年12月23日 05:57
2019年09月20日 12:29
表示できる投稿はありません。
この学習サイトの教材制作、サポート、システム開発をすべてやっています。
2022年02月02日 00:00
2022年02月02日 03:00
2022年02月02日 06:00
2022年02月02日 09:00
2022年02月02日 12:00
2024年02月15日 18:30
2024年02月09日 17:05
2024年01月19日 13:00
2023年12月31日 17:00
2023年12月21日 14:00
2024年05月05日 09:40
2024年05月03日 11:20
2024年05月02日 10:38
2024年05月02日 05:00
2024年05月01日 18:30
rozario980さんの投稿
(投稿ID: 4471)
いつも大変楽しく勉強させていただきております。
ウォーミングアップ問題1についての質問です。
私は以下のようなコードを書いたのですが、小川先生と同じ日付が出ました。
こちらの方が簡素でいいと思ったのですが、このコードでも問題はないですか?
Sub mondai1()
Worksheets("Sheet3").Range("A1").Value = Date + 3
End Sub
小川慶一さんのコメント
(コメントID: 6165)
エクセルVBAでは、日付は、内部的には小数で扱っています。
日付として出力するときに日付に変換しています。
以下、参考にしてください。
出力される結果は、以下です。
0
43578
43578.25
43578.75
43581
上記のとおり、 + 3 とすれば元の日付から見て、ちょうど3日あとになります。
ただし、このやり方しか使いこなせないとなると、「2時間前はどう表現するのか?」とか「35分後」といった、60進法的処理の記述に行き詰まってしまいますね。
ということで、この機会に、DateAdd関数をしっかりマスターされるほうが良いかと思います。
> 小川さん
> いつも大変楽しく勉強させていただきております。
>
> ウォーミングアップ問題1についての質問です。
> 私は以下のようなコードを書いたのですが、小川先生と同じ日付が出ました。
> こちらの方が簡素でいいと思ったのですが、このコードでも問題はないですか?
> Sub mondai1()
> Worksheets("Sheet3").Range("A1").Value = Date + 3
> End Sub
>
rozario980さんのコメント
(コメントID: 6166)
解説ありがとうございます。
日付を内部的に少数で扱っていることは知りませんでした。
やはりゆくゆくは、5分後、10分後、30分後を表示できるようになりたいので、この機会にDateAdd関数を勉強したいと思います。
> ゲストさん:
>
> エクセルVBAでは、日付は、内部的には小数で扱っています。
> 日付として出力するときに日付に変換しています。
>
> 以下、参考にしてください。
>
>
>
> 出力される結果は、以下です。
> 0
> 43578
> 43578.25
> 43578.75
> 43581
>
> 上記のとおり、 + 3 とすれば元の日付から見て、ちょうど3日あとになります。
> ただし、このやり方しか使いこなせないとなると、「2時間前はどう表現するのか?」とか「35分後」といった、60進法的処理の記述に行き詰まってしまいますね。
>
> ということで、この機会に、DateAdd関数をしっかりマスターされるほうが良いかと思います。
>
>
> > 小川さん
> > いつも大変楽しく勉強させていただきております。
> >
> > ウォーミングアップ問題1についての質問です。
> > 私は以下のようなコードを書いたのですが、小川先生と同じ日付が出ました。
> > こちらの方が簡素でいいと思ったのですが、このコードでも問題はないですか?
> > Sub mondai1()
> > Worksheets("Sheet3").Range("A1").Value = Date + 3
> > End Sub
> >