>QSANPLE.MAC
>'本日の日付・時間を入力
>item$[1] = date0$ + " " + time0$
>item$[4] = cformat$("%4d/%s/%s(%s) %s",val(d$), mon$, day$, left$(week$(0),3), t$)
>
>2004-09-24
>2004.9.24
>と表示になりますが、これを変更して
>"2004.09.24" と月も09と2桁で区切りは"." それに曜日時間は不要にしたいのですが、

常に数字を 0 つきにするには、最初のほうにある d$ = data$ のところを d$ = date0$
に変更します。曜日と時間がいらなければ、後ろのほうは切り捨てて、たとえば、
item$[4] = cformat$("%4d/%s/%s",val(d$), mon$, day$)
となります。

ここはユーザー同士のサポート場所であり、作者への要望を書いても必ずしも
読んでもらえないので、（あるいは読んでも、読んだという返事はないので）、
そこのところはご理解ください。ただ、その心情はわかります。