15/01/2005, 12:31
|
 | | | Fecha de Ingreso: agosto-2003 Ubicación: Puerto Rico
Mensajes: 332
Antigüedad: 20 años, 9 meses Puntos: 0 | |
| Urgente Las fechas me tienen loco
Hola a todos los foreros
Necesito ayuda urgente para calcular fechas en VB no tengo la menor idea de como se hace, voy a poner la sintax de lo que quiro a ver si me pueden ayudar:
Controles:
TxtNumero de Dias
Txtnumero de meses
TxtFecha actual
TxtFecha Calculada
Timer para Verificar si la Fecha se paso de ese periodo y avisar
Sub CmdCalcular_Click()
dim nMes as integer
nMes= val(txtnumero de meses)
txtFecha Calculada = TxtFecha actual + nMes
end sub
Sub Timer
dim nDias as Integer 'Numero de días
if txtFecha Calculada < TxtFecha Actual then
nDias = TxtFecha actual - TxtFecha Calculada
TxtDias que han pasado = "La fecha esta caducada por " & nDias & " cantidad de dias"
end if
end sub
le agradecere la ayuda que me puedan brindar de antemano gracias!
saludos
hmtech
__________________
"...todos los días hay que luchar por que ese amor a la humanidad viviente se transforme en hechos concretos, en actos que sirvan de ejemplo, de movilización."
Che Guevara |