| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
rafaelr
Cdt
Registrado: 05 Ago 2008Mensajes: 15
|
 Publicado: Mie 15 Abr, 2009 4:35 am Asunto: ayudas con fechas |
 |
|
| hola estoy haciendo un programa de citas, y nesecito seleccionar un dia a la semana y qeu cuando guarde en la base de datos guarde con la fecha del dia determinado en ese mes por ejemplo escojo lunes del mes de abril en la base de datos se debe guardar 6, 13, 20,27 que son los lunes de abril. estoy utilizando un fecha inicial y una fecha final pero no se como hacer gracias de antemano por su ayuda |
|
| Volver arriba |
|
 |
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
| Publicado: Mie 15 Abr, 2009 9:36 am Asunto: |
|
|
Simplemente: Sumando 7 a la fecha inicial y comprobando que el resultado no supera la fecha final. Dado que ambas fechas ya las conoces es relativamente fácil:
| Código: | TDateTime dFecIni, dFecFin;
Word Year, Month, Day;
dFecIni = EncodeDate(2009, 4, 6); // Primer lunes de abril
dFecFin = EncodeDate(2009, 5, 1); // Primer día del mes siguiente
while (dFecIni <dFecFin>Append();
Table1->FieldValues["Dia"] = Day;
Table1->Post();
dFecIni += 7;
} |
Debería funcionar bine.
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA)
Ultima edición por Angel el Jue 16 Abr, 2009 7:13 am, editado 2 veces |
|
| Volver arriba |
|
|
rafaelr
Cdt
Registrado: 05 Ago 2008Mensajes: 15
|
| Publicado: Mie 15 Abr, 2009 7:58 pm Asunto: GRACIAS |
|
|
| Bueno angel esa fue la primera idea que s eme vino al alcabeza pero ya lo mejore muchisimas gracias por tu valiosa ayuda |
|
| Volver arriba |
|
|
likibuay
Master
Registrado: 24 Abr 2006Mensajes: 190Ubicación: COLOMBIA
|
|
| Volver arriba |
|
|
rafaelr
Cdt
Registrado: 05 Ago 2008Mensajes: 15
|
|
| Volver arriba |
|
|
vizca321
Lt
Registrado: 06 May 2008Mensajes: 83Ubicación: Mexico
|
| Publicado: Jue 23 Abr, 2009 1:29 am Asunto: Re: ayudas con fechas |
|
|
Utiliza esto a ver que te parece
| Código: | void __fastcall TForm1::MonthCalendar1Click(TObject *Sender)
{
char days[7][10] = {"Domingo", "Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sabado" };
TDateTime dtDate = StrToDate(MonthCalendar1->Date.DateString());
Label1->Caption="Hoy es: "+MonthCalendar1->Date.DateString() + AnsiString(" y es ") + days[dtDate.DayOfWeek() - 1];
} |
|
|
| Volver arriba |
|
|
Angel
Master
Registrado: 15 Abr 2003Mensajes: 2311Ubicación: Toledo (España)
|
| Publicado: Jue 23 Abr, 2009 7:13 am Asunto: Re: ayudas con fechas |
|
|
| vizca321 escribió: | Utiliza esto a ver que te parece
| Código: | void __fastcall TForm1::MonthCalendar1Click(TObject *Sender)
{
char days[7][10] = {"Domingo", "Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sabado" };
TDateTime dtDate = StrToDate(MonthCalendar1->Date.DateString());
Label1->Caption="Hoy es: "+MonthCalendar1->Date.DateString() + AnsiString(" y es ") + days[dtDate.DayOfWeek() - 1];
} |
|
Para que te diga el día de la semana, más sencillo:
| Código: | Label1->Caption = "Hoy es: " + Date().FormatString("mm/dd/yyyy") + " y es " + Date().FormatString("dddd"); |
_________________
Un saludo
Necesitamos tu ayuda: Envía AI al 27595 (Coste 1,20 euros + IVA) |
|
| Volver arriba |
|
|
vizca321
Lt
Registrado: 06 May 2008Mensajes: 83Ubicación: Mexico
|
| Publicado: Vie 24 Abr, 2009 12:09 am Asunto: Re: ayudas con fechas |
|
|
| Angel escribió: | Para que te diga el día de la semana, más sencillo:
| Código: | Label1->Caption = "Hoy es: " + Date().FormatString("mm/dd/yyyy") + " y es " + Date().FormatString("dddd"); |
|
Cada dia se aprende mas y si lo quiere para un TMonthCalendar lo puede colocar en el evento de OnClick del MonthCalendar de la siguiente manera
| Código: | void __fastcall TForm1::MonthCalendar1Click(TObject *Sender)
{
Label1->Caption = "Hoy es: " + MonthCalendar1->Date.FormatString("dd/mm/yyyy") + " y es " + MonthCalendar1->Date.FormatString("dddd");
} |
|
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
