VBScript: ISO Date Format

Just makes an ISO date with VB Script

function iso_date(byval dt)
dim y: y = year(dt)
dim m: m=month(dt)
dim d: d=day(dt)
dim h: h=hour(dt)
dim n: n=minute(dt)
dim s: s=second(dt)

  if m < 10 then m="0" & m
  if d < 10 then d="0" & d
  if h < 10 then h="0" & h
  if n < 10 then n="0" & n
  if s < 10 then s="0" & s
  
  iso_date = y & "-" & m & "-" & d & " " & h & ":" & n & ":" & s
end function