alexa-tracking

Main Content

1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/530996a6148b46a3198b4699/ask-programer-delphi-masuk-pliss
[ask] programer delphi masuk pliss
[ask] programer delphi masuk pliss
gan ane mau cari "lama kerja pegawai" kuarang lebih form nya kayak yang diatas mohon pencerahaannya gan, ane ga tau. mohon bantuannya emoticon-Matabelo emoticon-Matabelo.
tolong dong share coding nya gan
sepiii emoticon-Sundul Gan (S)

Cara Nubitol

Code:

uses dateutils;
//......
procedure TForm1.Button1Click(Sender: TObject);
var
A,B : TDateTime;
begin
A := DateTimePicker1.Date;
B := Today;
ShowMessage('Lama Kerja : '+ IntToStr(YearsBetween(B,A))+ ' Tahun, '+
IntToStr(MonthsBetween(B,A))+ ' Bulan');
end;

emoticon-Ngacir
harinya nyusul......emoticon-Ngakak
emoticon-Big Grin
hmm...
Code:

ShowMessage('Lama Kerja : '+ IntToStr(YearsBetween(B,A))+ ' Tahun, '+
IntToStr(MonthsBetween(B,A)-(12*YearsBetween(B,A)))+ ' Bulan, '
+ IntToStr(DayOfTheMonth(B))+' Hari');
emoticon-Ngakak baru dicek salah
Code:

ShowMessage('Lama Kerja : '+ IntToStr(YearsBetween(B,A))+ ' Tahun, '+
IntToStr(MonthsBetween(B,A)-(12*YearsBetween(B,A)))+ ' Bulan, '+
IntToStr(DaysBetween(B,A)- ((MonthsBetween(B,A)-(12*YearsBetween(B,A))) * DaysInMonth(B)))+' Hari');
mudah"an berhasil gan ane coba dulu emoticon-Matabelo
[ask] programer delphi masuk pliss

harinya gan kok g sesuai emoticon-Matabelo
gan itu yang format di datetimepickernya "bulan,hari,tahun"
Quote:Original Posted By ebloceblo
[ask] programer delphi masuk pliss

harinya gan kok g sesuai emoticon-Matabelo


Loe modif sendiri kan bisa ... emoticon-Malu (S)
×