Anónimo
Ayuda con fecha
Hola amigo experto tengo una consulta
Lo que quiero hacer es cargar la fecha que por defecto el día sea 15 y el mes 03 y el año sea el actual de sistema del pc
e hice esto pero me da error en (fech= (d)+"/" (m) "/" (a)
d=15
m=03
a=thisform.text1.Value &&& text1 es el año
fech= (d)+"/" (m) "/" (a)
thisform.txtFecha_venc.Value= fech
saludos
Lo que quiero hacer es cargar la fecha que por defecto el día sea 15 y el mes 03 y el año sea el actual de sistema del pc
e hice esto pero me da error en (fech= (d)+"/" (m) "/" (a)
d=15
m=03
a=thisform.text1.Value &&& text1 es el año
fech= (d)+"/" (m) "/" (a)
thisform.txtFecha_venc.Value= fech
saludos
1 Respuesta
Respuesta de ravenn
1
Je je! Creo que esta pregunta ya la habías echo je je! Igual... aquí va la solución!
Local ndia, nmes, nyear
ndia = "15"
nmes = "03"
nyear = YEAR(DATE())
**--YEAR() extrae el anno registrado en la pc
THISFORM.Txtfecha_venc.value = ndia + "/" + nmes + "/" + ALLTRIM(STR(nyear))
EN tu código, te da error porque no unís la cadena con un + entre el mes (m) y el ano (a). Es así:
d=15
m=03
a=thisform.text1.Value &&& text1 es el año
fech= (d)+ "/" + (m) + "/" + (a)
thisform.txtFecha_venc.Value= fech
Local ndia, nmes, nyear
ndia = "15"
nmes = "03"
nyear = YEAR(DATE())
**--YEAR() extrae el anno registrado en la pc
THISFORM.Txtfecha_venc.value = ndia + "/" + nmes + "/" + ALLTRIM(STR(nyear))
EN tu código, te da error porque no unís la cadena con un + entre el mes (m) y el ano (a). Es así:
d=15
m=03
a=thisform.text1.Value &&& text1 es el año
fech= (d)+ "/" + (m) + "/" + (a)
thisform.txtFecha_venc.Value= fech