2

現在、日付をyyyymmddの形式で格納するデータソースがあり、mm / dd / yyyyの形式で返す必要があります（どちらの日付にも時間部分はありません）。日付ソースから日付を取得するのに問題はありませんが、以下は日付を再フォーマットしていません（ただし、エラーも発生しません）

Set LookupDate = FormatDateTime(objRS.Fields("Date"),2)

どんな助けでも素晴らしいでしょう！

4

6 に答える 6

2

月、日付左パッドゼロ：

right（ "0"＆month（dt）、2）＆ "/"＆right（ "0"＆day（dt）、2）＆ "/"＆year（dt）

于 2013-12-08T12:30:36.113 に答える
1

FormatDateTime（）は、オブジェクトではなく文字列を返します。だから「セット」を取り除く。それでも意図した結果が得られない場合は、そう言ってください。

于 2012-04-04T20:49:09.573 に答える
1

FormatDateTimeは、システムのロケールを考慮に入れます。

私は次のアプローチを使用します：

dim rawDate
rawDate = cDate(objRS.Fields("Date"))

dim lookupDate
lookupDate = month(rawDate)
lookupDate = lookupDate & "/" & day(rawDate)
lookupDate = lookupDate & "/" & year(rawDate)

先行ゼロを含める場合：

dim rawDate, rawDay, rawMonth

rawDate = cDate(objRS.Fields("Date"))

rawDay = day(rawDate)
if rawDay < 10 then
    rawDay = "0" & rawDay 
end if

rawMonth = month(rawDate)
if rawMonth< 10 then
    rawMonth = "0" & rawMonth
end if

dim lookupDate
lookupDate = rawMonth
lookupDate = lookupDate & "/" & rawDay
lookupDate = lookupDate & "/" & year(rawDate)
于 2012-04-05T07:13:34.883 に答える
1

日時が必要な場合は、以下の機能をご利用いただけます。これにより、 YYYYMMDDhhmmssとしてフォーマットされた日付と時刻が表示されます

  function GetFormattedDateTime
    dim t
    t = now
    GetFormattedDateTime= DatePart("yyyy",t) & _
                           Right("0" & DatePart("m",t), 2) & _
                           Right("0" & DatePart("d",t), 2) & _ 
                           Right("0" & DatePart("h",t), 2) & _ 
                           Right("0" & DatePart("n",t), 2) & _ 
                           Right("0" & DatePart("s",t), 2)
  end function
于 2015-01-08T08:55:54.140 に答える
0

入力にハイフンを追加する必要があります。その後、通過させることができます。これが1つの方法です：

Dim d
d = objRS.Fields("Date")
d = Left(d, 4) & "-" & Mid(d, 5, 2) & "-" & Right(d, 2)
LookupDate = FormatDateTime(d, 2)
于 2012-04-04T20:56:09.200 に答える
0

皆様からのご意見ありがとうございました！私は要素の組み合わせを使用して、実用的な最終的な答えを得ました。これは次のとおりです。

PUDate = objRS.Fields("Date")
YearPart = Left(PUDate, 4)
MonthPart = Mid(PUDate, 5, 2)
DayPart = Right(PUDate, 2)
LookupDate = MonthPart & "/" & DayPart & "/" & YearPart
于 2012-04-06T13:53:20.323 に答える