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

Para baixo

Manipulando datas de IB para Delphi e de volta Encontre agências semelhantes


Сергей Н.   (2001-12-04 06:23) [0]

Você precisa fazer uma função UDF para trabalhar com datas.
Como aceitar e trabalhar com o Delphi com a data do IB?
Como devolver a data processada do Delphi para o campo da tabela IB?



Vadim   (2001-12-04 10:44) [1]

biblioteca Mylib; usa SysUtils; digitar ISC_QUAD = Record isc_quad_high: Integer; isc_quad_low: Cardinal; Fim; PISC_QUAD = ^ ISC_QUAD; threadvar tempquad: ISC_QUAD; Função MonthAdd (Var NumberMonth: Integer; IBDate: PISC_QUAD): PISC_QUAD; cdecl; exportação; Começar tempquad.isc_quad_high: = Round (IncMonth (IBDate ^ .isc_quad_high, NumberMonth)); Resultado: = @tempquad; Fim; Função OnlyDate (IBDate: PISC_QUAD): PISC_QUAD; cdecl; exportação; Começar tempquad.isc_quad_high: = Round (IBDate ^ .isc_quad_high); Resultado: = @tempquad; Fim; Exportações MonthAdd Name "MonthAdd"; Exportações OnlyDate Name "OnlyDate"; começar fim.



DECLARAR FUNÇÃO EXTERNA MONTH_ADD INTEGER, TIMESTAMP RETORNOS TIMESTAMP ENTRY_POINT "MonthAdd" MODULE_NAME "Mylib.dll";



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

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

em cima









Memória: 0.55 MB
Hora: 0.032 c
1-22142
Iniciante
2001-12-20 10:42
2002.01.08
Replacedialog


1-22115
Derzky
2001-12-19 18:14
2002.01.08
Como comparar datas e a diferença entre elas obter Integer


14-22414
wHammer
2001-11-12 10:48
2002.01.08
Delphi 5 e (ou (xor)) C ++ Builder 5?


3-21960
Alenka
2001-12-05 12:53
2002.01.08
Ajuda por favor!


7-22452
fsp
2001-09-23 18:24
2002.01.08
Evento OnClick para kompanenta programaticamente criado





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