我如何重新格式化日期时间输出到ISO 8601

Question

使用下面的代码输出以下值：04/10/2019，这是由于所设置为英国日期时间设置的服务器所致。但是Google正在阅读此日期为4月19日。因此，我需要将其转换为ISO8601配件

Dim FutureDate, TodaysDate
FutureDate = FormatDateTime(Now(),1)
TodaysDate = DateAdd("m", 0, FutureDate)
FutureDate = DateAdd("d", +100, TodaysDate)

"priceValidUntil": "<%= FutureDate %>",

Answer 1

我不记得ASP支持这一点，您可以更改长时间，短日期，但不适用于ISO8601

我使用这样的事情来做(字符串拆分和concat(：

d = split(FutureDate,"/")
future_iso = d(1) & "/" & d(0) & "/" & d(2)