Delphi: belirlemek ve boş TDateTime değeri

Question

bir " atanmamış değer" değişkenler TDateTime ya

beklediğimizden tek yolu kullanıyor ( NULL atamak için bir yolu yoktur görünüyor nasıl. böyle bir şey:

function isNull(aDate : TDateTime) : boolean; 
const NullDate = 0.0; 
var aNullDate : TDatetime; 
    ms : Int64; 
begin 
    aNullDate := NullDate; 
    ms := MilliSecondsBetween(aDate,aNullDate); 
    result := (ms = Int64(0)); 
end; 

0 tarih değerini örtüşür değil ne daha iyi bir çözüm bilen kimse var mı

neg musunuz? ative TDateTime değerleri tehlikeli midir?

Answer 1

, TDateTime türü "null" aslında double ve böylece değildir. Bu 00/00/0000 imkansız bir tarih temsil ettiği gibi bir boş zaman değeri için

const 
    c_UnassignedDate = -693594; 

kullanın. Ama örneğin DevExpress

NullDate = -700000; 
InvalidDate = NullDate + 1; 

Yani hayır, size ihtiyacı uygun olanı seçmelidir standart vale kararlaştırılacak görünüyor kullanır.

Answer 2

İlk (önceki amaçla yetenekli bir kaynak olarak) size 'boş TDateTime değeri' ile ne demek tanımlamanız gerekir.

bir TDateTime değeri tam sayı kısmı ve fraksiyonel kısmında kodlanmış zaman kodlanmış tarihi ile iki katıdır. Yani, 'null date' için en yakın şey muhtemelen 0'dur.

Dolayısıyla, sadece tarih 'boş' olup olmadığını test etmek ADate <> 0 test edin.

Ancak dikkat: TDateTime yerel değişkenini bildirirseniz, bir değer vermeden önce mutlaka =0 olmaz. Her şey olabilir. Tabii ki, aynı şey değere 0 ile TDateTime tarihi 1899/12/30 kodlar inanıyoruz ... tip integer, double, boolean, değişkenlerine Ayrıca

geçerlidir.

Son olarak, negatif TDateTime değerler ve normaldir. Örneğin, -5000, 1886-04-22'a karşılık gelir.

Kodunuzu tam olarak anlamıyorum. Eğer (eğer 1899-12-30 yakın tarihlerde ilgileniyorsanız kötü) 'atanmamış' değeri olarak 0 kullanmak istiyorsanız, neden olasılıkla (ama eşit biçimde, sadece

function IsUnassigned(ADate: TDateTime): boolean; 
begin 
    result := ADate = 0; 
end; 

ya da değil!), Cevaben

function IsUnassigned(ADate: TDateTime): boolean; 
begin 
    result := IsZero(Date); 
end; 

, ain 'atanmamış tarihi' değeri için daha makul seçimler bir çift verdi. Andreas zaten yazdığı gibi

Answer 3

PDateTime yerine TDateTime kullanın ve sıfır değeri olarak gönderin. Değer verilecek bir değer yoksa, sonuç değeri olmaz.

değeri kullanımı Atanan ptr kontrol etmek için:

MyDatePointer := nil; 
if (Assigned(MyDatePointer)) then ... 

Answer 4

TDateTime 0 ile -1 arasındaki değerler için tanımsız -0.5 bir TDateTime alternatif olarak boş bir tarih için tanımlanmamış bir değer ve kullanışlı olduğu anlamına gelir NaN'ye DateTimeToString, -0.5'i +0.5 ile aynı görüntüler;