SoloCodigo

Con eso puede capturar la hora y la fecha de la maquina(DateTimePicker1), si lo que quieres es la fecha y hora actual de la PC solo tienes que poner esto...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption = DateTimePicker1->DateTime.CurrentDateTime();
}


y si lo que deseas es solamente la hora:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label1->Caption = DateTimePicker1->Time.CurrentTime();
}

saludos, espero que sea lo que buscas

Hola Black Boy:

esta muy lindo eso pero seria mas sencillo si solo inlcuyes la libreria Time.h y en el componente que desees asignas el resultado [es AnsiString] de esta funcion

DateTimeToStr(Time())


Asi obtienes la fecha y la hora juntitos !!!!!!


Salu2,

         

LordFord

Hola:

Es sencillo amigo, no tienes que implementar nada, solo hacer esto:



Eso es todo !!!!!!!!!

Salu2,

         

LordFord

Hola a todos, existe alguna función que en base a lafecha me determine que dia de la semana es (Lunes, Martes, Miercoles,etc.) sólamente en nombre del dia.


Gracias

Saludos

Eso Me "funciona"  pero me captura una  fecha  errada una fecha que no es ...


no sabes si ha ese codigo le falta algo???

Gracias y Saludos

A tienes uan maera facil de hacer lo que buscas no es necesario ningun .h:

CODIGO
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 Label1->Caption=TimeToStr(Time());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 Label2->Caption=DateTimeToStr(Date());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 Label3->Caption=DateTimeToStr(Date())+"   "+TimeToStr(Time());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 Label4->Caption=TimeToStr(Time());
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
 Label4->Caption=TimeToStr(Time());
}
//---------------------------------------------------------------------------

Necesitas:
4 Labels
3 Button
1 Timer (System)

Suerte

Para saber a que dia de la semana corresponde determinada fecha, puedes hacer algo como lo siguiente:

Suponiendo que la fecha la tego guardada en una variable dMiFecha, yo lo haría así:


Saludos!