VARIAVEL TIPO DATA
declarei uma variavel global do tipo data em um modo, para usa-la como data de operação do sistema, porém qdo preciso fazer uma checagem, tipo datasis - cdate(diatal,[Ô]dd/mm/yyyy[Ô]) , não funciona, nas telas onde carrego ela ta nomral, por'm ao compara-la com outra para ver se é maior ou menor, não da certo.
bom não entedi direito mas o certo seria assim
Primeira Forma
Dim Data1 As Date
Dim Data2 As Date
If Data1 < Data2 Then resultado
ou segunda forma
Dim Data1 As Date
Dim Data2 As String
If Data1 < CDate(Data2) then
repare que utlizei o CDate (Convert To Date) na Data2 nesta segunda forma pois Data2 está como string
e é assim que funciona
Primeira Forma
Dim Data1 As Date
Dim Data2 As Date
If Data1 < Data2 Then resultado
ou segunda forma
Dim Data1 As Date
Dim Data2 As String
If Data1 < CDate(Data2) then
repare que utlizei o CDate (Convert To Date) na Data2 nesta segunda forma pois Data2 está como string
e é assim que funciona
é isto mesmo, declarei um variavel em um módulo:
GLOBAL DATASIS AS DATE
e uso ela no sistema todo, seria a data operacional do sistema, até ai tudo certo. agora ao fazer uma comparação:
If datasis > CDate([Ô]17/11/2009[Ô]) Then
xxxxxx
xxxxx
endif
não entra no if ( e com certeza a datasis é maior)
q pode ser ?
GLOBAL DATASIS AS DATE
e uso ela no sistema todo, seria a data operacional do sistema, até ai tudo certo. agora ao fazer uma comparação:
If datasis > CDate([Ô]17/11/2009[Ô]) Then
xxxxxx
xxxxx
endif
não entra no if ( e com certeza a datasis é maior)
q pode ser ?
coloquei um msgbox para mostrar o datasis e me mostrou [Ô]00:00:00[Ô] , que meleca é esta, no sistema opera o tempo todo corretamente.
Bom acredito que vc se precipitou em declara este datasis
o certo seria isto
DataSis = Date [ô]determinar que datesis seja igual adata do sistema
If datasis > CDate([Ô]17/11/2009[Ô]) Then
xxxxxx
xxxxx
endif
porém
basta ria fazer assim sem declarar nada
If Date > CDate([Ô]17/11/2009[Ô]) then
msgbox [Ô]data atual maior que a data descrita[Ô]
End if
e pronto
o certo seria isto
DataSis = Date [ô]determinar que datesis seja igual adata do sistema
If datasis > CDate([Ô]17/11/2009[Ô]) Then
xxxxxx
xxxxx
endif
porém
basta ria fazer assim sem declarar nada
If Date > CDate([Ô]17/11/2009[Ô]) then
msgbox [Ô]data atual maior que a data descrita[Ô]
End if
e pronto
marcelo, seguinte, eu declaro ela em um móduto como falei acima, ai verifico o seguinte, se o banco for sql eu pego a data do banco, senão igualo ela a date mesmo, ai ela é usada no sistema todo, então logo no inicio ela ja tem um valor, a não ser q a carga do mdi venha antes do módulo onde esta a SubMain, e por isto no ponto q checo , q é na crga do mdi ela ainda esteja [Ô]zerada[Ô], seria isto ?
putz, testei aqui e realmente é isto, pensei q a sub main q é onde faço a conexão com o banco viesse antes da carga do mdi, mas pelo jeito é mdi depois submain , Confere ? tem lógica ?
marcelo, de qualquer forma vc ta sempre ajudando, vou pontuar.
Tópico encerrado , respostas não são mais permitidas