BJ-Clock(英国時計)を試作してみた

　皆さん、こんにちは。山本美孝です。

　チャットで時々話すlさんという人がいる。英国在住なので、9時間の時差がある。どうも英国の時間がわからなくて混乱する。

　そこで英国での時刻を表示させようと、ソフトを試作してみた。

------------------------------------------------------------

Private Sub tmrNow_Timer()

　　　BritainDate = DateAdd("n"， "-540"， Now)
　　　’540分(60分×9時間)引く場合

　　　lblTime(0).Caption = Format(Now，_
　　　 "yyyy/mm/dd (aaa) HH:nn")

　　　lblTime(1).Caption = Format(BritainDate，_
　　　 "yyyy/mm/dd (aaa) HH:nn")

　　　’If サマータイム　then
　　　’
　　　’ 1時間早めると………
　　　’　　BritainDate=DateAdd("n"，"60"，BritainDate)
　　　’
　　　’End If

　　　’yyyy 年 m月　d 日 h 時　n 分　s 秒

End Sub

------------------------------------------------------------
　こんな感じになる。イギリスのサマータイムは、とりあえず宿題にしておいて試作してみた。