Date et mysql
cs_stailer
Messages postés
507
Date d'inscription
jeudi 28 mars 2002
Statut
Membre
Dernière intervention
13 mai 2009
-
1 juil. 2003 à 23:26
WinLin Messages postés 86 Date d'inscription dimanche 13 février 2005 Statut Membre Dernière intervention 3 septembre 2007 - 11 août 2005 à 11:54
WinLin Messages postés 86 Date d'inscription dimanche 13 février 2005 Statut Membre Dernière intervention 3 septembre 2007 - 11 août 2005 à 11:54
6 réponses
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
6 juil. 2003 à 10:25
6 juil. 2003 à 10:25
Voir la fonction FormatDateTime.
May Delphi be with you
May Delphi be with you
WinLin
Messages postés
86
Date d'inscription
dimanche 13 février 2005
Statut
Membre
Dernière intervention
3 septembre 2007
11 août 2005 à 11:30
11 août 2005 à 11:30
j'ai le meme problème je cherche a le resoudre
moi je vois qu'un traitement de chaine a la main
pour l'instant j'ai essayer des formatage de date mais sa ne passe pas
style a ceci
datevarentree1:=fichesignal.DBEdit18.Text; <- dbedit prend une date d'une table et me le tape au format 01/07/03
fieldbyname('dateentreeout').asdatetime:=FormatDateTime('YYYY/mm/dd', strtodatetime(datevarentree1));
et je doit reprendre ces valeur et les remettre dans une autre table
grr
je pense etre obliger de crée trois variable
day <-deux premier caractere
month <- Trois et quatrieme caractere
year <- cing et sixieme caractere
et faire un year/month/day et faire un strtodate et le remettre dans la table
pour l'instant je vois que cela
delphi prog si tu as une soluce autre plus artistique cela m'interesse
moi je vois qu'un traitement de chaine a la main
pour l'instant j'ai essayer des formatage de date mais sa ne passe pas
style a ceci
datevarentree1:=fichesignal.DBEdit18.Text; <- dbedit prend une date d'une table et me le tape au format 01/07/03
fieldbyname('dateentreeout').asdatetime:=FormatDateTime('YYYY/mm/dd', strtodatetime(datevarentree1));
et je doit reprendre ces valeur et les remettre dans une autre table
grr
je pense etre obliger de crée trois variable
day <-deux premier caractere
month <- Trois et quatrieme caractere
year <- cing et sixieme caractere
et faire un year/month/day et faire un strtodate et le remettre dans la table
pour l'instant je vois que cela
delphi prog si tu as une soluce autre plus artistique cela m'interesse
WinLin
Messages postés
86
Date d'inscription
dimanche 13 février 2005
Statut
Membre
Dernière intervention
3 septembre 2007
11 août 2005 à 11:46
11 août 2005 à 11:46
Je vous met toute ma procedure
Voila delphi prog moi ca tourne
rocedure Tbondesortie.Mettresurlebondesortiedustock1Click(
Sender: TObject);
var datevar : string;
timevar : string;
datevarentree1 : string;
month : string;
day : string;
year : string;
newdate : string;
begin
{ Ici nous allons mettre une bar sur un bon de sortie
et mettre toutes les référence d'une bar dans une table qui contiens tout le stock
}
ShortDateFormat:='YYYY/mm/dd';
datevar:=datetostr(now);
timevar:=timetostr(now);
datevarentree1:=fichesignal.DBEdit18.Text;
day:=copy(fichesignal.DBEdit18.Text,0,3);
month:=copy(fichesignal.DBEdit18.Text,4,2);
year:=copy(fichesignal.DBEdit18.Text,7,4);
newdate:=year + '/' + month + '/' + day;
with datamodule1.ajoutsortie do
begin
insert;
fieldbyname('clefout').AsString:=label5.Caption;
fieldbyname('login').AsString:='Mono-User';
fieldbyname('dateout').asdatetime:=strtodate(datevar);
fieldbyname('heureout').AsDatetime:=strtotime(timevar);
fieldbyname('reffrnsout').asstring:=fichesignal.DBEdit1.Text;
fieldbyname('statusout').asstring:=fichesignal.DBEdit2.Text;
fieldbyname('dateentreeout').asdatetime:=strtodate(newdate);
fieldbyname('codeartmatout').AsString:=fichesignal.dbedit5.text;
fieldbyname('emplacementout').asstring:=fichesignal.dbedit6.text;
fieldbyname('qtout').asfloat:=strtofloat(fichesignal.DBEdit7.text);
if length(fichesignal.DBEdit8.Text) = 0 then fieldbyname('numseriedosout').asstring:='Neant';
if length(fichesignal.DBEdit8.Text) <> 0 then fieldbyname('numseriedosout').asstring:=fichesignal.DBEdit8.Text;
fieldbyname('certifmatout').asstring:=fichesignal.dbedit9.Text;
if length(fichesignal.DBMemo1.Text) = 0 then fieldbyname('remarqueout').AsString:='NEANT';
if length(fichesignal.DBMemo1.Text) <> 0 then fieldbyname('remarqueout').AsString:=fichesignal.DBMemo1.Text;
fieldbyname('localisationout').AsString:=fichesignal.DBEdit10.Text;
fieldbyname('dim1out').asfloat:=strtofloat(fichesignal.DBEdit11.text);
fieldbyname('dim2out').asfloat:=strtofloat(fichesignal.DBEdit12.Text);
fieldbyname('dim3out').asfloat:=strtofloat(fichesignal.DBEdit13.Text);
fieldbyname('dim4out').asfloat:=strtofloat(fichesignal.DBEdit14.text);
fieldbyname('poidsout').asfloat:=strtofloat(fichesignal.DBText1.Caption);
fieldbyname('typedemesureout').asstring:=fichesignal.DBText2.Caption;
fieldbyname('clefinstockout').asstring:=fichesignal.DBEdit15.Text;
fieldbyname('poidtotalout').asfloat:=strtofloat(fichesignal.DBEdit16.Text);
fieldbyname('splitbarout').asfloat:=strtofloat(fichesignal.dbedit17.Text);
post;
end;
datamodule1.listsortie.Active:=false;
datamodule1.listsortie.Params[0].AsString:=label5.Caption;
datamodule1.listsortie.Active:=true;
end;
Winlin
Voila delphi prog moi ca tourne
rocedure Tbondesortie.Mettresurlebondesortiedustock1Click(
Sender: TObject);
var datevar : string;
timevar : string;
datevarentree1 : string;
month : string;
day : string;
year : string;
newdate : string;
begin
{ Ici nous allons mettre une bar sur un bon de sortie
et mettre toutes les référence d'une bar dans une table qui contiens tout le stock
}
ShortDateFormat:='YYYY/mm/dd';
datevar:=datetostr(now);
timevar:=timetostr(now);
datevarentree1:=fichesignal.DBEdit18.Text;
day:=copy(fichesignal.DBEdit18.Text,0,3);
month:=copy(fichesignal.DBEdit18.Text,4,2);
year:=copy(fichesignal.DBEdit18.Text,7,4);
newdate:=year + '/' + month + '/' + day;
with datamodule1.ajoutsortie do
begin
insert;
fieldbyname('clefout').AsString:=label5.Caption;
fieldbyname('login').AsString:='Mono-User';
fieldbyname('dateout').asdatetime:=strtodate(datevar);
fieldbyname('heureout').AsDatetime:=strtotime(timevar);
fieldbyname('reffrnsout').asstring:=fichesignal.DBEdit1.Text;
fieldbyname('statusout').asstring:=fichesignal.DBEdit2.Text;
fieldbyname('dateentreeout').asdatetime:=strtodate(newdate);
fieldbyname('codeartmatout').AsString:=fichesignal.dbedit5.text;
fieldbyname('emplacementout').asstring:=fichesignal.dbedit6.text;
fieldbyname('qtout').asfloat:=strtofloat(fichesignal.DBEdit7.text);
if length(fichesignal.DBEdit8.Text) = 0 then fieldbyname('numseriedosout').asstring:='Neant';
if length(fichesignal.DBEdit8.Text) <> 0 then fieldbyname('numseriedosout').asstring:=fichesignal.DBEdit8.Text;
fieldbyname('certifmatout').asstring:=fichesignal.dbedit9.Text;
if length(fichesignal.DBMemo1.Text) = 0 then fieldbyname('remarqueout').AsString:='NEANT';
if length(fichesignal.DBMemo1.Text) <> 0 then fieldbyname('remarqueout').AsString:=fichesignal.DBMemo1.Text;
fieldbyname('localisationout').AsString:=fichesignal.DBEdit10.Text;
fieldbyname('dim1out').asfloat:=strtofloat(fichesignal.DBEdit11.text);
fieldbyname('dim2out').asfloat:=strtofloat(fichesignal.DBEdit12.Text);
fieldbyname('dim3out').asfloat:=strtofloat(fichesignal.DBEdit13.Text);
fieldbyname('dim4out').asfloat:=strtofloat(fichesignal.DBEdit14.text);
fieldbyname('poidsout').asfloat:=strtofloat(fichesignal.DBText1.Caption);
fieldbyname('typedemesureout').asstring:=fichesignal.DBText2.Caption;
fieldbyname('clefinstockout').asstring:=fichesignal.DBEdit15.Text;
fieldbyname('poidtotalout').asfloat:=strtofloat(fichesignal.DBEdit16.Text);
fieldbyname('splitbarout').asfloat:=strtofloat(fichesignal.dbedit17.Text);
post;
end;
datamodule1.listsortie.Active:=false;
datamodule1.listsortie.Params[0].AsString:=label5.Caption;
datamodule1.listsortie.Active:=true;
end;
Winlin
WinLin
Messages postés
86
Date d'inscription
dimanche 13 février 2005
Statut
Membre
Dernière intervention
3 septembre 2007
11 août 2005 à 11:49
11 août 2005 à 11:49
juste il faut remettre la variable Newdate a blanc avant j'avais oublier
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
WinLin
Messages postés
86
Date d'inscription
dimanche 13 février 2005
Statut
Membre
Dernière intervention
3 septembre 2007
11 août 2005 à 11:51
11 août 2005 à 11:51
juste il faut remettre la variable Newdate a blanc avant j'avais oublier
il faut mettre newdate a blanc
newdate:=''; sinon il garde des truc en memoir
il faut mettre newdate a blanc
newdate:=''; sinon il garde des truc en memoir
WinLin
Messages postés
86
Date d'inscription
dimanche 13 février 2005
Statut
Membre
Dernière intervention
3 septembre 2007
11 août 2005 à 11:54
11 août 2005 à 11:54
juste il faut remettre la variable Newdate a blanc avant j'avais oublier
il faut mettre newdate a blanc
newdate:=''; sinon il garde des truc en memoir
il faut mettre newdate a blanc
newdate:=''; sinon il garde des truc en memoir