Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Como retirar segundos do tempo e traduzir Encontre agências semelhantes


Dreamer   (2001-12-15 19:34) [0]

эти секунды в integer? Допустим 00:01:30->90:Double->90:Integer;



Nikolay   (2001-12-15 19:55) [1]

decodetime

É isso!



Anatoly Podgoretsky   (2001-12-15 20:57) [2]

Trunc(TimeVar*86400)



Dreamer   (2001-12-15 21:45) [3]

А можно поподробнее, про decodetime я вобще в хелпе не нашел, при вводе параметров орет что не те параметры, или что они должны быть однотипными.
Про Trunc очень скудно, ругается он у меня на нечто вроде Int64 и т.д.



Anatoly Podgoretsky   (2001-12-15 21:50) [4]

Да приводи свой код и получишь подробнее.



Tosov   (2001-12-15 22:00) [5]

StrToInt(Copy(TimeToStr(Time),7,2));



Dreamer   (2001-12-15 22:02) [6]

Function GetCustNo(e1: Integer):integer;
começar

Form3.Query1.Close;
Form3.Query1.ParamByName("Time").AsInteger := e1;
Form3.Query1.Open;
GetCustNo:=Form3.Query1.FieldByName ("RadPor").AsInteger;
end;
В e1 мне надо секунды подставить из time, я так понимаю, что нужно подставлять в integer, соответственоо и минуты тоже должны плавно превращаться в секунды:)



KilkennyCat   (2001-12-16 06:17) [7]

var
Hour, Min, Sec, MSec: Word;
começar
DecodeTime(now, Hour, Min, Sec, MSec);



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima









Memória: 0.82 MB
Hora: 0.03 c
4-22473
amamed_3071
2001-11-02 13:46
2002.01.08
Epson Printer commands


1-22119
Socol
2001-12-15 10:45
2002.01.08
Ajuda com duas perguntas!


7-22423
Alex_K_xelA
2001-09-21 18:55
2002.01.08
Lendo setores de um CD-ROM


14-22365
Ketmar
2001-10-16 06:22
2002.01.08
вот интересно: из Симферополя я тут один?


14-22372
froz
2001-11-08 16:25
2002.01.08
URGENTEMENTE!





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russa sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol