| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Invitado
|
 Publicado: Dom 02 Nov, 2003 5:13 pm Asunto: Ultimo dia del mes |
 |
|
HOla a Todos:
Como saber el ultimo dia del mes (es decir si es 30,31 o 28, 29 en caso de febrero ) dependiendo del mes y el año que le ingrese.
Desde ya muchas gracias.. |
|
| Volver arriba |
|
 |
_Viktor
Master
Registrado: 20 Jul 2003Mensajes: 463Ubicación: Santiago, Los Angeles - Chile
|
| Publicado: Dom 02 Nov, 2003 6:29 pm Asunto: |
|
|
Hola, tan solo necesitas un TMonthCalendarñ y un TBuuton. Ojo con el formato de la fecha de el pc que tendra la aplicacione que yo separe a fecha de acuerdo al formato del mio.
| Código: | void __fastcall TForm1::Button2Click(TObject *Sender)
{
//Considerando que en mi pc esta en este formato dd/mm/aaaa
String Fecha = DateToStr(MonthCalendar1->Date);
String mes,anyo;
int dias = 31;
anyo = Fecha.SubString(Fecha.Length()-3,Fecha.Length());
mes = Fecha.SubString(4,2);
if (mes == "04" || mes == "06" || mes == "09" || mes == "11")
dias = 30;
if (mes == "02" && (StrToInt(anyo)%4)!=0)
dias = 28;
if (mes == "02" && (StrToInt(anyo)%4)==0)
dias = 29;
ShowMessage(IntToStr(dias)); |
Saludos y espero te sirva.
_________________
"Ser inteligente no es ser mas, solo equivocarse menos y no usar Visual Basic"
Atte.
Victor Yañez
Apoyen el Proyecto OpenSource del Club Builder. Ya tenemos componentes Listos!!! |
|
| Volver arriba |
|
|
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
|
| Volver arriba |
|
|
_Viktor
Master
Registrado: 20 Jul 2003Mensajes: 463Ubicación: Santiago, Los Angeles - Chile
|
|
| Volver arriba |
|
|
Gary
Cdt
Registrado: 12 Sep 2003Mensajes: 16Ubicación: Chile
|
| Publicado: Dom 02 Nov, 2003 11:33 pm Asunto: Gracias |
|
|
Gracias, Viktor y _Leo, por la ayuda. Por su tiempo 
Es super bueno, que alguien te ayude.
PD: Programando las ultimas lineas en c++ builder. Que fome que se acabe  |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
esta excelente...
