Arsip: kalendar dalam tahun

 
user image
more 13 years ago

vera

mas2, maaf vera nanya lagi, vera mo bkin kalendar dlam setahun. -gmana caranya dapetin jml hari dlm tahun yg bersangkutan -menggroupkan dlm bulan jml hari tsb -mendapatken nama hari tsb dlm bln dan tahun yg telah di tentukan sebelumnya . mksih
user image
more 13 years ago

n3o_cybertech

@vera: mungkin ada baiknya menyelidiki unit DateUtils...komplit tuh isinya...mendapatkan nama hari dapat dilakukan dengan cara :

function CekHari(dt: TDateTime): string;
var hari : array of string;
    bulan : array of string;
    y,m,d: word;
begin
DecodeDate(dt,y,m,d);
bulan[1]:='Januari';
bulan[2]:='Februari';
bulan[3]:='Maret';
bulan[4]:='April';
bulan[5]:='Mei';
bulan[6]:='Juni';
bulan[7]:='Juli';
bulan[8]:='Agustus';
bulan[9]:='September';
bulan[10]:='Oktober';
bulan[11]:='November';
bulan[12]:='Desember';
hari[1]:='Minggu';
hari[2]:='Senin';
hari[3]:='Selasa';
hari[4]:='Rabu';
hari[5]:='Kamis';
hari[6]:='Jumat';
hari[7]:='Sabtu';
Result:=hari[DayofWeek(NOW)] + ', ' + IntToStr(d) + '  ' + bulan[m] + '  ' + IntToStr(y);
end;
user image
more 13 years ago

vera

mksih mas neo cman aku bkinnya bgini . misal bulan 10 2008 s/d bulan 10 2009 nah aku dapetin hari selama tenggang waktu tsb(1 thun), kemudian aku msukan ke dalam string grid dalam bntuk format bulan tahun hari ke namahari ----------------------------------------- aku bikin nya bru bisa perbulan satu2 nah gmana caranya agar otomatis mengegnerate ke dalam stringgrid selama setahun tsb

var
  Form1: TForm1;
  DaysInYear: array[1..12] of Integer =
  (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
  Days, Month, Year: Word;
  JMLhari: integer;

implementation
{$R  .DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
  Present: TDateTime;
begin
  Present := Now;
  DecodeDate(Present, Year, Month, Days);
  Ed1.Text := IntToStr(Month);
  Ed2.Text := IntToStr(Year);
end;
procedure TForm1.btn1Click(Sender: TObject);
var i: integer;
begin
  Month := StrToInt(Ed1.Text);
  Year := StrToInt(Ed2.Text);
  if (IsLeapYear(Year) = True) and (Month = 2) then
    Days := DaysInYear[Month] + 1
  else Days := DaysInYear[Month];
  Lbl1.Caption := IntToStr(Days) + ' days in ' + Ed2.text + ' year';
  JMLhari := Days;

end;
procedure TForm1.btn2Click(Sender: TObject);
var i: integer;
begin
// StringGrid1.
  i := 0;
  StringGrid1.RowCount := JMLhari + 1;
  for i := 1 to JMLhari do
  begin
    StringGrid1.Cells[0, i] := IntToStr(i);
    StringGrid1.Cells[1, i] := bulannama(Month);
    StringGrid1.Cells[2, i] := IntToStr(Year);
//    Inc(month);
  end;
end;
function TForm1.bulannama(abulan: integer): string;
begin
  Result := '';
  case abulan of
    1: Result := 'jan';
    2: Result := 'feb';
    3: Result := 'mar';
    4: Result := 'apr';
    5: Result := 'mei';
    6: Result := 'jun';
    7: Result := 'jul';
    8: Result := 'aug';
    9: Result := 'sep';
    10: Result := 'okt';
    11: Result := 'nov';
    12: Result := 'dec';

  end;
end;
[/code]
user image
more 13 years ago

vera

:cry: :cry: :cry: :cry: :cry:
user image
more 13 years ago

vera

:cry:
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com