bom dia amigos,,,
to precisando fazer um controle, ondi teste a validade do medicamento,
terei a data de hoje e a data d fabricacao
fiz esse codigo abaixo, mas aparentemente nao ta funcionando, eu acho
se alguem ja tiver feito isso, ou poder dar umas dica sobre o codigo, agradeço;
ondi:
Text27 = Dt Fabricacao
TExt25 = Dt Validade
Text8 = Dt hoje
-------------------------------------------
Dim PorcEmp As String
PorcEmp = ""
If Not IsNull(TabEmp("porcento")) Then
PorcEmp = TabEmp("porcento")
Else
PorcEmp = "0"
End If
Dim NrDias As Integer
Dim NrDias1 As Integer
Dim NrTot As String
Dim NrTot1 As String
NrDias = DateDiff("m", Format(Text27.Text, "mm/yyyy"), Format(Text25.Text, "mm/yyyy"))
NrDias1 = DateDiff("m", Format(Text8.Text, "mm/yyyy"), Format(Text25.Text, "mm/yyyy"))
If Text27.Text = Text25.Text Then
MsgBox "Datas iguais!!!", vbCritical, "ATENÇÃO USUÁRIO"
Text27.SetFocus
Exit Sub
End If
NrTot = Int(((NrDias1 / NrDias) * 100) + 0.5)
NrTot1 = (100 - NrTot)
If NrTot1 >= PorcEmp Then
MsgBox "D A T A D E V A L I D A D E V E N C I D A" & Chr(13) & "" & Chr(13) & "Porcentagem aceitavél: " & PorcEmp & "%" & " <<>> Porcentagem atual: " & NrTot1 & "%" & "", vbInformation, "ATENÇÃO USUÁRIO"
TabEmp.Close
End If
TabEmp.Close
----------------------------------------------------------
tipo, eu tenho o campo (%), ondi eu digito a porcentagem do vencimento, se o medicamento falta 10% dias pra vencer, ja me dá a mensgem,,
obs: o controle é feito nao em dias, e sim em Meses (01/2007)...
me dê umas dica ai gente!!!!
valew e bom fds pra todos....
