USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Miscelâneas)

Título da Dica:  Calcular qto receber de acordo com horas trabalhadas
Postada em 26/10/2003 por Marcos Nogueira            
If CDate(TxtHora1) > CDate(TxtHora2) Then
    TxtTotalH= CDate(TxtHora1) - CDate(TxtHora2) - 24
    TxtTotalH= Format(TxtTotalH, "HH:MM")
Else
    TxtTotalH= CDate(TxtHora2) - CDate(TxtHora1)
    TxtTotalH= Format(TxtTotalH, "HH:MM")
End If

TxtTotalG= Format(TxtTotalHs, "#.##0,00") * 24 * CCur(TxtSalhora) 'qto o func ganha por hora
TxtTotalG= Format(TxtTotalG, "Currency")


Marcos Nogueira

 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página