Merhaba,
LObjects ile kullanabileceğiniz hazır metod var zaten:
Sub PackTime (h As Long, m As Long, s As Long, tm)Zaman bilgisi veritabanında bazı alanlarda Long integer değer olarak tutulur. Bu yöntem zaman bilgisinden kaynaklanabilecek sorunları minimize eder. Zaman bilgisini LBS Long integer formatına dönüştürmek için bu metodu kullanırız. Metoda Saat, Dakika ve Saniye bilgilerini geçeriz. Zamanın formatlanmış hali Long integer değer olarak tm parametresinde döner. Aşağıda zaman formatlama işleminde kullanılan formül anlatılmıştır.
Zaman için kullanılan yöntem aşağıdadır ;
Zaman = 2^24*Hour + 2^16*Minute + 2^8*Second + 2^0*Milisecond yani ;
Zaman = Milisaniye + 256 x Saniye + 65536 x Dakika + 16777216 x Saat
Ya da size Delphi'de hazır bir function vereyim siz syntax'i Asp.Net'e çevirirsiniz.
function GetLogoIntTime : integer;
var
fHour, fMin,
fSec, fMSec : word;
begin
DecodeTime(Time, fHour, fMin, fSec, fMSec);
result := fMSec + (256*fSec) + (65536*fMin) + (16777216*fHour);
end;
Not: Delphi unit'te uses kısmına DateUtils eklenmeli!
www.mdt.biz.tr