{Récupère le nom du jour de la semaine  : Ex. Lundi ...}
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := LongDayNames[DayOfWeek(Now)];
end;

>>> import time
>>> jours = ["Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche"]
>>> print jours[time.localtime()[6]]

Public Function GetWeekDayName(ByVal PDate As Date) As String
    GetWeekDayName = WeekdayName(Weekday(PDate, vbMonday))
End Function

/// <summary>
/// Retourne le nom du jour de la semaine pour
/// une date donnée dans la langue du PC
/// Inspiré de :  http: //www.johnkoerner.com/index.php?/archives/15-C-Day-of-Week-Name.html
/// </summary>
/// <param name="d">Date pour laquelle ou souhaite conaitre le nom du jour</param>
/// <returns>Nom du jour de la semaine</returns>
public string GetWeekDayName(DateTime d)
{
    return System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.DayNames[(int)d.DayOfWeek];
}

Public Function GetWeekDayName(ByVal d As DateTime) As String
    Return System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.DayNames(CType(d.DayOfWeek, Integer))
End Function

MaDate est une date = "20091225"           // Le 25/12/2009
DateVersJourEnLettre(MaDate)                // Renvoie "Vendredi"

<?php
$jours = array('dimanche', 'lundi', 'mardi', 'mercredi', 'jeudi', 'vendredi', 'samedi');
echo 'Nous sommes ' . $jours[date('w')];
echo 'Le 25 décembre 2009 était un ' . $jours[date('w', mktime(0,0,0,12,25,2009))];
// ou
setlocale(LC_TIME, "fr_FR");
echo 'Nous sommes ' . strftime("%A");
echo 'Le 25 décembre 2009 était un ' . strftime("%A", mktime(0,0,0,12,25,2009));
?>