出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[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
日付を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]

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