出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
日付をFormat 　 まりさん [2005/12/02 15:40:52] [5499]
　 Re:日付をFormat 　 Lightningさん [2005/12/02 17:26:49] [5500]
　 　 Re:日付をFormat 　 Lightningさん [2005/12/02 17:48:01] [5501]
　 　 　 Re:日付をFormat 　 まりさん [2005/12/06 15:08:29] [5507]
　 　 　 　 Re:日付をFormat 　 まりさん [2005/12/06 15:57:05] [5508]
　 Re:日付をFormat 　 ビギナーズラックさん [2005/12/02 21:09:53] [5502]
[5499] 日付をFormat
投稿者：まりさん 2005/12/02 15:40:52
こんにちは｡
HTML側から取得した年月をYYYYMMDDという形にしたいのですが
Formatを使用するとエラーになってしまいます｡
（型が違うと・・・）
どのようにしたらよろしいのでしょうか？
[5500] Re:日付をFormat
投稿者：Lightningさん 2005/12/02 17:26:49
> こんにちは｡
> HTML側から取得した年月をYYYYMMDDという形にしたいのですが
> Formatを使用するとエラーになってしまいます｡
> （型が違うと・・・）
> どのようにしたらよろしいのでしょうか？

ASPにはFormatはありませんorz
なので、YYYYMMDDがどういう形で取得されたのか、によって変わりますが、midを使って抜き出す方法や、YYYY/MM/DDやYYYY-MM-DDというように取得したのであればsplitを使い配列として抜き出す方法があります。
#mid(対象文字列,開始位置,取得文字数)で文字列の指定の位置から指定文字数を抜き出せます。
#split(対象文字列,区切り文字列)で対象文字列を区切り文字列ごとに区切った配列に出来ます。
#注意：間違ってるとまずいので自分でも調べてみてください。
[5501] Re:日付をFormat
投稿者：Lightningさん 2005/12/02 17:48:01
> > こんにちは｡
> > HTML側から取得した年月をYYYYMMDDという形にしたいのですが
> > Formatを使用するとエラーになってしまいます｡
> > （型が違うと・・・）
> > どのようにしたらよろしいのでしょうか？
>
> ASPにはFormatはありませんorz
> なので、YYYYMMDDがどういう形で取得されたのか、によって変わりますが、midを使って抜き出す方法や、YYYY/MM/DDやYYYY-MM-DDというように取得したのであればsplitを使い配列として抜き出す方法があります。
> #mid(対象文字列,開始位置,取得文字数)で文字列の指定の位置から指定文字数を抜き出せます。
> #split(対象文字列,区切り文字列)で対象文字列を区切り文字列ごとに区切った配列に出来ます。
> #注意：間違ってるとまずいので自分でも調べてみてください。
>
忘れてたけど、日付型でとってるんならSPLIT使わずにYearとかMonthとかで抜き出すのもいいよ

参考：http://asp.dataweb.ne.jp/text/new_page_13.htm
[5507] Re:日付をFormat
投稿者：まりさん 2005/12/06 15:08:29
200512 という形を　20051299とできないのでしょうか？
[5508] Re:日付をFormat
投稿者：まりさん 2005/12/06 15:57:05
> 200512 という形を　20051299とできないのでしょうか？
>

DAY = Left(DAY & String(8, "0"), 8)

と言う形にし　20051200とできました。
[5502] Re:日付をFormat
投稿者：ビギナーズラックさん 2005/12/02 21:09:53
> こんにちは｡
> HTML側から取得した年月をYYYYMMDDという形にしたいのですが
> Formatを使用するとエラーになってしまいます｡
> （型が違うと・・・）
> どのようにしたらよろしいのでしょうか？
>

ただのASPにはFormatは無いので自分で作るしかないです。
汎用Function投函ができればしようと思っていた汎用日付Format関数です。
私がサイトを作るときに毎回includeして使ってるものです。
細かいところは自分用になおして使って下さい。
formatも自分なりにどんどん追加していくといいと思いますよ。

Function FormatDate(strDate,mode)
On Error Resume next

Dim res

res = ""

If IsNull(strDate) Then Exit Function
If IsEmpty(strDate) Then Exit Function
If IsNull(mode) Then Exit Function
If IsEmpty(mode) Then Exit Function

Select case mode

case "yyyy/m/d"
res = res & Year(strDate) & "/"
res = res & Month(strDate) & "/"
res = res & Day(strDate)
case "LongDate"
res = res & Year(strDate) & "年"
res = res & Month(strDate) & "月"
res = res & Day(strDate) & "日"
case "yyyy/mm/dd"
res = res & Year(strDate) & "/"
res = res & AddStr(Month(strDate),2,"0") & "/"
res = res & AddStr(Day(strDate),2,"0")

case "mm/dd"
res = res & AddStr(Month(strDate),2,"0") & "/"
res = res & AddStr(Day(strDate),2,"0")


case "yyyy"
res = Year(strDate)

case "mm"
res = AddStr(Month(strDate),2,"0")

case "dd"

res = AddStr(Day(strDate),2,"0")

case "hh"
res = AddStr(Hour(strDate),2,"0")

case "nn"

res = AddStr(Minute(strDate),2,"0")

case "mm/dd hh:nn"
res = res & AddStr(Month(strDate),2,"0") & "/"
res = res & AddStr(Day(strDate),2,"0")
res = res & " " & AddStr(Hour(strDate),2,"0")
res = res & ":" & AddStr(Minute(strDate),2,"0")


case "yyyy/mm/dd hh:nn"

res = res & Year(strDate) & "/"
res = res & AddStr(Month(strDate),2,"0") & "/"
res = res & AddStr(Day(strDate),2,"0")
res = res & " " & AddStr(Hour(strDate),2,"0")
res = res & ":" & AddStr(Minute(strDate),2,"0")

case "yyyy年mm月dd日 hh時nn分"

res = res & Year(strDate) & "年"
res = res & AddStr(Month(strDate),2,"0") & "月"
res = res & AddStr(Day(strDate),2,"0") & "日"
res = res & " " & AddStr(Hour(strDate),2,"0")
res = res & "時" & AddStr(Minute(strDate),2,"0") & "分"

case "yyyy年mm月dd日<BR>hh時nn分"

res = res & Year(strDate) & "年"
res = res & AddStr(Month(strDate),2,"0") & "月"
res = res & AddStr(Day(strDate),2,"0") & "日"
res = res & "<BR>" & AddStr(Hour(strDate),2,"0")
res = res & "時" & AddStr(Minute(strDate),2,"0") & "分"


case "hh:nn"
res = res & AddStr(Hour(strDate),2,"0")
res = res & ":" & AddStr(Minute(strDate),2,"0")

case "serial"
res = res & Year(strDate)
res = res & AddStr(Month(strDate),2,"0")
res = res & AddStr(Day(strDate),2,"0")
res = res & AddStr(Month(strDate),2,"0")
res = res & AddStr(Day(strDate),2,"0")
res = res & AddStr(Hour(strDate),2,"0")
res = res & AddStr(Minute(strDate),2,"0")

End Select

FormatDate = res

End Function



Function AddStr(str,ketasu,fukamoji)

Select case ketasu
case 1
AddStr=str
case 2
Select case Len(str)
case 1
AddStr=fukamoji & str
case 2
AddStr= str
End Select
End Select

End Function

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ