Programalama > ASP

<% 
  Dim intHour, intMinute 

  intHour = Hour(Now) 
  intMinute = Minute(Now) 

  intHour = intHour + 7 ' USA saatine göre 
  ' intMinute = intMinute + 30 ' eger dk. sorunu da varsa 
  If intMinute >= 60 Then 
    intMinute = intMinute Mod intHour 
    intHour = intHour + 1 
  End If  
%> 
<% Response.Write intHour & ":" & intMinute %>