|
|
|
|
|
|
|
|
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
|
|
|
|
|
