1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
#include <StrUtils.hpp>
#include <DateUtils.hpp>
TDateTime MaStructureToDateTime(AnsiString DateTime_String)
{
TDateTime Date;
try
{
AnsiString Year=LeftStr(DateTime_String,4);//Prendre les 4premiers carractères(année)
AnsiString Month=LeftStr(RightStr(DateTime_String,4),2);//Prendre le 5,et 6eme carractère(mois)
AnsiString Day=RightStr(DateTime_String,2);//Les deux derniers carractère(Jours)
Date=EncodeDateTime((Word)StrToInt(Year),(Word)StrToInt(Month),(Word)StrToInt(Day),0,0,0,0);
}
catch(...)
{
ShowMessage("Erreur de l'encodage de la date");
}
return (Date);//L'encoder dans une variable de type TDateTime, sans prendre en compte l'heure, minute, secondes
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TDateTime Var=MaStructureToDateTime("20061124");
ShowMessage(Var.DateString());
} |
Partager