¿cuántos días desde el comienzo del año
función DayOfYear(ADate: TDateTime): Integer
var
& nbsp & nbsp FirstDate: TDateTime
& nbsp & nbsp AAAA, MM, DD: Word
begin
& nbsp & nbsp DecodeDate(ADate, AAAA, MM, DD)
& nbsp & nbsp FirstDate := EncodeDate(AAAA, 1, 1)
& nbsp & nbsp Resultado := Trunc(ADate - FirstDate) 1
fin
El dia de año
El dia de año : Multi-millones de consejos para hacer su vida mas facil.
¿cuantos dias desde el comienzo del año
funcion DayOfYear(ADate: TDateTime): Integer
var
& nbsp & nbsp FirstDate: TDateTime
& nbsp & nbsp AAAA, MM, DD: Word
begin
& nbsp & nbsp DecodeDate(ADate, AAAA, MM, DD)
& nbsp & nbsp FirstDate := EncodeDate(AAAA, 1, 1)
& nbsp & nbsp Resultado := Trunc(ADate - FirstDate) 1
fin
