termins dato

Prøv f.eks. at se her, hvis du blot mangler funktioner til arbejde med datoer: http://www.howtodothings.com/computers/a1100-delphi-version-of-vb-dateadd.html

VAR
  Dato : TDateTime;

begin
  Dato := EncodeDate(2005,9,28);
  Dato := IncDays(Dato,7);
  Dato := IncYear(Dato,1);
  Dato := IncMonths(Dato,-3);
  ShowMessage('Min kæreste har termin : '+DateToStr(Dato));
end;

du kan også kigge på FormatDateTime() til udskrivningen

Martinlind -> den linie du har skrevet hvor der står - dato := encodedate(2005,9,28)
kan den laves sådan at man kan vælge datoen fra en datetimepicker og derfra bruge de andre strenge som står skrevet?

Dato := DateTimePicker1.Date

:-)

Hvorfår lægger du ikke bare 280 dage til (9 måneder + 7 dage)?

Label1.Caption := DateToStr(StrToDate(Edit1.Text) + 280);

TForm1 = class(TForm)
    ...
  public
    function GetTermin(const aYYYY, aMM, aDD: word): TDateTime; overload;
    function GetTermin(const aDate: TDateTime): TDateTime; overload;
  end;

implementation

uses
  DateUtils;

function TForm1.GetTermin(const aDate: TDateTime): TDateTime;
const
  DraegtighedsPeriode = 280; // ... flatterende konstantnavn, ikke?
begin
  result := IncDay(aDate,DraegtighedsPeriode);
end;

function TForm1.GetTermin(const aYYYY, aMM, aDD: word): TDateTime;
begin
  result := GetTermin(EncodeDate(aYYYY, aMM, aDD));
end;

Duer ikke :-(

der er jo forskel på md længde, det er der IncMonth kommer ind i billedet :-)

Svangerskabs perioden er da lige lang uanset hvilke måneder vi har.

jeg får følgende fejl meddelelser

[DCC Error] gravidopdater.pas(65): E2003 Undeclared identifier: 'IncDays'
[DCC Error] gravidopdater.pas(67): E2003 Undeclared identifier: 'IncMonths'
[DCC Error] gravidopdater.pas(89): E2362 Cannot access protected symbol TControl.Text
[DCC Fatal Error] gravidlogin.pas(31): F2063 Could not compile used unit 'gravidopdater.pas'

her kommer hele min fil...

unit gravidopdater;

interface

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

type
  TForm4 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    birth: TDateTimePicker;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    Edit3: TEdit;
    Label6: TLabel;
    Edit4: TEdit;
    GroupBox3: TGroupBox;
    Label7: TLabel;
    lastmensa: TDateTimePicker;
    Label8: TLabel;
    ComboBox2: TComboBox;
    GroupBox4: TGroupBox;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Button1: TButton;
    Edit5: TEdit;
    Panel1: TPanel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure lastmensaExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
VAR
  Dato : TDateTime;

begin
  Dato := lastmensa.Date;
  Dato := IncDays(Dato,7);
  Dato := IncYear(Dato,1);
  Dato := IncMonths(Dato,-3);
  ShowMessage('Min kæreste har termin : '+DateToStr(Dato));

end;

procedure TForm4.Button3Click(Sender: TObject);
begin
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
combobox1.Text:='Vælg køn...';
combobox2.Text:='Dage imellem din mens...';
end;

procedure TForm4.Button4Click(Sender: TObject);
begin
close;
end;

procedure TForm4.lastmensaExit(Sender: TObject);
begin
label10.Caption:=lastmensa.text;
end;

end.

hvad er min fejl

Sikkert bare fordi jeg ikke kan huske/stave du kan stille dig på DateUtils og trykke F1 så skulle du få hjælp til de dato rutiner der er ( så kan du finde IncDay(s) og de andre :-)

Nu skal du til at skynde dig, for ellers er du blevet far inden programmet kører - og så får du ikke tid til at lege med det mere :-)