Try this : Function ChangeFormat(dt As String) As Variant
If IsDate(dt) Then ChangeFormat = Format(dt, "dd/mmm/yyyy") Else ChangeFormat = dt End If End Function On Mon, Oct 3, 2011 at 4:01 PM, Sanjib Chatterjee < chatterjee.kolk...@gmail.com> wrote: > Dear Friends, > > OK, I got it. > > you can check the below mentioned sample > > > thank you > > regads, > > Sanjib > > > Function put_date(input_your_date As String) As String > Dim splt > splt = Split(input_your_date, "/") > put_date = Format(DateSerial(splt(2), splt(1), splt(0)), "dd-mmm-yyyy") > > End Function > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > -- Regards Rajan verma +91 9158998701 -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel