Date: Thu, 12 Jun 2003 16:29:58 +0900
From: "前田 肇" <who@example.co.jp>
This is a multi-part message in MIME format.
------=_NextPart_000_0005_01C330FF.DD4F95C0
Content-Type: text/plain;
charset="iso-2022-jp"
Content-Transfer-Encoding: 7bit
前田です。
どうも失礼いたしました。
VBSはみんな同じだと思っていたもので。
じゃあ、
面倒くさいけど、
文字列の処理ということになるんでしょうか。
でも、
ＬＥＮとかも使えなかったりすると、
だめですよねえ。
どうも、
ごめんなさいでした。
前田さん レスありがとうございます。
このVBScriptは関数としてFormat関数がなくて、
FormatCurrency
FormatDateTime
FormatNumber
FormatPercent
があります。
FormatDateTimeを選ぶとFormatDateTime( <<Date>> , <<NamedFormat>> )という形
式になります。
そこで
conv_date1 = Year(DateAdd("Y", 0, Date))
conv_date2 = Month(DateAdd("M", 0, Date))
conv_date3 = Day(DateAdd("D", 0, Date))
conv_date = FormatDateTime(conv_date1, "0000") & "/" &
FormatDateTime(conv_date2, "00") & "/" & FormatDateTime(conv_date3, "00")
DTSDestination("更新日") = cdate(conv_date)
を組込み実行しますと、1905/06/25 という結果になってしまいます。
------=_NextPart_000_0005_01C330FF.DD4F95C0
Content-Type: text/html;
charset="iso-2022-jp"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-2022-jp">
<META content=3D"MSHTML 6.00.2800.1170" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>=1B$BA0ED$G$9!#=1B(B</FONT></DIV>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>=1B$B$I$&$b<:Ni$$$?$7$^$7$?!#=1B(B</FONT></DIV>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>VBS=1B$B$O$_$s$JF1$8$@$H;W$C$F$$$?$b$N$G!#=1B(B</FONT></DIV>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>=1B$B$8$c$"!"=1B(B</FONT></DIV>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>=1B$BLLE]$/$5$$$1$I!"=1B(B</FONT></DIV>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>=1B$BJ8;zNs$N=3DhM}$H$$$&$3$H$K$J$k$s$G$7$g$&$+!#=1B(B</FONT></D=
IV>
<DIV><FONT face=3D"MS UI Gothic" size=3D2>=1B$B$G$b!"=1B(B</FONT></DIV>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>=1B$B#L#E#N$H$+$b;H$($J$+$C$?$j$9$k$H!"=1B(B</FONT></DIV>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>=1B$B$@$a$G$9$h$M$(!#=1B(B</FONT></DIV>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>=1B$B$I$&$b!"=1B(B</FONT></DIV>
<DIV><FONT face=3D"MS UI Gothic" =
size=3D2>=1B$B$4$a$s$J$5$$$G$7$?!#=1B(B</FONT></DIV>
<DIV><FONT face=3D"MS UI Gothic" size=3D2></FONT> </DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px"><FONT=20
face=3D"=1B$B#M#S=1B(B =1B$B#P%4%7%C%/=1B(B">=1B$BA0ED$5$s=1B(B =
=1B$B%l%9$"$j$,$H$&$4$6$$$^$9!#=1B(B</FONT><BR><BR><FONT=20
face=3D"=1B$B#M#S=1B(B =
=1B$B#P%4%7%C%/=1B(B">=1B$B$3$N=1B(BVBScript=1B$B$O4X?t$H$7$F=1B(BFormat=1B=
$B4X?t$,$J$/$F!"=1B(B</FONT><BR><FONT=20
face=3D"=1B$B#M#S=1B(B =
=1B$B#P%4%7%C%/=1B(B">FormatCurrency</FONT><BR><FONT=20
face=3D"=1B$B#M#S=1B(B =
=1B$B#P%4%7%C%/=1B(B">FormatDateTime</FONT><BR><FONT=20
face=3D"=1B$B#M#S=1B(B =
=1B$B#P%4%7%C%/=1B(B">FormatNumber</FONT><BR><FONT=20
face=3D"=1B$B#M#S=1B(B =
=1B$B#P%4%7%C%/=1B(B">FormatPercent</FONT><BR><FONT=20
face=3D"=1B$B#M#S=1B(B =
=1B$B#P%4%7%C%/=1B(B">=1B$B$,$"$j$^$9!#=1B(B</FONT><BR><FONT=20
face=3D"=1B$B#M#S=1B(B =
=1B$B#P%4%7%C%/=1B(B">FormatDateTime=1B$B$rA*$V$H=1B(BFormatDateTime( =
<<Date>> ,=20
<<NamedFormat>> =
)=1B$B$H$$$&7A<0$K$J$j$^$9!#=1B(B</FONT><BR><FONT=20
face=3D"=1B$B#M#S=1B(B =
=1B$B#P%4%7%C%/=1B(B">=1B$B$=3D$3$G=1B(B</FONT><BR><FONT =
face=3D"=1B$B#M#S=1B(B =1B$B#P%4%7%C%/=1B(B">conv_date1 =3D=20
Year(DateAdd("Y", 0, Date))<BR>conv_date2 =3D Month(DateAdd("M", 0,=20
Date))<BR>conv_date3 =3D Day(DateAdd("D", 0, Date))<BR>conv_date =3D=20
FormatDateTime(conv_date1, "0000") & "/" & =
FormatDateTime(conv_date2,=20
"00") & "/" & FormatDateTime(conv_date3,=20
"00")<BR>DTSDestination("=1B$B99?7F|=1B(B") =3D cdate(conv_date) =
</FONT><BR><FONT=20
face=3D"=1B$B#M#S=1B(B =
=1B$B#P%4%7%C%/=1B(B">=1B$B$rAH9~$_<B9T$7$^$9$H!"=1B(B1905/06/25=20
=1B$B$H$$$&7k2L$K$J$C$F$7$^$$$^$9!#=1B(B</FONT></BLOCKQUOTE></BODY></HTML=
>
------=_NextPart_000_0005_01C330FF.DD4F95C0--
| [MSDE/SQLServerに関して、今、どんなことにお困りですか？] |
| よろしければお困りの内容を、電子メールで教えて下さい。 |
|
質問を電子メールで作成する
|
[ウィンドを閉じる][MSDE/SQLServer FAQ ][MSDE / MSDE2000 技術サポート情報一覧]
|
