Autor Tema: Ayuda con calendario en pascal  (Leído 2779 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado moyo18

  • The Communiter-
  • *
  • Mensajes: 1719
Ayuda con calendario en pascal
« : diciembre 01, 2006, 04:36:48 pm »
bueno el problema q etngo es con imprimir los dias en el aclendario, ya tengo el pirmer dia del a;o q el lo q mas necesito porq al entrar al programa pido el a;o y tinee q mostrar todos los meses pero seria  d esta forma

1enero       7julio
2febreo      8agosto
3marzo       9sept
4abril         10oc
5mayo       11nov
6junio        12dic

primero se mostrarian los primeros 4 meses

1enero       7julio
2febreo      8agosto

de ahi apretar la tcla para abajo y se mostrarian los otros cuatro y asi.

el problema q tengo es como poner el array para q se display todos los meses con sus dias, y el otro problemira es q en el a;o 1752 SETP solo tiene 19 dias http://www.timeanddate.com/calendar/index.html?year=1752&country=1ese
es el link para q compruebe, mi calendario esta entre el rango d 1400 y 2600 y ya encuentro el primer dia d ese a;o y q dia cae. aparti d ese dia empezaria a imprimir el calendario los dias.
para eso use la congruencia de zeller

en dond si da

0 = sabado
1 = domingo
2 = lunes
3 = martes
4 = miercoles
5 = jueves
6 = viernes

como le haria con los for para imprimir los dias y me quedara mas o menos asi


january                                     july
mon tue wed thu fri sat sun         mon tue wed thu fri sat sun
1     2    3    4   5    6   7               1     2    3    4   5    6   7

y asi sucesibamente aki les dejo el codigo q llevo hasta el momento para q lo miren.

por cierto mi profesor me dijo q uasra la STR  para imprimir en pantalla pero no se como seria. en fox eso es para pasar d numero a text. supongo q se refiere a los mismo.

codigo

hay una parte q dice

Citar
{ GET THE FIRST DAY OF THE YEAR

  IF (year < 2000) THEN

         FOR Firstday := (2000 - 1) DOWNTO year DO





  ELSE
         FOR Firstday := 2000 TO (year - 1) DO
            BEGIN


            END;




   END OF THE FIRST DAY OF THE YEAR }

HAY Q IGNORARLA esa es otra opcion para obtener el primer dia del a;o q es mas facil q la q yo use.
   
« Última Modificación: diciembre 01, 2006, 04:39:08 pm por moyo18 »