Bem, nos três casos você usou uma variável horaInicial
e depois horaIncial
. Vou assumir que o i
faltando é um erro de digitação bobo apenas e não uma variável diferente.
Veja nesta página estes detalhes:
The date is set to 30 dec 1899, one day short of the 19th century.
Warning : the date value is set to 1 day short of the end of the 19th century. Exactly why is unclear.
Traduzindo para o português:
A data é definida para 30 dez 1899, um dia antes do fim do século 19.
Cuidado : o valor da data é definido para um dia antes do fim do século 19. Não é claro o porquê.
Veja esta outra:
It appears that the reason for Delphi starting at 30 Dec 1899 is to make it as compatible as possible with Excel while at the same time not adopting Excel's incorrectness about dates.
Because TDateTime is actually a double, you can perform calculations on it as if it were a number. This is useful for calculations such as the difference between two dates.
Traduzindo para o português:
Parece que o motivo para o Delphi começar no dia 30 Dez 1899 é fazer ele ser o mais compatível possível com o Excel sem no entanto adotar a incorretude do Excel acerca de datas.
Uma vez que o TDateTime é na verdade um double, você pode realizar cálculos nele como se fosse um número. Isto é útil para cálculos tais como diferenças entre duas datas.
Ou seja, um TDateTime
é um double aonde a parte inteira é um número de dias desde 30/12/1899 e a parte fracionária são frações de dias (horas, minutos, segundos, etc).
Vamos substituir suas variáveis por a
, b
, c
e d
para entender o que se passa e rastrear o valor dos double
s:
No seu caso 1, como a pergunta estava originalmente:
a := strtotime('08:00'); // Valor double: 8/24
b := strtotime('17:00'); // Valor double: 17/24
c := a - a; // 00:00 // Zero
d := b - c; // 09:00 // 17/24 - 0 = 17/24. Definitivamente não é 09:00!
diferenca := c - d; // -17/24, ou seja, 17 horas antes da meia-noite do dia 30/12/1899, portanto 09:00 do dia 29/12/1899.
No caso 1, como a pergunta está agora:
a := strtotime('08:00'); // Valor double: 8/24
b := strtotime('17:00'); // Valor double: 17/24
c := b - a; // 09:00 // 17/24 - 8/24 = 9/24
d := a - a; // 00:00
diferenca := d - c; // -9/24, ou seja, 9 horas antes da meia-noite do dia 30/12/1899, portanto 15:00 do dia 29/12/1899.
No caso 2:
a := strtotime('08:00'); // Valor double: 8/24
b := strtotime('17:00'); // Valor double: 17/24
c := b - a; // 09:00 // 17/24 - 8/24 = 9/24
d := strtotime('23:59') + strtotime('00:01'); // 00:00 // Mas no dia 31/12/1899. Valor double: 1.
diferenca := d - c; // 15:00 // Isso dá (1 - 9/24) = 15/24, ou seja, 15:00 do dia 30/12/1899.
No caso 3:
a := strtotime('08:00'); // Valor double: 8/24
b := strtotime('17:00'); // Valor double: 17/24
c := b - a; // 09:00 // 17/24 - 8/24 = 9/24
d := strtotime('00:00'); // 00:00
diferenca := d - c; // 15:00 // Isso dá (0 - 9/24) = -9/24, ou seja, 9 horas antes da meia-noite do dia 30/12/1899, portanto 15:00 do dia 29/12/1899.
Conclusão: Do jeito que a pergunta está agora, os 3 casos dão como resposta 15:00. No entanto no caso 1 da pergunta como era originalmente, o resultado era 09:00 porque você estava fazendo operações de uma forma diferente.