Hola chic@s me ha salido un problema con el dichoso datediff.
el codigo que me falla es este .

Label3.Text = DateDiff(CDate(TextBox1.Text), Fechas.fecha, gb.Year)

1ª TextBox1.Text es un valor que recojo de un formulario

2º Fechas.fecha es un valor que saco de una función que tengo en el modulo Fechasque os lo pongo mas abajo

3º Label3.Text es una etiqueta donde me deberia de poner los años que tiene que devolver datediff

pero no me lo pone me da un error.

4ª el Error.
               type michmach: WNTED DATE,GOT STRING INSTEAD

5ª Os pongo el codigo de donde saco la fecha

PUBLIC SUB ponfeha()
  Calculames()
  Dia = Day(Date)
  Mes = Month(Date)
  Any = Year(Date)
  IF CInt(Dia) < 10 THEN
    Dia1 = "0" & Dia
    ELSE
        dia1 = dia
  ENDIF
  
  IF CInt(Mes) < 10 THEN
    ME.Mes1 = "0" & Mes
    ELSE
        ME.mes1 = mes
  ENDIF

  fecha = Dia1 & "/" & ME.Mes1 & "/" & ME.Any
  Fecha1 = CInt(Dia1 + 2) & "/" & ME.Mes1 & "/" & ME.Any

END

Por ultimo deciros que ponfecha me ha funcionado siempre de categoria, hasta ahora que he necesitado utilizar el datediff.

gracias a todos.

No entiendo el sentido de esta función... ¿Por qué no usas la función format? o mejor aún, por qué no usas datebox en lugar de textbox?
Por otra parte, no es una función es un sub y veo que rellena una variable "fecha" de tipo string, que es lo que le pasas a datediff.
convierte ese string a fecha y ya está.

Label3.Text = DateDiff(CDate(TextBox1.Text), cDate(Fechas.fecha), gb.Year)

shordi escribió: [Ver mensaje]

El error está claro, estás pasando a datediff una cadena donde él espera un valor de fecha.
Solución: No uses un textbox. Usa un datebox o un datechooser.

Saludos

Ok shordi poer nunca he trabajodo con el, como saco la fecha que elijo a un label, porfa?

shordi escribió: [Ver mensaje]

No entiendo el sentido de esta función... ¿Por qué no usas la función format? o mejor aún, por qué no usas datebox en lugar de textbox?
Por otra parte, no es una función es un sub y veo que rellena una variable "fecha" de tipo string, que es lo que le pasas a datediff.
convierte ese string a fecha y ya está.

Label3.Text = DateDiff(CDate(TextBox1.Text), cDate(Fechas.fecha), gb.Year)

Me sigue dando el mismo error con
Label3.Text = DateDiff(CDate(TextBox1.Text), CDate(Fechas.fecha), gb.Year)

desoljor:

Aqui tienes un ejemplo de uso de varios controles:
http://cursogambas.blogspot.com.es/...el-usuario.html

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

jsbsan escribió: [Ver mensaje]

desoljor:

Aqui tienes un ejemplo de uso de varios controles:
http://cursogambas.blogspot.com.es/...el-usuario.html

Gracias a todos ya encontré la solución

pponiendo un datechoucer y añadiendo esta linea :

TextBox1.Text = DateChooser1.day & "/" & DateChooser1.Month & "/" & DateChooser1.Year