sidiq's

function CalculateAge(Birthday, CurrentDate: TDate): Integer; var Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word; begin DecodeDate(Birthday, Year, Month, Day); DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay); if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then begin Result := 0; end else begin Result := CurrentYear - Year; if (Month > CurrentMonth) then Dec(Result) else begin if Month = CurrentMonth then if (Day > CurrentDay) then Dec(Result); end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := Format('Your age is %d', [CalculateAge(StrToDate('01.01.1903'), Date)]); end;

Untuk sisi aplikasi, ada 2 cara penyimpanan dan pengambilan data BLOB ini. Cara pertama menggunakan persistent field, i.e. kamu buat field2 di dataset kamu menggunakan Fields Editor (double klik dataset kamu aja, pasti tampil), dan cara kedua dengan dynamic field. Secara umum cara pertama lebih mudah. Berikut kodenya: (************************************************************************* Diasumsikan ada ADODataset bernama tblMyFiles yang berisi 3 buah persistent field bernama tblMyFilesID (utk field bernama 'ID'), tblMyFilesName (utk field bernama 'Name'), dan tblMyFilesBin (utk field bernama 'Bin') Field 'ID' cuma buat identity saja (primary key) bertipe int(eger) Field 'Name' buat nampung nama aslinya file yang disimpan Field 'Bin' buat nampung isi file *************************************************************************) // AFileName harus sudah berisi nama file yang valid yang ingin disimpan di database Procedure TForm1.Store...