dateStamp - is there a better way

[onressy]

On the fly converting: 10/09/2006 to 2006-09-01
i need to take into consideration padding "0"
this is what i have, is there a smarter way?


function GDSdates(reform)
Dim reform1, reform2, reform3
reform1 = right("0" & month(reform),2)
reform2 = right("0" & day(reform),2)
reform3 = year(reform) & "-" & reform1 & "-" & reform2
GDSdates= reform3
end function

 

[rac2]

Maybe there is a smarter way but I dont know it. I think you just must add logic to check that the number is less than 10, if yes, then pad with zero.

If month(reform) < 10 Then 
  reform1  = "0" & month(reform)
Else
  reform1  = month(reform)
End If

Or devise a clever way to use string manipulation to achieve the same thing in one line of code. As you did.

 

[Tarwn]

The only way you could possibly shorten it would be to concatenate that all into a single line. Unfortunatly there is no simple formatting function that can be used in this case.