UTNianos

Versión completa: FUNCION PARA OBTENER FECHA DE PROCESO ALGORITMOS
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
como es la funcion para obtener el dia del proceso? como se usa?
yo necesito obtener el dia el mes y el año del proceso por separado... como hago??? gracias
no entiendo tu pregunta.
queres saber como, en Pascal (supongo q te referis a eso, porque estaras cursando "algoritmos" o eso entiendo) obtener la fecha, mes y año ?

se hace asi



program obtenerfecha;
uses crt, dos;
var anio,mes, fechadia, diasem: word;
begin

getdate(anio,mes, fechadia, diasem);
write('anio:',anio,' mes:',mes,' dia:',fechadia, ' ','dia nro:', diasem);
readkey;
end.




esto te devuelve

anio:2010 mes: 9 dia: 23 , dia nro: 4



Para hacerlo, tenes que en Uses incluir la librearia "dos"

y luego usar la funcion

getdate(word: anio; word:mes; word: fechadeldia; word: diasem)



(Creo que eran asi los parametros que se anotaban =P)
donde anio te devolvera el anio, mes el mes, fecha del dia te devolvera la fecha, y diasem el dia de la semana (siendo que lunes es 1, hoy es jueves, asique te devuelve 4)


Esper que te sirva, saludos !
Si es la fecha del sistema es lo que dijo mi tocayo aca arriba.Si lo que querés decir es que te dieron la fecha en formato AAAAMMDD y la queres tener por separado,eso se soluciona facil,con una conversion de fecha.



procedure modfecha (fecha:longint,var dia:int, var mes:int, var anio:word)
var p word;
begin
p:=(fecha mod 10000);
dia:=(p mod 100);
mes:=((p-dia)/100);
anio:=((fecha-p)/1000);
end




En teoría funciona,pero por las dudas te insto a que lo compruebes =P.
OJO que solo funciona para cuando la fecha esta en formato AAAAMMDD
Si esta en MMDDAAAA tenés que usar otro algoritmo parecido.Igual no son muy difíciles de sacar.Si te ponés lo podés hacer vos mismo.Cualquier cosa avisame.

Saludos!
muchas gracias era el getdate lo q buscaba! gracias che
URLs de referencia