Tried to do it in worksheetfunction only..

=DATEVALUE(LEFT(SUBSTITUTE(A10;MID(A10;3;3);
TEXT(DATE(0;
MATCH(MID(A10;3;3);
{"jan";"feb";"mar";"apr";"may";"jun";"jul";"aug";" sep";"oct";"nov";"dec"};
0);1);"mmm"));9)
)

works in Dutch.. and should work in Danish too :)

keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Christian" wrote:

Hi NG,

I have a cell with date values in this string format
04Oct2004000000

I need to strip the date to another cell and made a macro that
uses:

ActiveCell.Formula =
"=VALUE(CONCATENATE(LEFT(RC[-4],2),""-"",MID(RC[-4],3,3),""-"",MID(RC[-
4],6, 4)))"