<?php
 
/**
 * @author Masino Sinaga, http://www.openscriptsolution.com
 * @copyright December 13, 2009
 */
 
$days = GetNumberOfDaysStartedFromMonday();
echo 'The number of days from Monday until today is <b>'.$days.'</b> day(s).';
 
function GetNumberOfDaysStartedFromMonday() { 
  $dayname = date('D');
  switch ($dayname)
  {
        case 'Sun':
	  $days = 6; 
	  break;
	case 'Mon':
          $days = 0;
	  break;
	case 'Tue':
	  $days = 1;
	  break;
	case 'Wed':
	  $days = 2;
	  break;
	case 'Thu':
	  $days = 3;
  	  break;
	case 'Fri':
          $days = 4;
	  break;
	case 'Sat':
          $days = 5;
          break;
  }
  return $days;
}
 
?>

			<span class="date"><?php the_modified_time(__('F jS, Y', 'inove')); ?></span>

		<?php $title = get_the_title(); ?>
		<?php if ($title == 'Forum') { ?>
 
		<?php } else { ?>
 
			<span class="date"><?php the_modified_time(__('F jS, Y', 'inove')); ?></span>
 
		<?php } ?>

		<?php if ($title == 'Forum') { ?>

		<?php if (($title == 'Forum') || ($title == 'Judul Halaman Anda Lainnya')) { ?>

'Deskripsi: Menghitung selisih dua buah tanggal yang diketahui 
'           lalu menampilkan hasilnya dalam bentuk selisih hari
'           dan selisih durasi jam lengkapnya. Contoh: Jika 
'           tanggal awal  = 01/03/2002 17:18:00 dan 
'           tanggal akhir = 01/09/2002 09:42:30, maka akan
'           menghasilkan --> 183 hari, 16:24:30 
'           Artinya: (183 hari, 16 jam, 24 menit, dan 30 detik).
'           Tips ini menggunakan fungsi DateDiff
'Pembuat  : Masino Sinaga 
'Diupload : Minggu, 1 September 2002
'Persiapan: 1. Buat 1 Project Standard exe baru dengan 1 Form.
'           2. Tambahkan 2 TextBox, 1 Label, dan 1 Timer ke atas Form.
'           3. Copy-kan coding berikut ke dalam editor form yang bertalian.
'-------------------------------------------------------------------------- 

Option Explicit
 
Function SelisihHariJam(ByVal Awal As Date, _
                        ByVal Akhir As Date) As String
 
  Dim Detik As Long, Hari As Long, Jam As Long
  Dim JamLengkap As String   
  If Awal > Akhir Then
     MsgBox "Tanggal dan waktu awal harus lebih kecil " & vbCrLf & _
            "dari pada tanggal dan waktu akhir", _
            vbCritical, "Peringatan"
     Exit Function
  End If
 
  'Tampung dalam durasi satuan terkecil, yaitu: DETIK
  Detik = DateDiff("s", Awal, Akhir)  
 
  'Hitung jumlah jam dgn cara membagi 3600
  '(backslash ("\") supaya menghasilkan
  'nilai Integer tanpa pembulatan ke atas)
  Jam = Detik \ 3600
 
  'Jika jumlah jam lebih besar dari 23
  'artinya: lebih dari 1 hari
  If Jam > 23 Then
 
     'Hitung jumlah hari dgn cara membagi 24
     '(backslash ("\") supaya menghasilkan
     'nilai integer tanpa pembulatan ke atas)
     Hari = Jam \ 24
 
     'Hitung Durasi Jam dalam hh:mm:ss
     JamLengkap = Format((Akhir - Awal), "hh:mm:ss")
 
  Else 'Jika jumlah jam <= 23

     Hari = 0   'maka jumlah hari = nol

     'Hitung Durasi Jam dalam hh:mm:ss
     JamLengkap = Format((Akhir - Awal), "hh:mm:ss")
  End If
 
  If Hari = 0 Then  'Jika jumlah hari = 0

     'Tampung hasil akhirnya
     SelisihHariJam = JamLengkap
 
  Else  'Jika jumlah hari > 0, tampilkan jumlah harinya

     'Tampung hasil akhirnya
     SelisihHariJam = Hari & " hari, " & JamLengkap
  End If
  Exit Function
 
End Function
 
Private Sub Form_Load()
  Timer1.Interval = 500
  Timer1.Enabled = True
  Text1.Text = "01/03/2002 17:18:00"
  'Text2.Text = "01/09/2002 09:42:30"
  Text2.Text = Now
End Sub
 
Private Sub Timer1_Timer()
  On Error GoTo PesanError
  Text2.Text = Now
  Label1.Caption = SelisihHariJam(CDate(Text1.Text), _
                      CDate(Text2.Text))
  Exit Sub
PesanError:
  MsgBox "Tanggal atau format-nya salah!", _
         vbCritical, "Error Tanggal"
End Sub

Option Explicit
 
Private Declare Function GetTimeZoneInformation Lib "KERNEL32.dll" (lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
 
Private Type SYSTEMTIME
   wYear                As Integer
   wMonth               As Integer
   wDayOfWeek           As Integer
   wDay                 As Integer
   wHour                As Integer
   wMinute              As Integer
   wSecond              As Integer
   wMilliseconds        As Integer
End Type
 
Private Type TIME_ZONE_INFORMATION
   Bias                 As Long
   StandardName         As String * 64
   StandardDate         As SYSTEMTIME
   StandardBias         As Long
   DaylightName         As String * 64
   DaylightDate         As SYSTEMTIME
   DaylightBias         As Long
End Type
 
Private Const TIME_ZONE_ID_DAYLIGHT As Long = 2
Private Const Unix1970   As Long = 25569 'CDbl(DateSerial(1970, 1, 1))

Public Function Unix2Date(vUnixDate As Long, ByVal bReturnUTC As Boolean) As Date
   Unix2Date = DateAdd("s", vUnixDate, Unix1970) - IIf(bReturnUTC, 0, GetCurrentTZOffset)
End Function
 
Public Function GetCurrentTZOffset() As Double
   Dim tz               As TIME_ZONE_INFORMATION
   Dim lRet             As Long
   'Cara tercepat utk memeriksa apakah kita termasuk
   'Daylight Savings adalah dengan memeriksa lRet
   lRet = GetTimeZoneInformation(tz)
   'Offset dalam menit
   GetCurrentTZOffset = tz.Bias + IIf(lRet = TIME_ZONE_ID_DAYLIGHT, tz.DaylightBias, tz.StandardBias)
   GetCurrentTZOffset = GetCurrentTZOffset / 1440
End Function
 
Private Sub Command1_Click()
   MsgBox "GMT   = " & Unix2Date(1206980969, True) '31 Maret 2008 16:29:29 (GMT)
   MsgBox "Local = " & Unix2Date(1206980969, False) '31 Maret 2008 23:29:29 (GMT + 7)
End Sub

Public Function ConvertDateStringToDateValue()
  With Sheet1
    For i = 2 To 16000 'dimulai dari baris ke-2, karena baris pertama merupakan header column
      If IsDate(.Cells(i, 7)) Then 'periksa apakah data Tanggal pada kolom ke-7
        'Di antara 16,000 baris tersebut, tidak semua baris mengandung data 5 digit angka
        'Jadi, Anda harus memeriksanya terlebih dulu, jika data Tanggal, abaikan saja
      Else 'Sedangkan jika nilai di Cell tersebut bukan data Tanggal
        'Lakukan proses pengkonversian di sini dan tempatkan hasilnya di kolom ke-11
        .Cells(i, 11).Value = Format(CDate(.Cells(i, 7).Value), "yyyy-MM-dd")
      End If
    Next i
  End With
End Function