programming:stardate

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revision Previous revision
programming:stardate [2014/08/07 17:41] – [Codice] Giuseppe Di Terlizziprogramming:stardate [2014/08/13 11:20] (current) – Giuseppe Di Terlizzi
Line 51: Line 51:
 <code vb> <code vb>
 <% <%
-data = date() +dim k 
-orario = time()+ 
 +dim sData = date() 
 +dim sOrario = time()
    
-anno = year(data) +dim iAnno = year(sData) 
-annoBase = "2323" +dim iAnnoBase = "2323" 
-giorno = DateDiff("d", "01/01/" & anno, data) +dim iGiorno = DateDiff("d", "01/01/" & iAnno, sData) 
-giorniAnno = DateDiff("d", "01/01/" & anno, "01/01/" & anno + 1) +dim iGiorniAnno = DateDiff("d", "01/01/" & iAnno, "01/01/" & iAnno + 1) 
-ora = hour(orario) +dim iOra = hour(sOrario) 
-minuti = minute(orario) +dim iMinuti = minute(sOrario) 
-secondi = second(orario)+dim iSecondi = second(sOrario)
    
-anno_normale = "0,00003170979" +dim iAnnoNormale = "0,00003170979" 
-anno_bisestile = "0,00003162315"+dim iAnnoBisestile = "0,00003162315"
    
-if giorniAnno = "365" then +if iGiorniAnno = "365" then 
-     k = anno_normale +  set k = iAnnoNormale 
-elseif giorniAnno = "366" then +elseif iGiorniAnno = "366" then 
-     k = anno_bisestile+  set k = iAnnoBisestile
 end if end if
    
-stardate = (((anno - annoBase) + cdbl(giorno / giorniAnno)) * 1000) + (((ora * 3600) + (minuti * 60) + secondi) * k)+dim sStardate = (((iAnno - iAnnoBase) + cdbl(iGiorno / iGiorniAnno)) * 1000) + (((iOra * 3600) + (iMinuti * 60) + iSecondi) * k)
    
-arr_stardate = split(stardate, ",") +dim aStardate = split(sStardate, ",") 
-short_stardate = arr_stardate(0) & "." & left(arr_stardate(1), 2)+dim sShortStardate = aStardate(0) & "." & left(aStardate(1), 2)
 %> %>
 </code> </code>
Line 91: Line 93:
 Salviamo il codice della formula, all'interno di un file chiamato stardate.asp e includiamolo all'interno della pagina della nostra applicazione ASP, ad esempio:  Salviamo il codice della formula, all'interno di un file chiamato stardate.asp e includiamolo all'interno della pagina della nostra applicazione ASP, ad esempio: 
  
-<code vb>+<code html>
 <!-- #include file = "stardate.asp" --> <!-- #include file = "stardate.asp" -->
 <html> <html>
Line 98: Line 100:
   <head>   <head>
   <body>   <body>
-  Oggi è la data stellare <% response.write short_stardate %>+  Oggi è la data stellare <% response.write sShortStardate %>
   </body>   </body>
 </html> </html>
Line 245: Line 247:
  
   * ASP Classic:   * ASP Classic:
-<code vb>stardate2 = "[" & left(short_stardate, 3) & "]" & mid(short_stardate, 4, 10)</code>+<code vb>dim sStardate2 = "[" & left(sShortStardate, 3) & "]" & mid(sShortStardate, 4, 10)</code>
  
   * PHP:   * PHP:
  • programming/stardate.1407426075.txt.gz
  • Last modified: 10 years ago
  • by Giuseppe Di Terlizzi