Coder l'heur en minute avec delphi 7
Fermé
sandra83
Messages postés
70
Date d'inscription
samedi 17 janvier 2009
Statut
Membre
Dernière intervention
15 juin 2011
-
26 mai 2011 à 13:30
sandra83 Messages postés 70 Date d'inscription samedi 17 janvier 2009 Statut Membre Dernière intervention 15 juin 2011 - 30 mai 2011 à 15:50
sandra83 Messages postés 70 Date d'inscription samedi 17 janvier 2009 Statut Membre Dernière intervention 15 juin 2011 - 30 mai 2011 à 15:50
A voir également:
- Coder l'heur en minute avec delphi 7
- Telecharger delphi 7 - Télécharger - Langages
- Telecharger photofiltre 7 gratuit - Télécharger - Retouche d'image
- Le code ascii en informatique - Guide
- Movie maker windows 7 - Télécharger - Montage & Édition
- Application pour apprendre à coder - Guide
2 réponses
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
uses DateUtils;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var TimeDonne : String;
function ConvertToMin(TimeStr : String) : Double;
var Time : TDateTime;
Heure, Min, Sec, MillSec : Word;
begin
Time := StrToTime(TimeStr);
DecodeTime(Time, Heure, Min, Sec, MillSec);
Result := (Heure * 60) + Min + (Sec / 60) + 00;
end;
begin
TimeDonne := '10:10:15'; // Valeur à passer en paramètre
ShowMessage(FloatToStr(ConvertToMin(TimeDonne))+ ' Min');
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
uses DateUtils;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var TimeDonne : String;
function ConvertToMin(TimeStr : String) : Double;
var Time : TDateTime;
Heure, Min, Sec, MillSec : Word;
begin
Time := StrToTime(TimeStr);
DecodeTime(Time, Heure, Min, Sec, MillSec);
Result := (Heure * 60) + Min + (Sec / 60) + 00;
end;
begin
TimeDonne := '10:10:15'; // Valeur à passer en paramètre
ShowMessage(FloatToStr(ConvertToMin(TimeDonne))+ ' Min');
end;
end.
1 - Si dh est de vocation difference horaire, il manque les deux termes de la difference h1, h2 tel que dh = h1 - h2 avec ou sans condition h1 >= h2.
2 - Il est déconseillé d'utiliser des tableaux dynamiques ou des pointeurs dans l'implémentation d'un fichier, il faut recourir à d'autres techniques qui consistent à effectuer les calculs séparément et les sauvegarder ensuite, la classe TStringList répond au besoin, vous pouvez ensuite transferer les données de la liste vers un fichier sequentiel ou binaire de votre choix.
2 - Il est déconseillé d'utiliser des tableaux dynamiques ou des pointeurs dans l'implémentation d'un fichier, il faut recourir à d'autres techniques qui consistent à effectuer les calculs séparément et les sauvegarder ensuite, la classe TStringList répond au besoin, vous pouvez ensuite transferer les données de la liste vers un fichier sequentiel ou binaire de votre choix.
sandra83
Messages postés
70
Date d'inscription
samedi 17 janvier 2009
Statut
Membre
Dernière intervention
15 juin 2011
30 mai 2011 à 15:50
30 mai 2011 à 15:50
bonjour;
s'il vous plai est ce que vous pouvez m'expliquer un peu plus ou bien me donner un éxemple parce que je suis débutante avec delphi,
merci.
s'il vous plai est ce que vous pouvez m'expliquer un peu plus ou bien me donner un éxemple parce que je suis débutante avec delphi,
merci.
29 mai 2011 à 16:25
j'ai bien réussi a résoudre le problème de minute, maintenant j'ai un autre problème concernant le même fichier qui contient des enregistrements : ip, url, dh
dh représente le temps en minute,
je veux calculer la différence entre deux lignes successive et mettre le résultat dans la première ligne,
donc j'ai considéré mon fichier comme un fichier séquentiel sous forme de tableau dynamique qui contient n lignes et 3 colonnes, donc il est coder comme ceci
donc le problème c'est que je ne sais pas comment faire pour ouvrir mon fichier , le transformer en tableau et faire mon calcule,
voila ma proposition pour le calcule:
j'espère que vous pouvez m'aider.