Res: [delphi-br] Re: Como subtrair horas corretas
Boa noite pessoal RESOLVIDO Muito obrigado ao Roni e ao Eny. Usei o IncMinute e ficou muito bom até agora, rsrs. --- Em delphi-br@yahoogrupos.com.br, Roni Rodrigo ronirodr...@... escreveu de qualquer forma, 24:00 não é uma hora válida mesmo... vai ter q converter pra 00:00 ai se incrementar a hora vai simplesmente passar a ser 01:00 do dia atual. por isso, ao invés de incrementar a hora, incrementa o dia... pode usar o IncDay()... ou somar 1 na data o/ Em 27/08/2010 08:53, Eny Urias escreveu: Porque vc não usa IncHour()? Adiciona a unit DateUtils... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Roni Rodrigo ronirodr...@... mailto:ronirodrigo%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 26 de Agosto de 2010 22:15:13 Assunto: Re: [delphi-br] Re: Como subtrair horas corretas mas então... como eu disse... não seria 0 hora do dia seguinte? converte teu 24:00 pra 0 e incrementa 1 dia... ai vc faz o calculo normalmente... o/ Em 26/08/2010 22:00, alexsandro_qs escreveu: É o problema que estou tendo aqui é isso, pois o usuário digitar Inicial : 07:30 Final: 24:00 o resultado teria que dar : 16:30 Só que como ele não reconhece o 24:00, não faz o calculo. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Roni Rodrigo ronirodrigo@ escreveu cara... acredito que 24:00 não seja uma hora válida mesmo... o dia vai até de 0:00 até 23:59 ... o/ Em 26/08/2010 18:48, alexsandro_qs escreveu: Boa noite pessoal; Eu tinha feito uma forma de subtrair 2 horas aqui, e até à um tempinho atrás, estava tudo ok. Só que agora pintou um problema: era feito assim: --- var h1, h2, resultado : TDateTime; begin d1:= StrToTime(adotDatainicial.Value); d2:= StrToTime(adotDatainicia2.Value); resultado := d2 - d1; --- Só que quando é digitado 24:00, esse valor não é reconhecido como horas ai os erros. Alguém poderia me ajudar com isso ? OBS.: a hora nunca vai passar de 24:00 ( ou seja de um dia para o outro) Ex.: saída 24:00 - entrada 01:00 = 23:00 e não 23:60 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Re: Como subtrair horas corretas
Porque vc não usa IncHour()? Adiciona a unit DateUtils... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Roni Rodrigo ronirodr...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 26 de Agosto de 2010 22:15:13 Assunto: Re: [delphi-br] Re: Como subtrair horas corretas mas então... como eu disse... não seria 0 hora do dia seguinte? converte teu 24:00 pra 0 e incrementa 1 dia... ai vc faz o calculo normalmente... o/ Em 26/08/2010 22:00, alexsandro_qs escreveu: É o problema que estou tendo aqui é isso, pois o usuário digitar Inicial : 07:30 Final: 24:00 o resultado teria que dar : 16:30 Só que como ele não reconhece o 24:00, não faz o calculo. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Roni Rodrigo ronirodr...@... escreveu cara... acredito que 24:00 não seja uma hora válida mesmo... o dia vai até de 0:00 até 23:59 ... o/ Em 26/08/2010 18:48, alexsandro_qs escreveu: Boa noite pessoal; Eu tinha feito uma forma de subtrair 2 horas aqui, e até à um tempinho atrás, estava tudo ok. Só que agora pintou um problema: era feito assim: --- var h1, h2, resultado : TDateTime; begin d1:= StrToTime(adotDatainicial.Value); d2:= StrToTime(adotDatainicia2.Value); resultado := d2 - d1; --- Só que quando é digitado 24:00, esse valor não é reconhecido como horas ai os erros. Alguém poderia me ajudar com isso ? OBS.: a hora nunca vai passar de 24:00 ( ou seja de um dia para o outro) Ex.: saída 24:00 - entrada 01:00 = 23:00 e não 23:60 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] Re: Como subtrair horas corretas
de qualquer forma, 24:00 não é uma hora válida mesmo... vai ter q converter pra 00:00 ai se incrementar a hora vai simplesmente passar a ser 01:00 do dia atual. por isso, ao invés de incrementar a hora, incrementa o dia... pode usar o IncDay()... ou somar 1 na data o/ Em 27/08/2010 08:53, Eny Urias escreveu: Porque vc não usa IncHour()? Adiciona a unit DateUtils... -- Eny Trova Urias Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, mas um hábito- Aristóteles De: Roni Rodrigo ronirodr...@yahoo.com.br mailto:ronirodrigo%40yahoo.com.br Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 26 de Agosto de 2010 22:15:13 Assunto: Re: [delphi-br] Re: Como subtrair horas corretas mas então... como eu disse... não seria 0 hora do dia seguinte? converte teu 24:00 pra 0 e incrementa 1 dia... ai vc faz o calculo normalmente... o/ Em 26/08/2010 22:00, alexsandro_qs escreveu: É o problema que estou tendo aqui é isso, pois o usuário digitar Inicial : 07:30 Final: 24:00 o resultado teria que dar : 16:30 Só que como ele não reconhece o 24:00, não faz o calculo. --- Em delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br, Roni Rodrigo ronirodr...@... escreveu cara... acredito que 24:00 não seja uma hora válida mesmo... o dia vai até de 0:00 até 23:59 ... o/ Em 26/08/2010 18:48, alexsandro_qs escreveu: Boa noite pessoal; Eu tinha feito uma forma de subtrair 2 horas aqui, e até à um tempinho atrás, estava tudo ok. Só que agora pintou um problema: era feito assim: --- var h1, h2, resultado : TDateTime; begin d1:= StrToTime(adotDatainicial.Value); d2:= StrToTime(adotDatainicia2.Value); resultado := d2 - d1; --- Só que quando é digitado 24:00, esse valor não é reconhecido como horas ai os erros. Alguém poderia me ajudar com isso ? OBS.: a hora nunca vai passar de 24:00 ( ou seja de um dia para o outro) Ex.: saída 24:00 - entrada 01:00 = 23:00 e não 23:60 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]