Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] dias úteis

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Uma código do número de dias úteis entre duas datas,usa a função DateDiff ( "ww ",...,...) para encontrar o número de finais de semana entre as datas.

 

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
<script LANGUAGE=VBScript>
<!--
Sub init()	
	dt = Date()
	document.workday.firstDate.value = FormatDateTime( dt,1 )	
End Sub
'-->
</script>
<script LANGUAGE=VBScript>
Function WorkDayDiff( ByVal BeforeDate, ByVal AfterDate)

	Dim dateAft, dateBef, diff, numOfWeeks
	If Not ( IsDate( AfterDate ) And IsDate( BeforeDate ) ) Then	
		WorkDayDiff = 0
		MsgBox "Invalid date submitted", vbOKOnly, "WDDiff" 
		Exit Function		
	End If
	
	dateAft = CDate( AfterDate )
	dateBef = CDate( BeforeDate )
	
	'A data a ser subtraída é definida para sexta-feira se for Weekend
	Select Case WeekDay( dateBef )	
		Case vbSaturday : dateBef = DateAdd( "d", -1, dateBef )
		Case vbSunday : dateBef = DateAdd( "d", -2, dateBef ) 		
	End Select
	
	
	Select Case WeekDay( dateAft )	
		Case vbSaturday : dateAft = DateAdd( "d", -1, dateAft )
		Case vbSunday : dateAft = DateAdd( "d", -2, dateAft )		
	End Select
		
	diff = DateDiff( "d", dateBef, dateAft )
	numOfWeeks = DateDiff( "ww", dateBef, dateAft )
	
	WorkDayDiff = diff - 2 * numOfWeeks

End Function
Sub FindDiff()
	bef = document.workday.firstDate.value
	aft = document.workday.lastDate.value
	document.workday.difference.value = WorkDayDiff( bef, aft )
	document.workday.button2.focus()
End Sub
'-->
</SCRIPT>
</HEAD>
<BODY onLoad="VBScript: init">
<form name="workday">
<center>
<Table width= 30%>
<tr><td height="135"> </td></tr>
<tr><td>
<font color="green">Certifique-se de fornecer as datas com precisão 
em formato sugerido. 
<p>1º data ( mmm dd, yyyy )
<input type=text name="firstDate" size='15'>
<p>Ultima data ( mmm dd, yyyy )
<input type=text name="lastDate" size='15'>
<p>diferença em dias trabalhados: </font>
<input type=text name="difference" size='5'>
<p>
<input type=button value="Pesquisar " onClick="VBScript: FindDiff" name=button2>
</form>
</td></tr></Table>
</center>
</BODY>
</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito