| 投稿日 | ： 2003/04/02(Wed) 09:26 |
| 投稿者 | ： batchman |
| Ｅメール | ： batchman@ae.wakwak.com |
| ＵＲＬ | ： |
| タイトル | ： Re: よろしく |
> A = WeekDay(Date)
>
> Select Case A
>
> Case 1
> A = "日曜日"
>
> Case 2
> A = "月曜日"
>
> Case 3
> A = "火曜日"
>
> Case 4
> A = "水曜日"
>
> Case 5
> A = "木曜日"
>
> Case 6
> A = "金曜日"
>
> Case 7
> A = "土曜日"
>
> End Select
>
> Label2.Caption = Date & A
質問とは関係ないですが、上記のコードは、以下の１行で出来たりします。
Label2.Caption = Format$(Now, "yyyy/mm/ddaaaa")