Problema con la fecha con windows en ingles y en español

[Escorpion_Negro]

Hola a todos.

Hola mi consulta es la siguiente tengo problemas con fecha del sistema, lo que pasa que estoy programando en win 2000 en ingles y los sistamas seran imprementados en win 2000 en español resulta que rescato la fecha del sistema hago lo en VB y que me aparesca en el siguiente formato DD/MM/YYYY la tomo con caracteres y los dresgloso ocupando el Lef y el mid, resulta que tengo una fecha por ejemplo 2004-01-04 para tomarla en mi computador hago lo siguiente

ano = Left(date, 4)
mes = Mid(date, 6, 2)
dia = Mid(date, 9, 2)
lblFecha_Asiento = dia & "-" & mes & "-" & ano


Resultado 04-01-2004 ahora en el resultado de la fecha en sistema windows en español es 04-2-30-0

hay algun comando que me permita tomar la fecha el dia, mes y año y no tratarlo como texto

[pabli]

Escorpion_Negro,

mírate las funciones

year
month
day

y cuidadín con el formato de fecha que le pasas, intenta pasarle la fecha con barras(/) sino se queja. "Date" saca este formato con barras.
Si en la configuración regional de Windows está en español saldrá DD/MM/AAAA, y así con el resto.

Saludos
Pablo