'Nome da função: GetMyTimeNumber()
'Função: gerar um inteiro de tempo
'Parâmetro: lx ---- tipo de número inteiro de tempo
' lx=0 a minuto lx=1 a hora lx=2 a dia lx=3 a mês
'Valor de retorno: Valor inteiro do tempo de geração (mínimo de minutos)
'Exemplo:
'**********************************************
Função pública GetMyTimeNumber(lx)
Se lx=0 Então GetMyTimeNumber=Ano(Data)*12*30*24*60+Mês(Data)*30*24*60+Dia(Data)*24*60+Hora(Hora)*60+Minuto(Hora )
Se lx=1 Então GetMyTimeNumber=Ano(Data)*12*30*24+Mês(Data)*30*24+Dia(Data)*24+Hora(Hora)
Se lx=2 Então GetMyTimeNumber=Ano(Data)*12*30+Mês(Data)*30+Dia(Data)
Se lx=3 Então GetMyTimeNumber=Ano(Data)*12+Mês(Data)
Função final