...estrazione.data:=strtodatetime('%%d/%%d/%%d',[dc.giorno,dc.mese,dc.anno])); "NB" <nIX@IXl.com> ha scritto nel messaggio news:fq9ts2$fiu$1@aioe.org... allora... in una funzione salvo un dato tipo tdate su un file, in un'altra lo prelevo... ma la data ГЁ sempre la stessa.. come mai? procedura di salvataggio type testrazione=record data:tdatetime; end; var estrazione:...
allora... in una funzione salvo un dato tipo tdate su un file, in un'altra lo prelevo... ma la data ГЁ sempre la stessa.. come mai? procedura di salvataggio type testrazione=record data:tdatetime; end; var estrazione:testrazione; festrazioni:file of testrazione; posizione:integer; begin assignfile(festrazioni,'Estrazioni.dat'); rewrite(festrazioni); posizione:=0; repeat seek(fc,...
...E questa e` la procedura di base: procedure CreaFilePeriodo(nomefile: string; DataIniziale: TDate); var indice, j, c: Integer; // Assegnati conterra` i nomi dei turnisti assegnati... // un'estrazione casuale Assegnati: array [0..10] of string; Data: TDate; Puoi provarlo facilmente copiandolo direttamente in Delphi 3... ma ovviamente va sistemato per ...
...', 'Mario'); E questa e` la procedura di base: procedure CreaFilePeriodo(nomefile: string; DataIniziale: TDate); var indice, j, c: Integer; // Assegnati conterra` i nomi dei turnisti assegnati con // un'estrazione casuale Assegnati: array [0..10] of string; Data: TDate; FileTesto: TextFile; Nomi: TStringList; const separatore = '; '; // Questa e` una ...
"Giorgio" <giorgio@giorgione.it> ha scritto nel messaggio news:47c99908$0$16024$5fc30a8@news.tiscali.it... Non manca la funzione format ? estrazione.data:=strtodatetime('%%d/%%d/%%d',[dc.giorno,dc.mese,dc.anno])); ma porco di un cane... ero convinto di avercela messa!
.... I use D2007, BDE 5.2, Firebird 2.1 (Dialect 3). A TQuery failed to locate on a date field. Is there any workaround or any comment? Thanks in advance, Rozan Sample Code: var tmpDate : TDate; begin tmpDate := Date; //TransDate field is a TDateField, //the following Locate never returns True !! if qrySample.Locate ('TransDate', tmpDate, []) then .... end;
... Come si fa a calcolare quanti giorni passano tra una data e l'altra? La differenza tra due TDate ГЁ in giorni, quindi: var DTStart, DTEnd: TDate; GGDiff: Integer; ... DTStart := EncodeDate(2007, 10, 14); DTEnd := EncodeDate(2007, 10, 20); GGDiff := DTEnd-DTStart; Le date sono in due ...
.../2006 al 31/10/2006 = 31 giorni (mi occorre sapere i giorni tra le due date, insomma). La differenza tra due TDate ГЁ in giorni, quindi: var DTStart, DTEnd: TDate; GGDiff: Integer; ... DTStart := EncodeDate(2007, 10, 14); DTEnd := EncodeDate(2007, 10, 20); GGDiff := DTEnd-DTStart;
