Dim Y,M,D,W,PAM,PAC,MIN,SEC
Y=Year(Date)
M=Month(Date)
D=Day(Date)
W=Weekdayname(Weekday(Date))
If Hour(Time) < 12 Then
	PAM=Hour(Time)
	PAC="A.M."
ElseIf Hour(Time) = 12 Then
	PAM="0"
	PAC="P.M."
ElseIf Hour(Time) > 12 Then
        PAM=Hour(Time)-12
	PAC="P.M."
End If
MIN=Minute(Time)
SEC=Second(Time)
MES="今日は、西暦" & Y & "年　" & M & "月　" & D & "日（" & W & "）" & vbCR _
    & "現在、" & PAC & " " & PAM & "蒔　" & MIN & "分　" & SEC & "秒　です。"
msgbox MES