2つのファイルの異なるフォーマットを示すVbScript FormateDateTime関数

Question

私はフォーマットされた日時を自分のXSLTに送り、出力としてXMLを与えている以下のコードを持っています。

#importXSLT "tcm:228-190529-2048" As expandXSLT 
#importXSLT "tcm:228-642694-2048" As renderXSLT 

Dim xml, currentDateTime, datLong , datLongTime , fullDate 

Set xml = getNewDomDocument() 
xml.loadXML TDSE.GetListPublications(3) 

expandXSLT.input = xml 
Call expandXSLT.addParameter("publication", Component.Publication.Id) 
expandXSLT.transform 

xml.loadXML(expandXSLT.output) 
'WriteOut xml.xml 

currentDateTime = now() 
datLong = FormatDateTime(currentDateTime, 1) 
datLongTime = FormatDateTime(currentDateTime, 3) 
fullDate = datLong &" "& datLongTime 

renderXSLT.input = xml 
Call renderXSLT.addParameter("currentPublishedDate", CStr(fullDate)) 
renderXSLT.transform 

WriteOut renderXSLT.output 

Set xml = Nothing 

上記のロジックは出力された2つのXMLで同じですが、両方のファイルに対して異なる出力が得られます。

ファーストファイルは、2011年10月23日（日曜日）午前8時52分36秒、出力として 2番目のファイルは出力として - 2011年10月23日09:14:45を出力します。

私はファイルの両方のために、以下のような出力をしたい場合は2011年10月23日午前9時14分45秒AM

おかげような理由だけでなく、また、溶液、および1つのより多くの事ことができるものを提案してください！

Answer 1

日付の書式設定を行う前に、SetLocale(2057)などを使用して明示的にロケールを設定してください。

2057はあなたが望むように思われる英国の書式です。それ以外の場合は、Locale ID Chartを参照して正しい値を見つけてください。