受講生 さん:

日付の正体は小数です。
整数部分が起算日(1899/12/30)からの経過日数、小数部分は時刻です。

↓こんなサンプル動かしてみると、学びが深まるかも。

Sub hoge1()
    Dim d As Date
    
    d = 0
    Debug.Print "sample1"
    Debug.Print "年 " & Year(d)
    Debug.Print "月 " & Month(d)
    Debug.Print "日 " & Day(d)
    Debug.Print "時 " & Hour(d)
    Debug.Print "分 " & Minute(d)
    Debug.Print "秒 " & Second(d)
    Debug.Print "小数で表現すると: " & CDbl(d)
    Debug.Print ""
    
    d = #1/3/1900 6:00:00 PM#

    Debug.Print "sample2"
    Debug.Print "年 " & Year(d)
    Debug.Print "月 " & Month(d)
    Debug.Print "日 " & Day(d)
    Debug.Print "時 " & Hour(d)
    Debug.Print "分 " & Minute(d)
    Debug.Print "秒 " & Second(d)
    Debug.Print "小数で表現すると: " & CDbl(d)
    Debug.Print ""
    
    d = #5/19/2016 1:40:23 PM#

    Debug.Print "sample3"
    Debug.Print "年 " & Year(d)
    Debug.Print "月 " & Month(d)
    Debug.Print "日 " & Day(d)
    Debug.Print "時 " & Hour(d)
    Debug.Print "分 " & Minute(d)
    Debug.Print "秒 " & Second(d)
    Debug.Print "小数で表現すると: " & CDbl(d)
    Debug.Print ""

    d = Now

    Debug.Print "sample4"
    Debug.Print "年 " & Year(d)
    Debug.Print "月 " & Month(d)
    Debug.Print "日 " & Day(d)
    Debug.Print "時 " & Hour(d)
    Debug.Print "分 " & Minute(d)
    Debug.Print "秒 " & Second(d)
    Debug.Print "小数で表現すると: " & CDbl(d)
    Debug.Print ""
End Sub

Sub hoge2()
    Dim d As Date
    d = 3.25 '3.25は、起算日から数えて3日後の朝6:00です。

    Debug.Print "sample5"
    Debug.Print "年 " & Year(d)
    Debug.Print "月 " & Month(d)
    Debug.Print "日 " & Day(d)
    Debug.Print "時 " & Hour(d)
    Debug.Print "分 " & Minute(d)
    Debug.Print "秒 " & Second(d)
    Debug.Print "小数で表現すると: " & CDbl(d)
    Debug.Print ""
End Sub

>今回は盛りだくさんでした☆
>
>dateadd関数を知らなかったので、試しにdate+3と書いてみたらちゃんと動きました。
>こびとちゃんにとってはdateaddの方が親切でしょうか？
>
>selectcaseの方がすっきり見えるので、たくさん練習してスラスラ書けるように慣れていこうと思います。

2016/05/19 22:48

小川先生

ありがとうございます。
サンプルを動かしてみました！

シリアル値の存在は知っていたのですが、
小数部分で時刻を表していることは知りませんでした。

日付と時間・・・
ずっと別物だと勘違いしていました。
切っても切り離せないものなのに・・・(;・∀・)


>受講生 さん:
>
>日付の正体は小数です。
>整数部分が起算日(1899/12/30)からの経過日数、小数部分は時刻です。
>
>↓こんなサンプル動かしてみると、学びが深まるかも。
>
>

Sub hoge1()
>    Dim d As Date
>    
>    d = 0
>    Debug.Print "sample1"
>    Debug.Print "年 " & Year(d)
>    Debug.Print "月 " & Month(d)
>    Debug.Print "日 " & Day(d)
>    Debug.Print "時 " & Hour(d)
>    Debug.Print "分 " & Minute(d)
>    Debug.Print "秒 " & Second(d)
>    Debug.Print "小数で表現すると: " & CDbl(d)
>    Debug.Print ""
>    
>    d = #1/3/1900 6:00:00 PM#
>
>    Debug.Print "sample2"
>    Debug.Print "年 " & Year(d)
>    Debug.Print "月 " & Month(d)
>    Debug.Print "日 " & Day(d)
>    Debug.Print "時 " & Hour(d)
>    Debug.Print "分 " & Minute(d)
>    Debug.Print "秒 " & Second(d)
>    Debug.Print "小数で表現すると: " & CDbl(d)
>    Debug.Print ""
>    
>    d = #5/19/2016 1:40:23 PM#
>
>    Debug.Print "sample3"
>    Debug.Print "年 " & Year(d)
>    Debug.Print "月 " & Month(d)
>    Debug.Print "日 " & Day(d)
>    Debug.Print "時 " & Hour(d)
>    Debug.Print "分 " & Minute(d)
>    Debug.Print "秒 " & Second(d)
>    Debug.Print "小数で表現すると: " & CDbl(d)
>    Debug.Print ""
>
>    d = Now
>
>    Debug.Print "sample4"
>    Debug.Print "年 " & Year(d)
>    Debug.Print "月 " & Month(d)
>    Debug.Print "日 " & Day(d)
>    Debug.Print "時 " & Hour(d)
>    Debug.Print "分 " & Minute(d)
>    Debug.Print "秒 " & Second(d)
>    Debug.Print "小数で表現すると: " & CDbl(d)
>    Debug.Print ""
>End Sub
>
>Sub hoge2()
>    Dim d As Date
>    d = 3.25 '3.25は、起算日から数えて3日後の朝6:00です。
>
>    Debug.Print "sample5"
>    Debug.Print "年 " & Year(d)
>    Debug.Print "月 " & Month(d)
>    Debug.Print "日 " & Day(d)
>    Debug.Print "時 " & Hour(d)
>    Debug.Print "分 " & Minute(d)
>    Debug.Print "秒 " & Second(d)
>    Debug.Print "小数で表現すると: " & CDbl(d)
>    Debug.Print ""
>End Sub

>
>
>>今回は盛りだくさんでした☆
>>
>>dateadd関数を知らなかったので、試しにdate+3と書いてみたらちゃんと動きました。
>>こびとちゃんにとってはdateaddの方が親切でしょうか？
>>
>>selectcaseの方がすっきり見えるので、たくさん練習してスラスラ書けるように慣れていこうと思います。
>

2016/05/20 17:02