pajautaa

« previous entry | next entry »
Maijs. 17., 2006 | 10:06 pm
posted by: taapati in pajautaa

ar kādu funkciju var (ja vispār var) pārvērst dienu (kā datumu un mēnesi) dienas numurā pēc kārtas (gadā)? nu tā, lai no 01.01 iegūtu 1, bet no 01.02 iegūtu 32? turklāt 29.februāri var ignorēt :)
Tags:

# | jā, ir doma! | Add to Memories

Comments {14}

from: [info]laumina
date: Maijs. 17., 2006 - 10:20 pm
#

http://support.microsoft.com/?kbid=211445
?

Atbildēt | Diskusija

taapati

from: [info]taapati
date: Maijs. 17., 2006 - 10:21 pm
#

precīzi tas nav :) bet paldies :)

Atbildēt | Iepriekšējais | Diskusija

from: [info]laumina
date: Maijs. 17., 2006 - 10:25 pm
#

a = DateValue("01/01/2006")
b = DateValue("05/17/2006")
c = b - a
?

Atbildēt | Iepriekšējais | Diskusija

taapati

from: [info]taapati
date: Maijs. 17., 2006 - 10:31 pm
#

jā, it kā :) bet tā kā es rakstu pascal, tad man pašai tā fja ir jāuzraksta, bet tur nav viņa aprakstīta :)

Atbildēt | Iepriekšējais | Diskusija

taapati

from: [info]taapati
date: Maijs. 17., 2006 - 11:08 pm
#

atkal nav aprakstīts, kā tieši :)
//to izmantot nevar, jo tas nav pascal, bet delphi :)
un vispār es laikam izdomāju, kā to apiet ;)
bet zini - Tu esi kruts/kruta ;) šitā palīdzēt ;)

Atbildēt | Iepriekšējais | Diskusija

Max

from: [info]m_x
date: Maijs. 17., 2006 - 11:39 pm
#

nu delphi to pašu paskālu vien izmanto!

Atbildēt | Iepriekšējais | Diskusija

taapati

from: [info]taapati
date: Maijs. 17., 2006 - 11:54 pm
#

jā, bet ne otrādāk :D tās fjas pascalā nav :)

Atbildēt | Iepriekšējais | Diskusija

Max

from: [info]m_x
date: Maijs. 18., 2006 - 12:25 am
#

āā, nu vismaz kk jaunu uzzināju;)

Atbildēt | Iepriekšējais

CannibalSmith

from: [info]cannibalsmith
date: Maijs. 18., 2006 - 08:35 am
#

Nekādas formulas nav, jo mēneši ir neregulāra garuma. Uztaisi masīvu menesi[1..12] ar mēnešu garumiem un
if (gads - 2000) / 4 = abs((gads - 2000) / 4) then menesi[2] := 29;
Tad dienas numuru gadā iegūsti ar ciklu
for i := 1 to month do rezultats := rezultats + menesi[i];
un beigās pieskaiti dienu sakitu.

Atbildēt | Diskusija

CannibalSmith

from: [info]cannibalsmith
date: Maijs. 18., 2006 - 08:36 am
#

Un vispār: [info]koderi

Atbildēt | Iepriekšējais

from: [info]octo
date: Maijs. 18., 2006 - 09:20 am
#

function diena(d,m:integer):integer;
var x:integer;
begin
case m of
1: x:=0;2: x:=31;3: x:=59;
4: x:=90;5: x:=120;6: x:=151;
7: x:=181;8: x:=212;9: x:=243;
10: x:=273;11: x:=304;12: x:=334;
else
x:=0;
end;
diena:=x+d;
end;


begin
writeln(diena(1,2));
end.

Atbildēt | Diskusija

from: [info]octo
date: Maijs. 18., 2006 - 09:22 am
#

jaa un te nav njemts veeraa garais gads - ja tomeer vajag - tad viens ifs ar diviem nosaciijumiem klaat...

veel te nav chekoshana uz korektiem ievaddatiem...

Atbildēt | Iepriekšējais