adding zero and replace some characters

[muhammad susanto]

hi all,

i have following problem like this below :

data	after formula
1998-9-253	1998.09.000253
2005-10-2035	2005.10.002035
2006-1-48	2006.01.000048
1997-2-5	1997.02.000005
etc..

<tbody>
</tbody>

criterion :
total len = 14 characters
instead mark "-" with mark "."
adding zero adjust

any assistance, thanks in advance..
please, note vba..

m.susanto

 

[billszysz]

=LEFT(A2,4)&"."&IF(ISNUMBER(--MID(A2,6,2)),MID(A2,6,2),"0"&MID(A2,6,1))&"."&RIGHT(SUBSTITUTE(A2,"-",REPT("0",6)),6)

Greetings

 

[muhammad susanto]

hi bill..

it work great!!!

a lot thanks...

any other more simpler??