arbejdstid

Det behøver du ikke et program til. Det kan du lave i MS Excel.

Eller kan du kigge på www.downloads.com

~friiser~

http://www.radio-online.dk

Vil du kun gemme tiderne for 1 uge eller vil du gemme alle tider løbende ?

Stoney

Hvis du bruger TDateTime-typen, så kan du udregne det sådan.

TDateTime er sådan set bare en Double som du kan regne med. Den er opbygget således:

En dag = 1
En time = 1/24
Et minut = 1/24/60
Et sekund = 1/24/60/60
Et milisekund = 1/24/60/60/1000

Så burde du med lidt matematik kunne udregne hvor mange arbejdstimer du har brugt.

//hermandsen

Du skal kigge på D6 der er en helt nye DateTime rutiner og noge der regner ud hvor mange min. der er mellem to tider

/Martin

det nemmeste er hvis du lader dit program beregne tiden for dig .. Du åbner programmer når du møder og lukker det når du går hjem ..

Ja det ser jo godt nok ud alt sammen
Men er der ikke en der har en program kode så jeg kan se hvordan man gør
TAK

Borrisholt's ide er faktisk ret god...

private
  Tid: Cardinal;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Tid := GetTickCount;
end;

procedure TForm1.ButtonStopClick(Sender: TObject);
begin
  Tid := GetTickCount - Tid;
  Caption := Format('Du har arbejdet i: %d timer, %d minutter, %d sekunder og %d milisekunder. GÅ HJEM OG SLAP AF!!!', [Tid div (1000*60*60), (Tid div (1000*60)) mod 60, (Tid div 1000) mod 60, Tid mod 1000]);
end;

//hermandsen

Der er tusind måder at gøre det på, der er sådan lidt smag og behag

VAR
  SlutTid,
  StartTid,
  ArbTid : TDateTime;

procedure MyMainFormOnCreate( Sender : TObject );
begin
  StartTid := Now;
end;

procedure MyMainFormOnDestroy( Sender : TObject );
begin
  SlutTid := Now;
  ArbTid := MinutesBetween(StartTid,StutTid);
  // Gem tider, evt. i en flad fil, eller en DB
end;

/Martin

jeg har hacket en lille dims sammen som viser grund princippet. Den er ikke gennem testet på nogen måde .... Men den viser basic

Du kan hente den på http://borrisholt.com/eksperten/DIMS.zip

Jens B

Ideren er gode men det jeg søger er jo to felter hvor man kan skrive  start & sluttid i
Og en felt hvor den kan aflæsset i da jeg skal bruge tiden fra mit stempelkort

På forhånd
Tak
Ps
Helst en programkode

Form :
-------------------
object Form1: TForm1
  Left = 292
  Top = 111
  Width = 332
  Height = 240
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 8
    Width = 36
    Height = 13
    Caption = 'Mødt Kl'
  end
  object Label2: TLabel
    Left = 176
    Top = 8
    Width = 35
    Height = 13
    Caption = 'Gået Kl'
  end
  object Label3: TLabel
    Left = 104
    Top = 96
    Width = 49
    Height = 13
    Caption = 'Har arb i  :'
  end
  object Edit1: TEdit
    Left = 24
    Top = 24
    Width = 121
    Height = 21
    TabOrder = 0
    Text = '01-04-2002 16:45'
  end
  object Edit2: TEdit
    Left = 172
    Top = 24
    Width = 121
    Height = 21
    TabOrder = 1
    Text = '01-04-2002 17:40'
  end
  object Edit3: TEdit
    Left = 104
    Top = 112
    Width = 121
    Height = 21
    TabOrder = 2
    Text = 'Edit3'
  end
  object Button1: TButton
    Left = 124
    Top = 64
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 3
    OnClick = Button1Click
  end
end
--------------

Unit :
---------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
VAR
  Strx : String;
begin
  DateTimeToString(Strx,'hh:mm',TimeOf(StrToDateTime(Edit2.Text)-StrToDateTime(Edit1.Text)));
  Edit3.Text := Strx;
end;

end.


/Martin

Tusind tak hjælpen til martinlind
Hilsen per Olsen

Selv tak :)