HOLAAA POR FAVOR NECESITO Q ALGUIEN ME AYUDE: NECESITO IMPRIMIR EL NUMERO DEL MES EN LETRAS ESTO ES EN VISUAL BASIC POR FAVOR SI ALGUIEN SABE COMO HACERLO AYUDENME
EJEMPLO: 3 CONVERTIRLO EN "MARZO"
GRACIAS
| |||
![]() HOLAAA POR FAVOR NECESITO Q ALGUIEN ME AYUDE: NECESITO IMPRIMIR EL NUMERO DEL MES EN LETRAS ESTO ES EN VISUAL BASIC POR FAVOR SI ALGUIEN SABE COMO HACERLO AYUDENME EJEMPLO: 3 CONVERTIRLO EN "MARZO" GRACIAS |
| |||
Es facil , creo que hay una funcion que se llama Monthname o algo parecido, no es muy complicado. Y si no, create una funcion que recoja como parametro de entrada el identificador del dmes, y mediante un switch hagas tu el cambio.... |
| |||
Contestacion de fecha a letra unicamente crea un boton llamado Command1 y le asignas el siguiente codigo Private Sub Command1_Click() 'debueve el mes del sistema MsgBox Format(Now, "mmmm") 'debueve el mes de la fecha introducida MsgBox Format(25 / 10 / 82, "mmmm") End Sub |
| |||
Si, pero eso te dara el nombre del mes en el formato en el que tengas configurado el ordenador, por ejemplo, en ingles, cuando creo que lo mas interesante seria el poder poner el nombre como tu quieras.- |
| |||
No hace falta nada de eso!!!! Os estais complicando la vida, cuando lo unico que tienes que hacer es crear una matriz con los nombres de los meses, y despues solo tendras seleccionar la posicion de la matriz con el numero introducido, de esa forma, la posicion 2 sera marzo (ya que la primera posicion es 0). Y asi de facil. |
| |||
option base 1 lo de la matriz, lo solucionas ponino opcion base 1, asi indicas que la primera posicion de la matriz es 1 en lugar de 0. Ahora si que tienes solicuinado todo tu problema. ********************************* opcion explicit option base 1 |
| |||
gracias a todos por ayudarme ya lo soluciones lo hize con la funcion monthname(fecha) donde fecha=month(fecha.text) 'la variable fecha guarda el numero del mes' y luego obtengo el mes en letra con el monthname (fecha) es facil me estaba complicando... MUCHAS GRACIAS POR ACLARA MI DUDA |