如何在VBScript中使用最小分隔符和时区格式化日期时间？

Question

我在C＃下面的代码：

DateTime dt = GetDateTime(); 
string formatted = dt.ToString("yyyyMMddTHHmmsszz"); 

它返回以下格式的日期：

20100806T112917+01 

我希望能够得到在VBScript相同的结果（用于传统ASP应用程序）。获取UTC偏移量信息或将时间转换为UTC是特别重要的。

我该怎么做？

Answer 1

日期格式，我喜欢用从VBScript中的.NET StringBuilder类：

Option Explicit 

Dim sb : Set sb = CreateObject("System.Text.StringBuilder") 
sb.AppendFormat "{0:yyyyMMddTHHmmsszz}", Now() 
Response.Write sb.ToString() 

以上的回报：

20100806T201139-07 

这假定您已经安装了.NET您网络服务器。

Answer 2

这是我自己的尝试。更好的解决方案将受到大家的认可！

Function ToDateTimeStringMinimalSeparators(dateTime) 

    ' -------------------------------------------------------------------------- 
    ' F O R M A T T H E U T C O F F S E T 
    ' -------------------------------------------------------------------------- 

    Dim oShell, activeTimeBias 
    Set oShell = CreateObject("WScript.Shell") 
    activeTimeBias = oShell.RegRead("HKEY_LOCAL_MACHINE\System\" & _ 
     "CurrentControlSet\Control\TimeZoneInformation\ActiveTimeBias") 

    Dim sign 
    sign = "-" 
    If activeTimeBias < 0 Then 
     sign = "+" 
     ' Make it positive while we're doing calculations 
     activeTimeBias = activeTimeBias * -1 
    End If 

    Dim atbHours, atbMins 
    atbHours = Right("00" & Int(activeTimeBias/60), 2) 
    atbMins = Right("00" & (activeTimeBias Mod 60), 2) 
    If atbMins = "00" Then 
     atbMins = "" 
    End If 

    Dim utcOffset 
    utcOffset = sign & atbHours & atbMins 

    ' -------------------------------------------------------------------------- 
    ' F O R M A T T H E M A I N D A T E 
    ' -------------------------------------------------------------------------- 

    Dim dateBody 
    dateBody = Right("0000" & Year(dateTime), 4) & _ 
     Right("00" & Month(dateTime), 2) & _ 
     Right("00" & Day(dateTime), 2) & _ 
     "T" & _ 
     Right("00" & Hour(dateTime), 2) & _ 
     Right("00" & Minute(dateTime), 2) & _ 
     Right("00" & Second(dateTime), 2) 

    ToDateTimeStringMinimalSeparators = dateBody & utcOffset 

End Function